[es] - Pomoc oko racunanja dana npr od 13.01.2005 pa do ...

Anaksimen
Aleksandar Bigovic
Niksic

Član broj: 74081
Poruke: 3
*.crnagora.net.

ICQ: 197128404
Sajt: www.bigo.users.cg.yu

Profil

Pomoc oko racunanja dana npr od 13.01.2005 pa do ...

^{14.03.2008. u 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

Aleksandar Bigovic

^{14.03.2008. u 09:53}

Getsbi
Miroljub Zahorjanski
Vršac

Moderator
Član broj: 124608
Poruke: 1202
79.101.246.*

Profil

Re: Pomoc oko racunanja dana npr od 13.01.2005 pa do ...

^{14.03.2008. u 10:29}

Ne treba ti kod već funkcija DateDiff(). Pogledaj u Helpu.

I'll know what I want, when I see it.

^{14.03.2008. u 10:29}

Anaksimen
Aleksandar Bigovic
Niksic

Član broj: 74081
Poruke: 3
*.crnagora.net.

ICQ: 197128404
Sajt: www.bigo.users.cg.yu

Profil

Re: Pomoc oko racunanja dana npr od 13.01.2005 pa do ...

^{14.03.2008. u 10:33}

Hvala

Aleksandar Bigovic

^{14.03.2008. u 10:33}

Davorenko
Davor Ilic
BiH

Član broj: 163509
Poruke: 14
91.191.36.*

Profil

Re: Pomoc oko racunanja dana npr od 13.01.2005 pa do ...

^{16.03.2008. u 15:21}

Odgovor imas pod

http://www.elitesecurity.org/t297995-0#1777426

^{16.03.2008. u 15:21}

boki026
Smederevo

Član broj: 175089
Poruke: 34
*.internet.krstarica.net.

Profil

Re: Pomoc oko racunanja dana npr od 13.01.2005 pa do ...

^{17.03.2008. u 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

^{17.03.2008. u 05:19}