Jag har gjort en liten funktion som jämför en tid i databasen med den aktuella tiden.
Den ska skriva ut antalet timmar samt minuter som skilljer
Problemet är att efter ett tag buggar den ut och tidsskillnaden blir inte vad den borde vara.

Jag tror att den ballar ut när minuterna i d2(Now) är mindre än i d1(datum).

Datumen som jämförs har detta format: 2003-01-29 08:00

Nån annan kanske ser vad det är för fel.
Oerhört tacksam för hjälp.

<%

d1 = rs("datum")

rs.Close

d1 = TDateTime(d1)

d2 = Now
d2 = TDateTime(d2)

Function PosVal(val)
If val < 0 Then
PosVal = val * -1
Else
PosVal = val
End If
End Function

timmar = DateDiff("h", d1, d2)
minuter = DateDiff("n", d1, d2) - (60 * timmar)

tid = PosVal(timmar) & "h " & PosVal(minuter) & "min"

%>

Ta enbart ut antalet minuter. Därefter får du ju lätt antalet timmar genom heltalsdivision med 60. Multiplicera antalet timmar med 60 och dra bort detta från det totala antalet minuter och du får hur många minuter som blir över.

Exempel:

Datediff returnerar 528 minuter.

528 / 60 = 8 timmar
8 * 60 = 480 minuter som dessa timmar står för.
528 - 480 = 48 minuter blir över efter att man räknat bort timmarna.

Svar: 8 timmar och 48 minuter.