[VB6] Sottrarre due date

[oregon]

Ad esempio ...

    Dim d1 As Date
    Dim d2 As Date
    Dim g As Long
    
    d1 = CDate("01/01/2000") ' Inserisci la data del tuo compleanno
    d2 = Now
    
    g = DateDiff("d", d1, d2)
    Print g  ' Giorni passati dal tuo compleanno