Ricardo, EncodeDate tem no D5 tb. Eduardo
Ricardo César Cardoso escreveu: > > Apoiado... o melhor mesmo é usar uma função chamada EncodeDate que > está na unit DateUitls (só existe do D6 em diante). > > Colocando num bloco try.. except fica muito direto como num dos > exemplos mostrados. > > Sds, > Ricardo. > > Eduardo Castro Alves <[EMAIL PROTECTED] > <mailto:ecastroa_edu%40yahoo.com.br>> escreveu: Isto não da aplicação > e sim as configurações regionais do Windows, então > cada usuário do sistema operacional usa de um jeito. > > Em uma empresa que eu trabalhei, tive um problema exatamente por causa > disso, teve um "infeliz" que usava a data com o formato "mm-dd/yyyy", o > usuario disse que tinha varios softwares e todos funcionavam com este > formato de data, então por que o meu sistema não poderia funcionar assim. > > Passei a usar sempre Decode e Encode quando trabalho com data e sempre > tentou prever este tipo de situação. > > Eduardo > > Eduardo Silva dos Santos escreveu: > > > > acho que ninguem usa data nesse formato. pelo menos nunca vi em > aplicações > > comerciais. > > > > Em 10/05/07, Eduardo Castro Alves <[EMAIL PROTECTED] > <mailto:ecastroa_edu%40yahoo.com.br> > > <mailto:ecastroa_edu%40yahoo.com.br>> escreveu: > > > > > > 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> > > <mailto:ecastroa_edu%40yahoo.com.br><ecastroa_edu%40yahoo.com.br> > > > > <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/>> > <http://br.messenger.yahoo.com/ <http://br.messenger.yahoo.com/> > > <http://br.messenger.yahoo.com/ <http://br.messenger.yahoo.com/>>> > > > > <http://br.messenger.yahoo.com/ <http://br.messenger.yahoo.com/> > <http://br.messenger.yahoo.com/ <http://br.messenger.yahoo.com/>> > > <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> > <mailto:eduardo.drd%40gmail.com> > > <eduardo.drd%40gmail.com> <mailto:eduardo > > > .drd%40gmail.com> > > > > Site: http://www.drdsistemas.com/ <http://www.drdsistemas.com/> > <http://www.drdsistemas.com/ <http://www.drdsistemas.com/>> > > <http://www.drdsistemas.com/ <http://www.drdsistemas.com/> > <http://www.drdsistemas.com/ <http://www.drdsistemas.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> > <mailto:eduardo.drd%40gmail.com> > > Site: http://www.drdsistemas.com/ <http://www.drdsistemas.com/> > <http://www.drdsistemas.com/ <http://www.drdsistemas.com/>> > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > __________________________________________________ > Fale com seus amigos de graça com o novo Yahoo! Messenger > http://br.messenger.yahoo.com/ <http://br.messenger.yahoo.com/> > > [As partes desta mensagem que não continham texto foram removidas] > >