Pessoal tenho um problema...

[Fauze 0]

Pessoal tenho um problema ...

   dtIni = Int(dtpIni.Value) & " " & dtpHoraIni   dtFim = Int(dtpFim.Value) & " " & dtpHoraFim   (onde dtIni = 08/02/2007 13:00:00)   (     dtFim = 31/01/2007 23:59:59)   Sql = Sql & "Where caixa = " & vId_Usuario   Sql = Sql & " and data_mvt Between #" & Format(dtIni, "yyyy/mm/dd hh:mm:ss") & "# and #" & Format(dtFim, "yyyy/mm/dd hh:mm:ss") & "#"   Sql = Sql & " order by operacao, data_mvt"   rstMovimento.Open Sql, cnn, adOpenKeyset, adLockOptimistic   If dtIni > dtFim Then      Exit Sub      End If

Essa crítica não funciona ... print dtini > dtfim, retorna false !! Alguem sabe como resolver ???ObrigadoFauze

[Lilian Butkevicis 0]

Fauze,

ao invés de usar dtIni = Int(dtpIno.Value), tente dtIni = Cdate(dtpIno.Value)

E o mesmo para data final.

[Fauze 0]

Lilian,

 

Acho que resolveu.

 

Obrigado.

 

Fauze http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif