Calcular data do vencimento

Delphi

07/05/2003

Retificação da pergunta:

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 [u:078462f797]so que o dia do vencimento caia sempre na primeira segunda Feira do Mês.como faço isso amigos da lista[/u:078462f797]


Pellegrini

Pellegrini

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

07/05/2003

isso retorna a 1º segunda - feira do mês

var 
Ano, Mes, Dia : word; 
DiaDaSemana : Integer; 
data : tdatetime;
begin 
data := strtodate(´alguma_data´)

DecodeDate (Data, Ano, Mes, Dia); 

if DayOfWeek (Data) = 1 Then 
Dia := 2 
else 
if DayOfWeek (Data) = 7 Then 
Dia := 3 
else
Dia := 1; 
1º segunda feira do mes := dia;
end;



GOSTEI 0
POSTAR