[es] - Jednostavno ali ja nemam rjesenje...problem sa poredjenjem date tipa podataka

srdj_j
Vladan Jeknic
Podgorica

Član broj: 115342
Poruke: 13
213.133.24.*

Profil

Jednostavno ali ja nemam rjesenje...problem sa poredjenjem date tipa podataka

^{03.04.2008. u 21:51 - pre 196 meseci}

Odma da kazem, da sam pogledao teme u vezi ovog problema, ali nisam nasao nista sto bi mi pomoglo.
Evo, ukratko o cemu se radi:

Code:

lista_zad_rad.Open "SELECT * FROM DUG WHERE SIF_RAD = " & srad & " AND (STANJE = 1 OR STANJE = 2) ", db, adOpenDynamic, adLockOptimistic '
m = lista_zad_rad.RecordCount
     For j = 1 To m
        datumt = lista_zad_rad.Fields("DATUM")  ' izdvajam datum iz polja datog zapisa
        datumkup = CDate(datumt)  ' konvertujem ga u dat. tip pod (vjerovatno suvisno, jer odgovarajuce polje u accessovoj bazi tipa date)

        If datumkup < datum_p Then  ' sada vrsim poredjenje datuma(1)
        If CDbl(datumkup) < CDbl(datum_p) Then  ' pokusao sam i ovako...(2)
        If FORMAT (datumkup, 'dd/mm/yyyy') < FORMAT (datum_p, 'dd/mm/yyyy')   '...I OVAKO (3)
        ..................................
        ..................................
        ..................................

Vrjednost datum_p sam dobio unoseci ga sa forme, tj. Text polja - gdje sam koristio funkciju IsDate (za provjeru korektnosti datuma)

Code:

Private Sub Text1_Click()
  If Text1.Text <> "" Then
      If IsDate(Text1.Text) Then
         datum_p = CDate(Text1.Text)
      Else
        MsgBox " DATUM NIJE KOREKTNO NAPISAN"
     End If
  End If
End Sub

Pomoc bi mi puno znacila. Hvala!

_{[Ovu poruku je menjao Aleksandar Ružičić dana 03.04.2008. u 23:37 GMT+1]}

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: Jednostavno ali ja nemam rjesenje...problem sa poredjenjem date tipa podataka

^{03.04.2008. u 22:42 - pre 196 meseci}

probaj sa DateDiff funkcijom

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
91.148.113.*

+7 Profil

Re: Jednostavno ali ja nemam rjesenje...problem sa poredjenjem date tipa podataka

^{04.04.2008. u 01:33 - pre 196 meseci}

Napokon da se neko potrudi i stavi kod :)
Napisao sam ti na brzinu kod ... jeste komplikovan ali je sigurniji u slucaju nekih problema sa regionalnim podesavanjima windowsa (mislim manje ces da ispravljas :) )
Imas na formi 2 TextBox-a Text1 i Text2 i CommandButton zvano Command1 :)

Code:

Private Sub Command1_Click()
Dim Date1 As Date, Date2 As Date
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "Unesite datum u oba polja", vbInformation
Exit Sub
End If
If Not IsDate(Text1.Text) Or Not IsDate(Text2.Text) Then
MsgBox "DATUM NIJE KOREKTNO NAPISAN", vbInformation
Exit Sub
End If
Date1 = CDate(Text1.Text)
Date2 = CDate(Text2.Text)
'Ovde imamo dva tacna datuma
Dim Day1 As Integer, Day2 As Integer, Month1 As Integer, Month2 As Integer, Year1 As Integer, Year2 As Integer
Day1 = Day(Date1)
Day2 = Day(Date2)
Month1 = Month(Date1)
Month2 = Month(Date2)
Year1 = Year(Date1)
Year2 = Year(Date2)
'Ovde imamo 2 datuma razdvojena na dan , mesec i godinu
'Sad mozes da koristis logicke operacije And i / ili Or za ono sto ti treba
'Primer
If Day1 > Day2 And Month1 = Month2 And Year1 = Year2 Then MsgBox "Prvi dan je veci a ostalo je isto" Else MsgBox "Prvi dan je manji ili jednak a ostalo je isto"
End Sub

HomePage http://www.eurora3d.com

Odgovor na temu

srdj_j
Vladan Jeknic
Podgorica

Član broj: 115342
Poruke: 13
213.133.24.*

Profil

Re: Jednostavno ali ja nemam rjesenje...problem sa poredjenjem date tipa podataka

^{04.04.2008. u 18:59 - pre 196 meseci}

Hvala na pomoci!
Ja sam u medjuvremenu uspio da dobijem trazeni rezultat.

dat_presjeka = rbr_mjs & "/" & dat_gran & "/" & "2008" - formiram string (gdje promjenljivoj rbr_mjs dodjeljujem vrjednost preko Text polja)
datum_p = CDate(dat_presjeka) ' zatim je konvertujem u date tip,
dat_pr = Format(datum_p, "mm/dd/yyyy") ' a zatim vrsim formatiranje

Zatim sam poredio njihove vrjednosti, konvertovane u real. tip pod.
If CDbl(datumkup) < CDbl(dat_pr) Then
..........................................
..........................................

Pozdrav svima!

Odgovor na temu