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

Anaksimen
Aleksandar Bigovic
Niksic

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

ICQ: 197128404

Profil

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

^{14.03.2008. u 09:53 - pre 196 meseci}

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

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

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

^{14.03.2008. u 10:29 - pre 196 meseci}

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

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu

Anaksimen
Aleksandar Bigovic
Niksic

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

ICQ: 197128404

Profil

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

^{14.03.2008. u 10:33 - pre 196 meseci}

Hvala

Aleksandar Bigovic

Odgovor na temu

Davorenko
Davor Ilic
BiH

Član broj: 163509
Poruke: 63
91.191.36.*

Profil

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

^{16.03.2008. u 15:21 - pre 195 meseci}

Odgovor imas pod

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

Odgovor na temu

boki026
ing
Smederevo

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

Profil

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

^{17.03.2008. u 05:19 - pre 195 meseci}

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

Odgovor na temu