COMPARAR DATAS COM A DO SISTEMA

USUARIO.EXCLUIDOS 01/08/2007 17:51:37
#228898
Pessoal..... Estou como uma situação aqui que devo compara uma Data com a Data do Sistema e quero fazer o seguinte, Se a Data que eu escolher num Text for Menor que a do Sistema, fas tal coisa, Agora se for MAIOR fas outra, tem como fazer isso???????

Muito Obrigado!
USUARIO.EXCLUIDOS 01/08/2007 18:01:01
#228902

Tente da forma abaixo

'Date retorna a Data do sistma.
If CDate(Text1.Text) < Date Then
   'faz tal coisa
Else
   'faz outra
End if
LCSD 02/08/2007 09:26:06
#228991
CONSELHO DE AMIGO: Nunca faça comparação com a data do Sistema Operacionar da máquina, pois o usuário pode mudar. Pegue a data do SERVIDOR.

Se VC estiver usando o SQL SERVER, faça assim:


dim Data_SO as date
rs.open "select getdate() as Data",.............................. (rotina sua de conectar a base)
DATA_SO = rs!data
If cdate(txt)<DATA_SO then
   'Rotina 1
else
   'Rotina 2
end if
USUARIO.EXCLUIDOS 03/08/2007 21:51:29
#229440
Obrigadíssimo pela ajuda...... Tanto um como o outro jeito funcionou PERFEITAMENTE!!!!!!!

Obrigado MESMO!
Tópico encerrado , respostas não são mais permitidas
Voltar