Calculo do Vencimento

10/05/2003

1

Ola a todos da lista tenho 2 campos :
* mes\ano
* data vencimento:

Eu queria que quando eu digitasse mes\ano e der enter automaticamente eu calcularia a data do vencimento e colocaria o resultado numa Dblabel eo dia do vencimento queria que seja calculada sempre Para a primeira Segunda - Feira de cada Mês.


Responder

Posts

10/05/2003

4_olho

Parece que as respostas anteriores não solucionaram seu problema. As respostas não estavam completas, então, para exemplificar crie uma nova aplicação e insira um MaskEdit com a máscara !99/99;1;_, um botão e um Label.

No evento OnClick do botão digite

procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
AData : TDateTime;
begin
for i := 1 to 7 do
begin
AData := StrToDate(IntToStr(i)+´/´+MaskEdit1.Text);
if DayOfWeek(AData) = 2 then
Label1.Caption := DateToStr(AData);
end;
end;

Digite o mês/ano no maskedit e pressione o botaõ. O label muda para a data de vencimento que cai na 1.a segunda-feira que quer.

Adapte o código para sua necessidade.


Responder