Senhores, estou com problemasso...

Fiz um aplicativo simples, mas cheio de coisinhas como foi me pedido, mas ele trabalha demais com datas e, apesar de não estar reportando erros, muitas vezes ele não funciona corretamente. Eu sei que isso é um erro de lógica, mas essa lógica é bem complicada.

O programa deve observar a hora para ver como listar os contratantes e ainda listar um quadro de reserva, como mostra abaixo. O grande problema é que ele está instalado em três máquinas e parece que cada uma trabalha de um jeito diferente. No pc que eu programei, esta tudo ok! Tudo funciona. Nos outros, um mostra contratantes, outro não. O que pode ser? como usar o método de datas em access corretamente pra ficar igual pra todos os sistemas? O código está abaixo:

 

 

vardata1 = Format(Date, "mm/dd/yyyy")

 

List1.Clear
List2.Clear
List3.Clear
Text1.Text = Empty
Text2.Text = Empty
Text3.Text = Empty
Text4.Text = Empty
Text5.Text = Empty
Text6.Text = Empty

Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.CursorLocation = adUseClient
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\servidor253ancocontratante.mdb;Jet OLEDB:Database ;"

rs.Open "select * from contratante where contratante.situacao = '1' and contratante.disponivel = 1 and ( data = #" & vardata1 & "# or data1 = #" & vardata1 & "# )", cnn, adOpenStatic, adLockOptimistic
ei:
If Not rs.EOF Then
List3.AddItem rs!nome
rs.MoveNext
GoTo ei
End If
rs.Close

rs.Open "select * from contratante where contratante.situacao = '0' and contratante.disponivel = 1 and ( data = #" & vardata1 & "# or data1 = #" & vardata1 & "# )", cnn, adOpenStatic, adLockOptimistic
If Time < "11:01" Then

Label2.Caption = "Solicitante de " & WeekdayName(Weekday(vardata1))
eu:
If Not rs.EOF Then
List1.AddItem rs!nome
rs.MoveNext
GoTo eu
End If

Else
eu1:
If Not rs.EOF Then
List3.AddItem rs!nome
rs.MoveNext
GoTo eu1
End If

vardata1 = vardata1 + 1
rs.Close
Label2.Caption = "Solicitante de " & WeekdayName(Weekday(vardata1))
rs.Open "select * from contratante where contratante.situacao = '0' and contratante.disponivel = 1 and ( data = #" & vardata1 & "# or data1 = #" & vardata1 & "# )", cnn, adOpenStatic, adLockOptimistic
eu2:
If Not rs.EOF Then
List1.AddItem rs!nome
rs.MoveNext
GoTo eu2
End If

End If
rs.Close
End Sub

Este é o form load, se alguem puder me ajudar, eu agradeço.

MR,

 

Veja se no micro do cliente (que nao funciona) ele esta com o Country correto (igual ao seu) pois se o formato da data estiver diferente ele vai fazer zona. Veja se o seu formato é dd/mm/yyyy e coloque no cliente o mesmo.

Caro amigo Mr ...

 

Enfrentei esse problema também com datas e depois de muito alterar meu código,

percebi que o erro não éra meu ... ! e sim das configurações regionais de datas do Painel de controle do meu Windows.

 

Pelo que perecebi vc trabalha na aplicação com Format(Date, "mm/dd/yyyy")

Se tudo fucniona na sua máquina normalmente, significa que não é erro no código,

verifique a configuração regional das outras máquinas e veja se a data esta no formato "mm/dd/yyyy".

 

ok.

Abraço

Andy.Garcia