Problem med DateDiff

Hvis du vil have antal sekunder mellem 2 datoer kan det se således ud:

drift = DateDiff("s", Me.GenSynkron, Me.GenASynkron)

Formatet "dd:hh:mm" betyder dage:timer:måneder

Sakset fra VBA-hjælpen:

yyyy Year
q Quarter
m Month
y Day of year
d Day
w Weekday
ww Week
h Hour
n Minute
s Second

Problemet er, at datediff returnerer et TAL og ikke en dato. Du kan derfor ikke bare formatterer tallet som du ville formattere en dato.
Det tal, som kommer ud af DateDiff("s", date1:=Me.GenSynkron, date2:=Me.GenAsynkron)/60/60/24 skal oversættes til dage, timer og mintter.

Heltalsdelen er svarer til dage, mens decimal-delen skal konverteres til timer og minutter.

prøver lige at lave et eks

Prøv at smide denne funktion i et modul og så kalde BeregnDatoForskel(dato1, Dato2):

Public Function BeregnDatoForskel(Tid1 As Date, Tid2 As Date) As String
    Dim Sek As Single
    Dim Min As Single
    Dim Tim As Single
    Dim Dage As Single
    Dage = DateDiff("s", Tid1, Tid2) / 60 / 60 / 24
    Tim = (Dage - Int(Dage)) * 24
    Min = (Tim - Int(Tim)) * 60
    BeregnDatoForskel = Int(Dage) & ":" & Int(Tim) & ":" & Int(Min)
End Function

Slet bare Dim Sek as Single

Har prøvet den funktion du foreslår hvor DatoForskel kommer som en streng. Jeg vi imidlertid gerne regne videre på DatoForskel feks. addere ugevis, månedsvis og årsvis - dette må så gøres i forespørgsel inden inden omregning til streng.
Tak for hjælpen