Fórum Convertendo Datas #189852
21/10/2003
0
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
Gostaria de saber como faço para converter de forma simples uma Data. Por Exemplo: 02/Set para 02/09/Ano Corrente
Obrigado
Cicerojr
Curtir tópico
+ 0
Responder
Posts
21/10/2003
Fabio.hc
Talvez esta dica te ajude:
Crie uma varivel do tipo data.
Crie uma varivel do tipo data.
varData:tdate;
varData:=StrToDate(´02/09/´+copy(DateToStr(date),7,4));
Responder
Gostei + 0
21/10/2003
Cicerojr
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
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
Responder
Gostei + 0
21/10/2003
Fabio.hc
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));
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)