ciao a tutti dovrei fare un crometro che dia in risultato:
Numero Anni, Numero Mesi, Numero Giorni, Numero Ore,Numero Minuti e Numero Secondi...
HO fatto due righe di script così:
codice:
Private Sub Timer1_Timer()
Dim datainizio, dataoggi As Date
Dim show As String
Label4.Caption = "25/05/2035"
Label5.Caption = Date
dataoggi = Label5.Caption
datainizio = Label4.Caption
orainizio = "08:00:00"
oraoggi = Time

dy = Year(datainizio) - Year(dataoggi)
dm = Month(datainizio) - Month(dataoggi)
dg = Day(datainizio) - Day(dataoggi)
doo = 24 + (Hour(orainizio) - Hour(oraoggi))
dmm = 60 + (Minute(orainzio) - Minute(oraoggi))
ds = 60 + (Second(orainzio) - Second(oraoggi))


show = dy & " Anni," & dm & " mesi, " & dg & " giorni, " & doo & " ore " & dmm & " minuti " & ds & " secondi!"

LBL_daro.Caption = show
End Sub
e mi funziona, solo oggi mi fa vedere:
29 anni, 4 mesi, -13 giorni....

mi aiutate a migliorarlo?
che non appaiano valori negativi...