Para acabar com este problema veja isso, pego uma data que sei o formato
e transforma no que eu quero.
var
Dia,
Mes,
Ano : Word;
Data : TDate;
vStr : String;
begin
vStr := FormatDateTime('dd/mm/yyyy', Now);
Dia := StrToInt(Copy(vStr, 1, 2));
Mes := StrToInt(Copy(vStr, 4, 2));
Ano := StrToInt(Copy(vStr, 7, 4));
Data := EncodeDate(Ano, Mes, Dia);
ShowMessage(DateToStr(Data));
end;
Eduardo
Mauricio Lacerda escreveu:
>
> esqueci de dizer que o sistema precisa funcionar no windows em português e
> inglês.
>
> Em 26/03/07, Mauricio Lacerda <[EMAIL PROTECTED]
> <mailto:mauriciolac%40gmail.com>> escreveu:
> >
> > olá. Estou com um problema. Fiz um sistema em delphi e firebird e ele no
> > windows português roda normal mas quando vou rodar ele em um windows
> ingles
> > da erro ao cadastrar a data dizendo que a data é inválida. eu
> acredito que
> > seja porque a data do windows inglês é mm/dd/aaaa em vez da versão em
> > portugues dd/mm/aaaa. Alguém sabe como fazer para solucionar isso? O
> > problema é que eu estou lendo a data de um arquivo texto que está no
> formato
> > em portugues dd/mm/aaaa.
> > Muito Obrigado!
> >
> > --
> > Maurício Lacerda Savaris
> > [EMAIL PROTECTED] <mailto:mauriciolac%40yahoo.com.br>
> > Poa - RS
>
> --
> Maurício Lacerda Savaris
> [EMAIL PROTECTED] <mailto:mauriciolac%40yahoo.com.br>
> Poa - RS
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
_______________________________________________________
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo.com/mailbeta/tudonovo/
