Ola galera. Vi que vcs estão a procura de uma função simples e eficiente de converção de data. Aqui esta a minha contribuição:
Function TFrmCadExtintor.MDA(sData: String):String; Begin Result := Copy(sData,4,2) + '/' + Copy(sData,1,2) + '/' + Copy (sData,7,4); End; Espero q vcs gostem desta função. --- Em delphi-br@yahoogrupos.com.br, "Claudiney Cogo - Listas" <[EMAIL PROTECTED]> escreveu > > Olá Maurício... > > Desculpe a falha.. esqueci de dizer... tem que acrescentar a SysUtils na uses do DPR. > > Não sei dizer se tem problema com versão, acredito que não. Estou usando Delphi 7. > > Claudiney Cogo > N2 Sistemas e Soluções em Informática Ltda. > Av. São Paulo, 172 - 15º Andar - Sala 1505 > CEP 87013-908 - Maringá - Pr > Tel. 44- 3222-6053 > [EMAIL PROTECTED] > > ----- Original Message ----- > From: Mauricio Lacerda > To: delphi-br@yahoogrupos.com.br > Sent: Monday, March 26, 2007 5:02 PM > Subject: Re: [delphi-br] Re: Dúvida em data no windows ingles > > > tentei assim como tu disse mas não funciono. ele não reconhece essas > propriedades ThousandSeparator, DecimalSeparator, DateSeparator, > ShortDateFormat. Uso o delphi 5. será que é porque é delphi 5? teria alguma > outra forma? teria que colocar algum objeto no uses? > > Obrigado! > > Em 26/03/07, Claudiney Cogo - Listas <[EMAIL PROTECTED]> > escreveu: > > > > Você pode utilizar essas linhas no seu projeto pra configurar o seu > > sistema: > > > > ThousandSeparator := '.'; > > DecimalSeparator := ','; > > DateSeparator := '/'; > > ShortDateFormat := 'dd/mm/yyyy'; > > > > Ele vai passar a responder nesse formato de data sempre, independente do > > que tiver configurado no windows. > > Coloque esse código no fonte do seu projeto, no .dpr, logo após o begin. > > > > Claudiney Cogo > > N2 Sistemas e Soluções em Informática Ltda. > > Av. São Paulo, 172 - 15º Andar - Sala 1505 > > CEP 87013-908 - Maringá - Pr > > Tel. 44- 3222-6053 > > [EMAIL PROTECTED] <claudiney%40n2solutions.com.br> > > > > > > ----- Original Message ----- > > From: Mauricio Lacerda > > To: [EMAIL PROTECTED] <lista-delphi% 40yahoogrupos.com.br> ; > > delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> > > Sent: Monday, March 26, 2007 3:41 PM > > Subject: [delphi-br] Re: Dúvida em data no windows ingles > > > > esqueci de dizer que o sistema precisa funcionar no windows em português e > > inglês. > > > > Em 26/03/07, Mauricio Lacerda <[EMAIL PROTECTED]<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] <mauriciolac%40yahoo.com.br> > > > Poa - RS > > > > -- > > Maurício Lacerda Savaris > > [EMAIL PROTECTED] <mauriciolac%40yahoo.com.br> > > Poa - RS > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > -- > Maurício Lacerda Savaris > [EMAIL PROTECTED] > Poa - RS > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > [As partes desta mensagem que não continham texto foram removidas] >
