Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > FireMonkey
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-02-2023
giantonti1801 giantonti1801 is offline
Miembro
 
Registrado: oct 2022
Posts: 143
Poder: 3
giantonti1801 Va por buen camino
TimeEdit + 30 minutos

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
Responder Con Cita
  #2  
Antiguo 24-02-2023
chenech chenech is offline
Miembro
 
Registrado: dic 2013
Posts: 81
Poder: 11
chenech Va por buen camino
Mira esta función
Código:
function IncMinute(const AValue: TDateTime; const ANumberOfMinutes: Int64 = 1): TDateTime;
Responder Con Cita
  #3  
Antiguo 24-02-2023
giantonti1801 giantonti1801 is offline
Miembro
 
Registrado: oct 2022
Posts: 143
Poder: 3
giantonti1801 Va por buen camino
Cita:
Empezado por chenech Ver Mensaje
Mira esta función
Código:
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
Responder Con Cita
  #4  
Antiguo 24-02-2023
chenech chenech is offline
Miembro
 
Registrado: dic 2013
Posts: 81
Poder: 11
chenech Va por buen camino
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.

Código:
HoraFinal := IncMinute(HoraInicial, minutos);
Responder Con Cita
  #5  
Antiguo 25-02-2023
giantonti1801 giantonti1801 is offline
Miembro
 
Registrado: oct 2022
Posts: 143
Poder: 3
giantonti1801 Va por buen camino
Cita:
Empezado por chenech Ver Mensaje
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.

Código:
HoraFinal := IncMinute(HoraInicial, minutos);
aun no le encuentro la solución a este tema , he probado de todo pero nada me funciona
Responder Con Cita
  #6  
Antiguo 25-02-2023
chenech chenech is offline
Miembro
 
Registrado: dic 2013
Posts: 81
Poder: 11
chenech Va por buen camino
Pon el código que tienes que no te funciona.
Responder Con Cita
  #7  
Antiguo 26-02-2023
giantonti1801 giantonti1801 is offline
Miembro
 
Registrado: oct 2022
Posts: 143
Poder: 3
giantonti1801 Va por buen camino
Cita:
Empezado por chenech Ver Mensaje
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;
Responder Con Cita
  #8  
Antiguo 26-02-2023
chenech chenech is offline
Miembro
 
Registrado: dic 2013
Posts: 81
Poder: 11
chenech Va por buen camino
Tienes que añadir el uses System.DateUtils si te da error al compilar
Código:
procedure TForm1.TMSFMXDateTimeEdit1Change(Sender: TObject);
begin
   TMSFMXDateTimeEdit2.DateTime := IncMinute(TMSFMXDateTimeEdit1.DateTime, 30);
end;
Responder Con Cita
  #9  
Antiguo 27-02-2023
giantonti1801 giantonti1801 is offline
Miembro
 
Registrado: oct 2022
Posts: 143
Poder: 3
giantonti1801 Va por buen camino
Cita:
Empezado por chenech Ver Mensaje
Tienes que añadir el uses System.DateUtils si te da error al compilar
Código:
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
Responder Con Cita
  #10  
Antiguo 27-02-2023
chenech chenech is offline
Miembro
 
Registrado: dic 2013
Posts: 81
Poder: 11
chenech Va por buen camino
Lee mas arriba, donde pone añadir el uses.
Responder Con Cita
  #11  
Antiguo 28-02-2023
giantonti1801 giantonti1801 is offline
Miembro
 
Registrado: oct 2022
Posts: 143
Poder: 3
giantonti1801 Va por buen camino
Cita:
Empezado por chenech Ver Mensaje
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"
Responder Con Cita
  #12  
Antiguo 28-02-2023
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.202
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
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.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
10 estilos de metal en 3 minutos rretamar La Taberna 0 07-06-2010 01:25:22
Pasar de minutos a Horas:minutos look OOP 8 08-07-2008 23:19:38
Pasar a minutos mosorio OOP 4 24-08-2005 15:13:36
30 minutos por 15 cts + IVA tcp_ip_es Noticias 1 27-06-2004 14:13:56
resta horas y minutos botones67 Varios 4 12-06-2003 19:55:54


La franja horaria es GMT +2. Ahora son las 00:44:49.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi