TimeEdit + 30 minutos

[giantonti1801]

amigos tengo un TimeEdit.time con una hora selecionada y tengo ratos dando vuelta como hacer que en el evento onCange del TimeEdit1.time el TimeEdit2.time le sume 30 minutos es decir que si en timeEdit1 selectiones las 12:00 el timeEdit2 automaticamente se coloque 13:30

[chenech]

Mira esta función

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

[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

[chenech]

Lee mas arriba, donde pone añadir el uses.

[giantonti1801]

Empezado por chenech

Lee mas arriba, donde pone añadir el uses.

perfecto, efectivamente era lo que faltaba pero ahora me da un error a cuando intento modificar la hora "Stack OverFlow"

[[escafandra]]

Lo suyo es que expongas el código. De nada te sirve poner el error si no expones lo que has hecho en detalle.


Otra forma se sumar 30 minutos es hacer esto:

Código Delphi [-]
  DateTime:= DateTime + 30.0/(24*60);

La parte decimal del DateTime representa la parte del día transcurrido así, un minuto es 1/(24*60).




Saludos.