se sei sicuro del formato (gg/mm/aa)

potresti fare una funzione che ti converte il valore in data in modo di essere sicuro che non ci siano problemi con il formato data del server
facendo per es

finction ConvertData(strData)
Dim lngDay
Dim lngMonth
Dim strYear

Dim dtData


strYear = Right(strData, 2)
lngMonth = CLng(Mid(strData, 4, 2))
lngDay = CLng(Left(strData, 2))

dtData = CDate("1/1/" & strYear)
dtData = DateAdd("m", (lngMonth - 1), dtData)
dtData = DateAdd("d", (lngDay - 1), dtData)
ConvertData = dtData
end function

altrimenti potresti confrontare anni , mesi , giorni


FORZA LA MAGICA ROMA

datadal = dateserial(dalanno,dalmese,dalgiorno)
dataal = dateserial(alanno,almese,algiorno)

così sono variabili di tipo date e non hai problemi di formato della data..
Come facevi tu copnfrontavi due date con il grave baco per cui (indipendentemente dall'anno) il 22/1 era > del 1/12.....
Al più usavi un cdate... ma invece di tutto sto casino usi date serial..

Traspi.net
Da Torino al mondo Internet il magazine di cultura, creatività e informazione.
www.traspi.net
Mauro Tortone
webmaster@traspi.net