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

[ srdj_j @ 03.04.2008. 21:51 ] @

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]}

[ Aleksandar Ružičić @ 03.04.2008. 22:42 ] @

probaj sa DateDiff funkcijom

[ Eurora3D Team @ 04.04.2008. 01:33 ] @

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

[ srdj_j @ 04.04.2008. 18:59 ] @

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!