Convertendo Datas

Delphi

21/10/2003

Olá Pessoal,

Gostaria de saber como faço para converter de forma simples uma Data. Por Exemplo: 02/Set para 02/09/Ano Corrente

Obrigado


Cicerojr

Cicerojr

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

21/10/2003

Talvez esta dica te ajude:

Crie uma varivel do tipo data.
varData:tdate;


varData:=StrToDate(´02/09/´+copy(DateToStr(date),7,4));



GOSTEI 0
Cicerojr

Cicerojr

21/10/2003

Fábio,

O meu problema é que tenho uma data 02/Set, que importei do Excel, mas eu preciso convertê-la para 02/09/2003.
01/jan conveter para 01/01/2003
01/fev conveter para 01/02/2003
.
.
.
.
01/Dez conveter para 01/12/2003


GOSTEI 0
Fabio.hc

Fabio.hc

21/10/2003

Neste caso vc vai ter um pouco de trabalho, tente assim:

   dataexcel:=´02/Set´;
   mes:=UpperCase(copy(dataexcel,4,3));
   if mes=´JAN´ then mes:=´/01/´
   else if mes=´FEV´ then mes:=´/02/´
   .
   .
   .
   else if mes=´SET´ then mes:=´/09/´
   .
   .
   .
   else if mes=´DEZ´ then mes:=´/12/´;

   varData:=StrToDate(copy(dataexcel,1,2)+mes+copy(DateToStr(date),7,4));



GOSTEI 0
POSTAR