Evo, ukratko o cemu se radi:
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)
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]