[ Anaksimen @ 14.03.2008. 09:53 ] @
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


[ Getsbi @ 14.03.2008. 10:29 ] @
Ne treba ti kod već funkcija DateDiff(). Pogledaj u Helpu.
[ Anaksimen @ 14.03.2008. 10:33 ] @
Hvala
[ Davorenko @ 16.03.2008. 15:21 ] @
Odgovor imas pod

http://www.elitesecurity.org/t297995-0#1777426
[ boki026 @ 17.03.2008. 05:19 ] @
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