Separar dia/mês/ano

Delphi

16/06/2004

Preciso pegar a data que está em um Edit e separá-la, jogando o dia, o mês e o ano em variáveis diferentes.
Vcs podem me dizer como faço isso?

Outra coisa!
No Quickrep quando coloco o papel personalizado (21cm x 14cm) para ser impresso em modo paisagem, a impressão sai na parte de cima do papel A4. Tem como corrigir isso?

E mais uma coisinha para aproveitar a postagem!
Queria colocar objetos no Quickrep que fossem visualisados quando aparece na visualização da impressão, mas que não fossem impressos.

Se puderem ajudar, fico muito grato!


Denysk

Denysk

Curtidas 0

Respostas

Cdteam

Cdteam

16/06/2004

primeiro :
converta o texto do edit para date usando o strtodate
e depois crie tres variáveis como essas:

x: datetime;

dia,mes,ano: word;

e use isto:

x:=strtodate(edit1.text);

DecodeDate(x,ano,mes,Dia);

pronto você pode jogar o dia, mes ou ano onde quiser !


GOSTEI 0
POSTAR