Fórum Utilizando datas #178735
31/08/2003
0
Utilizo o componente TDateEdit da aba RxLib.
Faco esse código dentro de um For mas ele da erro no encodedate quando digito o dia maior que 12. O que ha de errado? Vc Teria a solução?
Venc:=strtodate(EdData.text)
DecodeDate(Venc,Ano,Mes,Dia);
Case Mes of
1..11:
Mes:=Mes+1;
12:
begin
Ano:=Ano+1;
Mes:=1;
end;
end;
Venc:=encodedate(Ano,Dia,Mes);
Existe alguma função ou propriedade no delphi para que ele exergue a data no formato dd/mm/yy?
Faco esse código dentro de um For mas ele da erro no encodedate quando digito o dia maior que 12. O que ha de errado? Vc Teria a solução?
Venc:=strtodate(EdData.text)
DecodeDate(Venc,Ano,Mes,Dia);
Case Mes of
1..11:
Mes:=Mes+1;
12:
begin
Ano:=Ano+1;
Mes:=1;
end;
end;
Venc:=encodedate(Ano,Dia,Mes);
Existe alguma função ou propriedade no delphi para que ele exergue a data no formato dd/mm/yy?
Andinho_levita
Curtir tópico
+ 0
Responder
Posts
31/08/2003
Carlosrm
andinho_levita,
Compare as linhas abaixo que vc escreveu, e veja que a ordem dos parâmetros está diferente:
DecodeDate(Venc,Ano,Mes...); // 2.a linha
Venc:=encodedate(Ano,Dia...); // última linha
carlosrm
Compare as linhas abaixo que vc escreveu, e veja que a ordem dos parâmetros está diferente:
DecodeDate(Venc,Ano,Mes...); // 2.a linha
Venc:=encodedate(Ano,Dia...); // última linha
carlosrm
Responder
Gostei + 0
31/08/2003
Adilsond
Se voce fizer desta maneira dara erro em certas datas tipo:
31/08/2003 --> 31/09/2003 (Não existe)
Como voce esta utilizando o rxlib, declare a unit DateUtil (Se ainda não estiver declarada) e coloque:
Venc := strtodate(EdData.text);
Venc := IncMonth(Venc,1);
31/08/2003 --> 31/09/2003 (Não existe)
Como voce esta utilizando o rxlib, declare a unit DateUtil (Se ainda não estiver declarada) e coloque:
Venc := strtodate(EdData.text);
Venc := IncMonth(Venc,1);
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)