Dato beregning

Nu ved jeg ikke om du arbejder i VBA eller i en forespørgsl. Men jeg tror, at det er nemmest i VBA. Put disse fnktioner i et modul og brug GetDateDiff(Start, slut):

Public Function GetDateDiff(Start As Date, Slut As Date) As String
    Dim tmp As Date
    tmp = OprundTid(Slut) - NedrundTid(Start)
    If Slut > #12:30:00 PM# Then
        tmp = DateAdd("n", -30, tmp)
    End If
    GetDateDiff = Format(tmp, "hh:nn")

End Function


Public Function NedrundTid(Tid As Date) As Date
    NedrundTid = TimeSerial(Hour(Tid), Minute(Tid) - (Minute(Tid) Mod 15), 0)
End Function

Public Function OprundTid(Tid As Date) As Date
    OprundTid = TimeSerial(Hour(Tid), Minute(Tid) - (Minute(Tid) Mod 15) + 15, 0)
End Function

gp?

Sorry min PC har været nede ;(

Jeg har to felter
StartTid  og  SlutTid, hvordan få jeg GetDateDiff til rette tiden efter jeg har taster tiden ind?

I would think in the before update event for each dateTime field on the form which you want to round

Ja, jeg forsøgte af skrive en længere forklaring før, men da jeg trykkede Send, så var Eksperten nede :o(

På BeforeUpdate på StartTid lægger du denne kode:

Me!StartTid = NedrundTid(Me!StartTid)

og tilsvarende på SlutTid_BeforeUpdate:

Me!SlutTid = OpRundTid(Me!SlutTid).

Herefter kan du reducere GetDateDiff således:

Public Function GetDateDiff(Start As Date, Slut As Date) As String
    Dim tmp As Date
    tmp = Slut - Start
    If Slut > #12:30:00 PM# Then
        tmp = DateAdd("n", -30, tmp)
    End If
    GetDateDiff = Format(tmp, "hh:nn")
End Function

Jeg er ikke ved db nu, jeg kigger på det i morgen.

Det er helt fint det skal bare flyttes til AfterUpdate