Não deu certo o codigo:

18/05/2003

0

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.

Obs: Queria que trabalha - se com componente DBEdit e não com maskedit pq ia dar trabalho na hora de gravar. E tambem queria que o campo mes_ano trabalha - se com uma mascara.
exemplo. tbmensalidadesmes_ano.editmask:=´99/9999;0;_, e nao usaria botao e sim quando desse ´ENTER´ ele pasaria de uma caixa DBEdit para outra fazendo o calculo do vencimento para a 1º segunda feira do mes.
Por favor peço - lhe que vcs revissem este codigo.


Pellegrini

Pellegrini

Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar