Eduardo Silva dos Santos wrote: > 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;
Não é o SO do usuário quem tem que se adaptar ao seu software, é o seu software que tem que se adaptar ao SO do usuário. -- Joao Morais > > 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] >>> >>> >> >> > > >
