Se a data estiver no formato "mm/dd/aaaa" não vai funcionar desta forma, quando li a pergunta foi a primeira coisa que pensei tb.
Eduardo Eduardo Silva dos Santos escreveu: > > que tal assim: > > Try > StrToDate( '01/' + MaskEdit.Text ); > except > ShowMessage( 'Data inválida' ); > end; > > simples e rasteiro, > > Em 09/05/07, Eduardo Castro Alves <[EMAIL PROTECTED] > <mailto:ecastroa_edu%40yahoo.com.br>> escreveu: > > > > Ve se ajuda. > > > > if (Trim(Copy(MaskEdit1.Text, 2))) <> '' then > > case StrToInt(Trim(Copy(MaskEdit1.Text, 2))) of > > 1..12 : Null > > else > > ShowMessage('Data invalida !'); > > end; > > //ou > > if (Trim(Copy(MaskEdit1.Text, 2)) <> '') and > > ((StrToInt(Trim(Copy(MaskEdit1.Text, 2))) < 1) or > > (StrToInt(Trim(Copy(MaskEdit1.Text, 2))) > 12)) then > > ShowMessage('Data invalida'); > > > > Eduardo > > > > Raphae Fonseca escreveu: > > > > > > Boa tarde amigos da lista > > > > > > preciso de uma ajuda de vcs. num maskeit eu mm/aaaa. > > > > > > gostaria de fazer a critica se por acaso o usuário digitar 13/2007, > > > dando uma mensagem de erro. > > > > > > algum amigo poderia me ajudar?? > > > > > > Raphael > > > > > > __________________________________________________ > > > Fale com seus amigos de graça com o novo Yahoo! Messenger > > > http://br.messenger.yahoo.com/ <http://br.messenger.yahoo.com/> > <http://br.messenger.yahoo.com/ <http://br.messenger.yahoo.com/>> > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > > > > > -- > Eduardo Silva dos Santos > DRD Sistemas. > (27) 3218-4201 > MSN: [EMAIL PROTECTED] <mailto:eduardo.drd%40gmail.com> > Site: http://www.drdsistemas.com/ <http://www.drdsistemas.com/> > > [As partes desta mensagem que não continham texto foram removidas] > >
