Her er et eks. jeg ved ikke om det er noget der kan bruges?
Public Function Arbejdstid(Starttid As Date, Sluttid As Date, PauseMin
As Date)
'kun på en linie det er Outlook der laver linieskift
Arbejdstid = TimeSerial(Hour(Sluttid) - Hour(Starttid),
Minute(Sluttid) - (Minute(Starttid) , PauseMin), 0)
End Function
Private Sub Form_Load()
Label1.Caption = Arbejdstid("8:00", "15:00", "30")
End Sub
mvh Stig
"hom" <hom@christensen.dk> skrev i en meddelelse
news:Ebze6.23822$l57.1044689@news000.worldonline.dk...
> Hej
>
> er det muligt at regne antal timer ud på en dag - et tidsrum
> eks. 08:00 - 15:00 - pause fra 12:00 til 12:30
>
> på forhånd tak
> Henrik
>
>
|