validar data pelo mes
02/04/2003
0
meu problema é o seguinte trabalho com notas de lançamentos de entrada e saida e gostaria de evitar um erro grave, quando estou lançando eu digito a data 10/10/2002 e o mes de lançamento da nota não é este e sim 10/11/2002 como faço para travar o mes e só aceitar o mes correto agradeço toda ajuda .........
Anonymous
Curtir tópico
+ 0
Responder
Posts
02/04/2003
Midas
[quote:294a873f8c=´cosmo pereira´]meu problema é o seguinte trabalho com notas de lançamentos de entrada e saida e gostaria de evitar um erro grave, quando estou lançando eu digito a data 10/10/2002 e o mes de lançamento da nota não é este e sim 10/11/2002 como faço para travar o mes e só aceitar o mes correto agradeço toda ajuda .........[/quote:294a873f8c]
var
dttrava:tdatetime;
dtexemplo:tdatetime;
begin
dttrava:=strtodate(´12/10/2002´);
dtexemplo:=strtodate(edit1.text);
if dttrava>dtexemplo then
showmessage(´Data invalida!´);
end;
apenas um exemplo manipule da forma que quiser ...
var
dttrava:tdatetime;
dtexemplo:tdatetime;
begin
dttrava:=strtodate(´12/10/2002´);
dtexemplo:=strtodate(edit1.text);
if dttrava>dtexemplo then
showmessage(´Data invalida!´);
end;
apenas um exemplo manipule da forma que quiser ...
Responder
Clique aqui para fazer login e interagir na Comunidade :)