ho sbagliato ho postato un pezzo di codice vecchio di prova...
codice:
Private Sub Timer1_Timer()
       

Dim datainizio, dataoggi As Date
Dim show As String
Dim G As Double
Dim GG As Long
Dim MM As Long
Dim YY As Long

dataoggi = Date
datainizio = Text1.Text
oraoggi = Time
orainizio= Text2.Text

G = DateDiff("d", dataoggi, datainizio)
YY = Int(G / 365.5)
G = (G - (YY * 365.5))
MM = Int(G / 30.5)
GG = G - (MM * 30.5)
   
    show = YY & " anni, " & MM & " mesi, " & GG & " giorni "
Ecco questo mi funziona, volevo aggiungerci la parte del calcolo di ore minuti e secondi.