Vilket djä trams !

Omvandla alla datum till en Long Integer.

Idag är det 39886 efter 1900-01-01 Gregoriansk tideräkning.(Kalender)
OCH ! du kan även använda -(minus) vad var 6/11 1632 för dag ? (GustavII Adolf +)

<code>
Dim dNow As Long, myBirth As Long
dNow = CDate(Date) ' 14/3 2009 = 39886
MsgBox "Betalning emotses före " & Format$(dNow + 30, "yyyy-mm-dd") '
myBirth = CDate("1939-06-02")
MsgBox "Sven är " & Format$(dNow - myBirth, "yy-mm-dd") & " old"
</code>