Nagyon szépen köszönöm a segítségeteket! Sokat segítettetek. Sikerül elkészítenem és már csak 1 apró finomság hiányzik.
Private Sub Command1_Click()
Label1 = DateDiff("m", "22/08/2008", (Now)) & " Hónap"
End Sub
Private Sub Command2_Click()
Label1 = DateDiff("yyyy", "22/08/2008", (Now)) & " Év"
End Sub
Private Sub Command3_Click()
Label1 = DateDiff("d", "22/08/2008", (Now)) & " Nap"
End Sub
Private Sub Form_Load()
Label1 = DateDiff("d", "22/08/2008", (Now)) & " Nap"
End Sub
Rákattintok a Command2-re akkor 1 évet ír..De ez még nincs egy év :S