Mozda ti ovo odgovara, s tim sto je meni rezultat razlika nekog datuma i danasnjeg dana i pojavljuje se u msgbox-u. Mislim da ti nece biti problem da ga preuredis.
Private Sub PrviDolazak_DblClick(Cancel As Integer)
On Error GoTo Err_PrviDolazak_DblClick
Dim Pocetak, Kraj
Dim GS%, MS%, DS%
Pocetak = Me.PrviDolazak
Kraj = Now()
GS = Year(Kraj) - Year(Pocetak)
MS = Month(Kraj) - Month(Pocetak)
DS = Day(Kraj) - Day(Pocetak) + 1
If DS < 0 Then
MS = MS - 1: DS = DS + 30
End If
If MS < 0 Then
GS = GS - 1: MS = MS + 12
End If
If GS < 0 Then
MsgBox ("Greška u unosu datuma prvog dolaska")
Exit Sub
End If
If DS = 30 Then
MS = MS + 1: DS = 0
ElseIf DS = 31 Then
MS = MS + 1: DS = 1
End If
MsgBox "Godina= " & GS & "; Meseci= " & MS & "; Dana= " & DS & ".", vbInformation, "Vreme na gradnji od poslednjeg dolaska"
Exit_PrviDolazak_DblClick:
Exit Sub
Err_PrviDolazak_DblClick:
MsgBox ("Niste uneli datum prvog dolaska")
Resume Exit_PrviDolazak_DblClick
End Sub