Coloque essa função no evento OnExit do MaskEdit. Ela testa se a data é válida e também completa o ano acima de 2000. Ex.: Se o usuario digita 25/07/5, ela completa automaticamente para 25/07/2005.
procedure CompletaData (Edit : TMasKEdit); var Texto1, Texto2 : string; begin if (Edit.Text = ' / / ') then Exit; Texto1 := Copy (Edit.Text, 1, 6) + '2000'; Texto2 := Trim (Copy (Edit.Text, 7, 4)); Edit.Text := Copy (Texto1, 1, Length (Texto1)- Length(Texto2)) + Texto2; try StrToDate(Edit.Text); except MessageDlg('Data inválida', mtError, [mbOk], 0); Edit.Clear; Edit.SetFocus; end; end; Como sempre as minhas dúvidas são muito simples por eu ser iniciante... estou utilizando o Maskedit para entrada de Data, tem alguma função que faz a validação da Data?? para que o usuario não entra com 13 onde o número de mês no maximo é 12.. mesma coisa com dia dependendo do mês..28 , 30,31 dias em um mês do ano,, e tb salvar a data em BD do SQL server 2000 ele dá um erro se caso for em branco,,,( preciso mesmo é de alguma função para validar). Tenho outra dúvida tb como eu faço para adicionar valores com duas casas decimais do tipo (120,00) desde a entrada no formulario até o BD SQL server ?? o BD eu coloquei valor do tipo Float. Minhas dúvidas por enquanto são estas,,, Agradeço a quem me ajudar !!! Cristiano __________________________________________________ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] ------------------------------------------------------------------------------ Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html