Potreban mi je kod za racunanje vremena tj koliko ima dana od npr 13.02.2005 pa do 25.03.2006.
Znaci treba mi da izracunam koliko je dana od tog datuma do sledeceg.
Unaprijed zahvalan
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