| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
lfgdf
Novato
Registrado: Domingo, 29 de Novembro de 2009
Mensagens: 49
|
 Enviada: Dom Mar 28, 2010 4:45 pm Assunto: converter data |
 |
|
gostaria de saber como faço para converter data do tipo 2010-03-12 para
12/03/2010. obs essa data é uma string |
|
| Voltar ao Topo |
|
 |
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
|
| Voltar ao Topo |
|
|
lfgdf
Novato
Registrado: Domingo, 29 de Novembro de 2009
Mensagens: 49
|
| Enviada: Dom Mar 28, 2010 5:45 pm Assunto: |
|
|
colega, funcionou, em partes. pois eu fiz do jeito q vc falou e na hora de exibir no meu dbedit, so aparece o dia, o mes e ano nao aparece, pq sera?
obrigado |
|
| Voltar ao Topo |
|
|
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
| Enviada: Dom Mar 28, 2010 7:20 pm Assunto: |
|
|
| lfgdf escreveu: | colega, funcionou, em partes. pois eu fiz do jeito q vc falou e na hora de exibir no meu dbedit, so aparece o dia, o mes e ano nao aparece, pq sera?
obrigado |
Não se se no seu dbedit tem limitadores de caracteres ou se por exemplo o campo que vc criou conta apenas com 2 char, se form mesmo que 10 char ai não aparece mesmo
Nos testes que fiz aqui com campo 10 char
Veja
| Código: | function _Transf_data(_adate : string) : string;
begin
_Transf_data := copy(_adate,9,2)+'/'+copy(_adate, 6,2)+'/'+ copy(_adate, 1,4);
end; |
| Código: |
_data1 := '2010-03-12';
Edit1.Text := _Transf_data(_data1); |
Tente fazer diretamente no seu dataset
Exemplo
| Código: | _data1 := '2010-03-12';
seudataset.fieldbyname('campo').asstring := _Transf_data(_data1); |
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree |
|
| Voltar ao Topo |
|
|
thiago.moreira
Novato
Registrado: Quinta-Feira, 11 de Março de 2010
Mensagens: 8
|
| Enviada: Seg Mar 29, 2010 10:14 am Assunto: |
|
|
Veja um exmplo facil
| Código: | procedure TForm1.Btn1Click(Sender: TObject);
var
S: string;
D: TDateTime;
T: TFormatSettings;
begin
S := '2010-03-12';
T.ShortDateFormat := 'yyyy-mm-dd';
T.DateSeparator := '-';
D := StrToDate(S, T);
ShowMessage(DateToStr(D));
end; |
|
|
| Voltar ao Topo |
|
|
johnny-walker
Moderador
Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL
|
| Enviada: Seg Mar 29, 2010 10:35 am Assunto: |
|
|
ou vc pode fazer assim:
ShowMessage(FormatDateTime('dd-mm-yyy', Date));
ou usar a variável de ambiente que nosso amigo citou e lembrando de vc não esquecer de retornar ao antigo formato para que não prejudique outras telas do seu programa que vc não quer que apareça neste formato:
ShortDateFormat := 'dd-mm-yyyy';
ShowMessage(DateToStr(Date));
bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I |
|
| Voltar ao Topo |
|
|
gilsonnrodrigues
Moderador
Registrado: Quinta-Feira, 14 de Abril de 2005
Mensagens: 9009
Localização: Governador Valadares-MG
|
| Enviada: Seg Mar 29, 2010 11:37 am Assunto: |
|
|
| johnny-walker escreveu: | ou vc pode fazer assim:
ShowMessage(FormatDateTime('dd-mm-yyy', Date));
ou usar a variável de ambiente que nosso amigo citou e lembrando de vc não esquecer de retornar ao antigo formato para que não prejudique outras telas do seu programa que vc não quer que apareça neste formato:
ShortDateFormat := 'dd-mm-yyyy';
ShowMessage(DateToStr(Date));
bye |
mas no caso dele não precisa voltar.
pq ele usou outra variavel e não a do sysutils |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
