Tidsforskel på Datoer

Jeg har forsøgt at få følgende funktion til at virke, og det gør den sådan set også! I hvert fald nogen gange ;-)

<%
    '// strStart    = Den dato hvor udregningen skal starte fra, skal være angivet som [31-12-9999 24:59:59]
    '// strSlut    = Den dato hvor udregningen skal slutte, skal være angivet som [31-12-9999 24:59:59]

    Function getDateDiff(strStart,strSlut)
        strAar        = Round(DateDiff("d",strStart,strSlut)/365,0)
        strDage        = DateDiff("d",strStart,strSlut)-(strAar*365)
        strTimer    = DateDiff("h",strStart,strSlut)-(strAar*365*24)-(strDage*24)
        strMin        = Round((DateDiff("s",strStart,strSlut)-(strAar*365*24*60*60)-(strDage*24*60*60)-(strTimer*60*60))/60,0)
        strSek        = Round((((DateDiff("s",strStart,strSlut)-(strAar*365*24*60*60)-(strDage*24*60*60)-(strTimer*60*60))/60)-strMin)*60,0)
        If strSek < 0 Then
            strSek = strSek+60
            strMin = strMin-1
        End If
        getDateDiff = strAar & " år " & strDage & " dage " & strTimer & " timer " & strMin & " minuter " & strSek & " sekunder "
    End Function
%>

Hvis der er inbygget en funktion i ASP / IIS der ikke bare afrunder, men istedet afkorter, altså altid ned!

Lidt ligesom SKATTEFAR!

Håber I kan hjælpe!

/Cowman