TimeEdit + 30 minutos

[giantonti1801]

Empezado por chenech

Mira esta función

function IncMinute(const AValue: TDateTime; const ANumberOfMinutes: Int64 = 1): TDateTime;

gracias por tu respuesta pero esto ya es nivel PRO no tengo ni idea de donde colocar esta fucion, pero si puedes ser mas simple almeno en la explicacion. gracias

[chenech]

Seria algo así, HoraFinal tendría el valor con los minutos sumados a la HoraInicial, no tengo Delphi instalado y no puedo chequearlo pero prueba así a ver.

HoraFinal := IncMinute(HoraInicial, minutos);

[giantonti1801]

Empezado por chenech

Seria algo así, HoraFinal tendría el valor con los minutos sumados a la HoraInicial, no tengo Delphi instalado y no puedo chequearlo pero prueba así a ver.

HoraFinal := IncMinute(HoraInicial, minutos);

aun no le encuentro la solución a este tema , he probado de todo pero nada me funciona

[chenech]

Pon el código que tienes que no te funciona.

[giantonti1801]

Empezado por chenech

Pon el código que tienes que no te funciona.

Código Delphi [-]
procedure TForm1.TMSFMXDateTimeEdit1Change(Sender: TObject);
begin
   TMSFMXDateTimeEdit2.DateTime := TMSFMXDateTimeEdit1.DateTime + 30;
end;

[chenech]

Tienes que añadir el uses System.DateUtils si te da error al compilar

procedure TForm1.TMSFMXDateTimeEdit1Change(Sender: TObject);
begin
   TMSFMXDateTimeEdit2.DateTime := IncMinute(TMSFMXDateTimeEdit1.DateTime, 30);
end;

[giantonti1801]

Empezado por chenech

Tienes que añadir el uses System.DateUtils si te da error al compilar

procedure TForm1.TMSFMXDateTimeEdit1Change(Sender: TObject);
begin
   TMSFMXDateTimeEdit2.DateTime := IncMinute(TMSFMXDateTimeEdit1.DateTime, 30);
end;

trato de hacerlo de esta forma y me da error con el

Código Delphi [-]
IncMinute

indicando que no esta declarado