Preciso Separa data e hora

Delphi

26/02/2006

Boa tarde pessoal!!!

Eu gostaria de separar a data e a hora do sistema, ou seja, gostaria de ter 5 edit, onde na suas propriedades text cada um recebesse respectivamente:

edit1 = dia
edit2 = mes
edit3 = ano

edit5 = hora
edit6 = minuto

Fico no aguardo ai de um a apoio.

Abraço

Wagner


Wagnermarrane

Wagnermarrane

Curtidas 0

Respostas

Edilcimar

Edilcimar

26/02/2006

use o decodedate para separar o dia, mes e ano


GOSTEI 0
Wagnermarrane

Wagnermarrane

26/02/2006

use o decodedate para separar o dia, mes e ano


boa noite Edicilmar, mas não faço muito ideia de como usa-lo. poderia exemplificar por favor


GOSTEI 0
Marco Salles

Marco Salles

26/02/2006

veja :

procedure TForm1.Button1Click(Sender: TObject);
var
dt:TdateTime;
h,m,s,ms:word;
ano,mes,dia:Word;
begin
dt:=date+time;
decodetime(dt,h,m,s,ms);
decodeDate(dt,ano,mes,dia);
editano.text:=inttostr(ano);
editmes.text:=inttostr(mes);
editdia.text:=inttostr(dia);
edithora.text:=inttostr(h);
editmin.text:=inttostr(m);
editseg.text:=inttostr(s);
end;


[b:2ee9d3b5dc]voce pode melhorar a gosto[/b:2ee9d3b5dc]


GOSTEI 0
Wagnermarrane

Wagnermarrane

26/02/2006

obrigado


GOSTEI 0
POSTAR