Fórum Calcular data do vencimento #158511
07/05/2003
0
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]
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
Curtir tópico
+ 0
Responder
Posts
07/05/2003
Marcelo Saviski
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)