Fórum Calcular a data do vencimento #158269
07/05/2003
0
Ola a todos da lista tenho 2 campos :
mes\ano
data vencimento:
E queria calcular a data do vencimento. E ainda queria que quando digitasse mes\ano automaticamente a data do vencimento seria com dia/mes/ano.
por exemplo : digitei 05/2003 e queria que o mes do vencimento seja dia/05/2003, mas so que o dia do vencimento caia sempre no primeiro dia do mes.
como faço isso amigos da lista
mes\ano
data vencimento:
E queria calcular a data do vencimento. E ainda queria que quando digitasse mes\ano automaticamente a data do vencimento seria com dia/mes/ano.
por exemplo : digitei 05/2003 e queria que o mes do vencimento seja dia/05/2003, mas so que o dia do vencimento caia sempre no primeiro dia do mes.
como faço isso amigos da lista
Pellegrini
Curtir tópico
+ 0
Responder
Posts
07/05/2003
Motta
nao entendi bem, mas veja no help as funcoes
decodedate e encodedate , devem te ajudar
decodedate e encodedate , devem te ajudar
Responder
Gostei + 0
07/05/2003
Falinden
Olá, Pellegrini. Espero que o código abaixo te ajude:
...
// Tratando mês > 12
if strtoint(copy(edit_mes.text,1,2)) > 12 then
begin
showmessage(´Formato inválido´);
abort;
end;
edit_data_vencimento.text := ´01/´+edit_mes.text;
// ou
DateEdit1.date := strtodatetime(´01/´+edit_mes.text);
...
...
// Tratando mês > 12
if strtoint(copy(edit_mes.text,1,2)) > 12 then
begin
showmessage(´Formato inválido´);
abort;
end;
edit_data_vencimento.text := ´01/´+edit_mes.text;
// ou
DateEdit1.date := strtodatetime(´01/´+edit_mes.text);
...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)