Devi usare Datediff, vedi questo esempio copiato dall'help:
Ciaocodice:Dim TheDate As Date ' Dichiara le variabili. Dim Msg TheDate = InputBox("Digitare una data") Msg = "Giorni dalla data odierna: " & DateDiff("d", Now, TheDate) MsgBox Msg
Devi usare Datediff, vedi questo esempio copiato dall'help:
Ciaocodice:Dim TheDate As Date ' Dichiara le variabili. Dim Msg TheDate = InputBox("Digitare una data") Msg = "Giorni dalla data odierna: " & DateDiff("d", Now, TheDate) MsgBox Msg