Calculo do Vencimento
10/05/2003
0
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.
* 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.
Pellegrini
Curtir tópico
+ 0
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.
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
Clique aqui para fazer login e interagir na Comunidade :)
