Différence entre deux dates

Bonjour ,

Dans ce code , j'essaie d'obtenir avec la variable Nbjour la différence en jour en entre la date du jour et la date Date Absence , seulement le résultat n'est pas celui-ci que j'attends.

Merci

Sub TestAlerte()

Dim DateAbsence As Date

Dim Nbjour As Date

DateAbsence = CDate("10/10/2013")

Nbjour = DateAbsence - Date

If Date > CDate("20 / 9 / 2013") And Date < CDate("11 / 10/ 13") Then

MsgBox (" Le : ") & DateAbsence & (" Dans : ") & Nbjour & " Toto :" & vbCr & " Formation ", vbInformation

End If

End Sub

Bonjour

Déclares ta variable Nbjour en Long (ou Integer)

Dim Nbjour As Long