Calcular a data do vencimento
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
Curtidas 0
Respostas
Motta
07/05/2003
nao entendi bem, mas veja no help as funcoes
decodedate e encodedate , devem te ajudar
decodedate e encodedate , devem te ajudar
GOSTEI 0
Falinden
07/05/2003
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);
...
GOSTEI 0