Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

italo2v

Converter data no formato string

Recommended Posts

cara da pra faze jeito, mas tem outros, n sei se é extamente isso q você precisa.

{--------------------------------------------------}

procedure TForm3.Button1Click(Sender: TObject);

var ano,mes,dia:String;

begin

ano:=copy(edit1.Text,0,4);

mes:=copy(edit1.Text,6,2);

dia:=copy(edit1.Text,9,2);

edit2.Text:=dia+'/'+mes+'/'+ano;

end;

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.