Fórum de 20060101 para 01/01/2006 #330658
04/10/2006
0
porem as datas sao salvadas em um campo text invertido
yyyymmaa
20060101
e preciso assim
aa/mm/yyyy
01/01/2006
ajudinha ai ......
Abraço......
Mysys
Curtir tópico
+ 0Posts
04/10/2006
Marco Salles
[b:bebc741cf8]o que deu para entender foi isso:[/b:bebc741cf8]
var
data:Tdate;
texto:String;
begin
texto:=´20060101´;
data:=strtodate(copy(texto,7,2)+DateSeparator+
COPY(texto,5,2)+
DateSeparator+copy(texto,1,4));
showmessage(datetostr(data));Gostei + 0
04/10/2006
Renato.pavan
var dNovaData: TDate; sAno, sMes, sDia: string; begin sAno := copy(vDataTexto, 1, 4); sMes := copy(vDataTexto, 5, 2); sDia := copy(vDataTexto, 7, 2); dNovaData := StrToDate(sDia + ´/´ + sMes + ´/´ + sAno); end;
Espero ter ajudado
[]´s
Renato.
Gostei + 0
04/10/2006
Mysys
[b:d885c48cff]o que deu para entender foi isso:[/b:d885c48cff]
var
data:Tdate;
texto:String;
begin
texto:=´20060101´;
data:=strtodate(copy(texto,7,2)+DateSeparator+
COPY(texto,5,2)+
DateSeparator+copy(texto,1,4));
showmessage(datetostr(data));blz Brigadao era isso mesmo
eu ate estava pensando em algo dessa forma mais achei que foce aparecer algo menos chato pois tem uma penca de campos com data
mais ta tranquilo eu gero uma Funcãozinha e fica de buenas..
t+
Gostei + 0
04/10/2006
Mysys
[b:27dd84dd1e]o que deu para entender foi isso:[/b:27dd84dd1e]
var
data:Tdate;
texto:String;
begin
texto:=´20060101´;
data:=strtodate(copy(texto,7,2)+DateSeparator+
COPY(texto,5,2)+
DateSeparator+copy(texto,1,4));
showmessage(datetostr(data));blz Brigadao era isso mesmo
eu ate estava pensando em algo dessa forma mais achei que foce aparecer algo menos chato pois tem uma penca de campos com data
mais ta tranquilo eu gero uma Funcãozinha e fica de buenas..
t+
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)