Dim Datum1, Datum2 As Date
Datum1 = Now ' "Now" kan användas istället för att skriva in dagens datum.
Datum2 = "2002-01-01" ' Datumet skall skrivas så här: ÅÅÅÅ-MM-DD HH:MM:SS
Text1.Text = "Antal dagar från idag " & DateDiff("d", Datum1, Datum2)
Dim Datum1, Datum2 As Date
Datum1 = Now ' "Now" kan användas istället för att skriva in dagens datum.
Datum2 = "2002-01-01" ' Datumet skall skrivas så här: ÅÅÅÅ-MM-DD HH:MM:SS
Text1.Text = "Antal dagar från idag " & DateDiff("d", Datum1, Datum2)