Data (15 ou 30)

Question

Pessoal, eu tenho um formulario com um DateTimePicker e MaskEdit com formato de Data � / / �, quando o usuario selecionar uma data no DateTimePicker que igual ou antes do dia 15/08/2005, o MaskEdit ir...

Rjun · Answer

Fiz algo meio sem testar. Provavelmente voc� tera que adicionar um controle pra fevereiro.

var
  Dia, Mes, Ano: word;
  DataFutura: TDateTime;
begin
  Dia := DayOf(DateTimePicker.Date);
  Mes := MonthOf(DateTimePicker.Date);
  Ano := YearOf(DateTimePicker.Date);

  if Dia <= 15 then
    Dia := 30;
  end
  else
  begin
    Dia := 15;

    if Mes = 12 then
    begin
      Mes := 1;
      Ano := Ano + 1;
    end
    else
      Mes := Mes + 1;
  end;

  DataFutura := EncodeDate(Ano, Mes, Dia);
  MaskEdit1.Text := DateToStr(DataFutura);
end;

Leandrosl · Answer

Rjun eu testei e � issi mesmo que eu quero, mais s� que � o seguinte, se a data for igual a 15( Ex:15/08/2005), ent�o o MaskEdit vai mostrar (Ex:30/08/2005), e no seu codigo ele est� colocando (Ex:30/09/2005)

Obrigado

Rjun · Answer

Voc� tem certeza que digitou o c�digo corretamente. Veja no c�digo que ele so executa alguma mudan�a no mes se o dia for superior a 15....

Leandrosl · Answer

Rjun eu vo testar com mais calma e posto o resultado aqui, mais mesmo assim muito obrigadoFalou !!!!...

F�rum Data (15 ou 30) #291926