Agendamento automático

18/12/2003

1

Bom Dia Pessoal!

Estou com problemas na soma de um TDateTime com Int...aí vai o código, se alguém puder me ajudar...

procedure TfrmCadastro.spdbtnGravarClick(Sender: TObject);
var
xDataAgenda: TDateTime;
begin
if StrToDateTime(mskedtDATAINICIAL.Text) >= Today then
begin
xDataAgenda := IncDay(StrToDateTime(mskedtDATAINICIAL.Text), StrToInt(edtINTERVALO.Text));
ShowMessage(DateTimeToStr(xDataAgenda));
end
end;

OBRIGADO!

[b:413b70bd13]Título editado conforme as regras de conduta. Favor não postar com caixa alta.[/b:413b70bd13]


Responder

Posts

18/12/2003

Michaell

Na comparação:

if StrToDateTime(mskedtDATAINICIAL.Text) >= Today then

é <= e não >=

e já tentei a soma atribuindo à variável xDataAgenda também:

xDataAgenda := StrToDateTime(mskedtDataInicial.Text) + StrToInt(edtINTERVALO.Text);

não funcionou...


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira