Difference between dates failes

[karltlbm]

Hello, i have a a problem when i try to reach the number of days there are between 2 dates, my code is :

'COMPLETED
Range("D3").Select
Do While ActiveCell <> Empty
    ActiveCell.Offset(1, 0).Select
Loop
    ActiveCell.Value = CLng(date) - CLng(List_Projet(id_P).date_debut_P)
    
'REMAINING
Range("E3").Select
Do While ActiveCell <> Empty
    ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = CLng(List_Projet(id_P).deadline_P) - CLng(Range("G2").Value)

The remaining part works but not the completed days, can you guys help ?

 

[AOB]

Difficult to isolate a problem when we have no visibility to what your "List_Projet(id_P)" object/type is or holds, nor its associated "date_debut_P" property.

Having said that, why not use the DateDiff function rather than converting dates to long integers and subtracting them?

ActiveCell.Value = DateDiff("d", date, List_Projet(id_P).date_debut_P)