Então Eduardo Castro, pra evitar esse problema com o farmata das datas eu
criei essa rotina:
if AnsilowerCase( ShortTimeFormat ) <> 'hh:mm' then begin
Aviso( 'O Formato da hora em seu computador não está no padrão hh:mm,
exemplo 09:57.' + #13 +
'Mude para esse formato nas configurações regionais no painel de
controle.' );
ExecuteFile( 'Control.exe', 'intl.cpl' );
Application.Terminate;
end;
if AnsilowerCase( ShortDateFormat ) <> 'dd/mm/yyyy' then begin
Aviso( 'O Formato da data em seu computador não está no padrão
dd/mm/yyyy, exemplo 14/01/1981.' + #13 +
'Mude para esse formato nas configurações regionais no painel de
controle.' );
ExecuteFile( 'Control.exe', 'intl.cpl' );
Application.Terminate;
end;
Em 10/05/07, Eduardo Castro Alves <[EMAIL PROTECTED]> 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]<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]<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/>>>
> > > > > >
> > > > > > [As partes desta mensagem que não continham texto foram
> removidas]
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > > >
> > > >
> > > > --
> > > > Eduardo Silva dos Santos
> > > > DRD Sistemas.
> > > > (27) 3218-4201
> > > > MSN: [EMAIL PROTECTED] <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/>>
> > > >
> > > > [As partes desta mensagem que não continham texto foram removidas]
> > > >
> > > >
> > >
> > >
> > >
> >
> > --
> > Eduardo Silva dos Santos
> > DRD Sistemas.
> > (27) 3218-4201
> > MSN: [EMAIL PROTECTED] <eduardo.drd%40gmail.com> <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]
> >
> >
>
>
>
--
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
[As partes desta mensagem que não continham texto foram removidas]
