Pessoal, estou aqui revisando um c�digo antigo e ao mesmo tempo deixando ele mais enxuto.[code=delphi]if edt1.text = EmptyStr then edt1.text := Informe valorelse edt1 .Text := Valor valid...

Uso do IfThen com datas

16/08/2024

Pessoal, estou aqui revisando um c�digo antigo e ao mesmo tempo deixando ele mais enxuto.

if edt1.text = EmptyStr then
  edt1.text := 'Informe valor'
else
  edt1    .Text := 'Valor valido';

Podemos trocar o codigo acima por este que tem o mesmo efeito

 edit1.text := IfThen(edt1.text = EmptyStr,'Informe valor','Valor valido');

No meu caso, tenho datas e n�o achei uma forma de fazer

  if DayOfWeek(Date) = 2 then
    dtpInicio.Date := Date - 2
  else
    dtpInicio.Date := Date;

Renan

Curtir t�pico + 0

Responder

Posts

16/08/2024

Arthur Heinrich

Voc� pode construir a sua pr�pria fun��o.

function ifthen_date( condition : boolean; date1, date2 : tdatetime):tdatetime;
begin
  if condition
    then Result:=date1
    else Result:=date2;
end;

Ou, se o seu objetivo � identificar o domingo (in�cio da semana), pode calcular diretamente sem o IF.

  dtpInicio.Date := Date - DayOfWeek(Date);

Responder

Gostei + 0

20/08/2024

Renan

Ol�, Arthur.

Na verdade eu uso esse c�digo para preencher o DateTimePicker, de acordo com o dia da semana.
No caso acima, se for segunda-feira, vou preencher o DateTimePicker com a data de sexta-feira e se for outro dia da semana, o DateTimePicker recebe a data atual.

Responder

Gostei + 0

20/08/2024

Natanael Ferreira

Pessoal, estou aqui revisando um c�digo antigo e ao mesmo tempo deixando ele mais enxuto.

if edt1.text = EmptyStr then
  edt1.text := 'Informe valor'
else
  edt1    .Text := 'Valor valido';

Podemos trocar o codigo acima por este que tem o mesmo efeito

 edit1.text := IfThen(edt1.text = EmptyStr,'Informe valor','Valor valido');

No meu caso, tenho datas e n�o achei uma forma de fazer

  if DayOfWeek(Date) = 2 then
    dtpInicio.Date := Date - 2
  else
    dtpInicio.Date := Date;

Voc� pode usar o IfThen tamb�m com datas.

Adicione Math na uses.

Teste este c�digo:

dtpInicio.Date := IfThen(DayOfWeek(Date) = 2, Date - 2, Date);

Responder

Gostei + 0

20/08/2024

Renan

Obrigado, Natanael.

Responder

Gostei + 0

03/09/2024

Renan

Natanael, seria poss�vel ativar e desativar itens do MainMenu com o ifThen?
A ideia seria reduzir essas 4 linhas em 1 linha.

     if FieldByName('FLUXO_CAIXA').AsString <> 'S' then
        FrmPrincipal.FluxodeCaixa1.Enabled := False
     else
        FrmPrincipal.FluxodeCaixa1.Enabled := True;

tentei assim, mas n�o funciona

FrmPrincipal.FluxodeCaixa1.Enabled := ifThen(FieldByName('FLUXO_CAIXA').AsString <> 'S', False, True);

Responder

Gostei + 0

04/09/2024

Natanael Ferreira

Nesse caso, voc� n�o precisa usar o IfThen.

Teste assim:

FrmPrincipal.FluxodeCaixa1.Enabled := FieldByName('FLUXO_CAIXA').AsString = 'S';

Responder

Gostei + 0

04/09/2024

Renan

Nesse caso, voc� n�o precisa usar o IfThen.

Teste assim:

FrmPrincipal.FluxodeCaixa1.Enabled := FieldByName('FLUXO_CAIXA').AsString = 'S';

Natanael,

Sim, obrigado pela ajuda. Ficou �timo.

Responder

Gostei + 0