Validação de Data
Pessoal estou iniciando agora com Delphi, e tenho um problema pra validar 3 edits de data do meu Sistema, Um de Data de Nascimento, Data de inicio e Data de Agendamento.
Quando digita uma data invalida EX: 30/02/2000 ele da uma mensagem nada agradável em inglês e quando o usuário digita algo la dentro e apaga e sai do campo da uma mensagem também, falando que a data digitada e invalida.
Alguem teria um código que resolva isso?
Agradeço deis de Já.
Quando digita uma data invalida EX: 30/02/2000 ele da uma mensagem nada agradável em inglês e quando o usuário digita algo la dentro e apaga e sai do campo da uma mensagem também, falando que a data digitada e invalida.
Alguem teria um código que resolva isso?
Agradeço deis de Já.
João Tavares
Curtidas 0
Respostas
Rafael Mattos
05/05/2011
function DataValida(StrD: String): Boolean;{Testa se uma data é valida}begin Result := true; try
if (StrD <> ' / / ') then if (StrD <> '') then StrToDate(StrD); except on EConvertError do Result:=False; end;
if Result = false then MessageDlg('Data Invalida.',mtError,[mbOK],0);end;Exemplo: Se e data não for valida vai retornar FALSE
begin DataValida(mskData.text);end;
GOSTEI 0