Fórum data #397024
10/03/2011
0
e cm valido peguei uns codigos na net so q sta dando erro
obrigada
Alessandra
Curtir tópico
+ 0Posts
10/03/2011
Alessandra
Gostei + 0
10/03/2011
Marco Salles
Gostei + 0
10/03/2011
Alessandra
except
ShowMessage ('Data Inválida!');
end;
end;
to usando no onexit
Gostei + 0
10/03/2011
Rodrigo Mattos
if Copy(MaskEdit1.Text,7,10) > Copy(FormatDateTime('dd/mm/yyyy',Date),7,10) then
begin
ShowMessage('Data Inválida!');
end;
try
StrToDate(MaskEdit1.Text);
except
ShowMessage('Data Inválida!');
end;
Espero ter Ajudado.
http://mundodoprogramador.wordpress.com
Gostei + 0
10/03/2011
Emerson Nascimento
var
ano: integer;
begin
try
ano := YearOf(StrToDate(MaskEdit1.Text));
if ano <> YearOf(Sysutils.Date) then
RaiseException(0, 0, 1, @ano);
except
ShowMessage ('Data Inválida!');
end;
end;
esse código vai exibir a mensagem se a data for inválida ou se o ano digitado for diferente do ano atual.
lembre-se que para utilizar a função YearOf() é necessário adicionar a unit DateUtils à cláusula uses.
Gostei + 0
10/03/2011
Alessandra
como se usa a unit ou melhor cm coloco isso unit DateUtils
na unit? to começando agora so um pouco digamos q leiga
Gostei + 0
10/03/2011
Marco Salles
como se usa a unit ou melhor cm coloco isso unit DateUtils
na unit? to começando agora so um pouco digamos q leiga
Form1: TForm1; implementation uses
DateUtils; //////////////////Aqui Hoooooooooooooo {$R *.dfm}
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)