Date til number

prøv at rette if'en til:


If sincemonth < 0 then
    sinceage = sinceage - 1
ElseIf sinceday < 0 then
    sinceage = sinceage - 1
End If

Jeg bruger disse funktioner til at ændre fra dato til tal og omvent.

//akj

'**********************************
'* Dato til tal
'**********************************
Function Date2SQL(sDate)
    Date2SQL = Year(sDate) & Right("0" & Month(sDate), 2) & Right("0" & Day(sDate), 2)
End Function


'**********************************
'* Tal til dato
'**********************************

Function SQL2Date(sDate)
    if len(sDate) > 0 then
        SQL2Date = Right(sDate, 2) & "-" & Mid(sDate, 5, 2) & "-" & left(sDate,4)
    end if   
End Function

det fattede jeg så ikke lige helt....

jeg kunne godt nok ikke bruge det men tak for opmærksomheden...