FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Hola lepe, muchas gracias por tu sugerencia, pero mira que formatdatetime('hh:mm', Frac(DateTimePicker1.DateTime)); pasa este formato de TTime a String y esto lo hice precisamente para que no me generara herrores en la hora, yo creo que este es la parte mas importante del codigo, pues probe lo que tu digiste y no me dio, siempre cuando coloco Salida:=round(MinuteSpan((DateTimePicker1.DateTime),(DateTimePicker2.DateTime)));
me da 56540160 cuando tengo dos horas iguales, que deberia de dar 0, la unica forma que vi de solucionar ese problema fue asi, y ahora cuando hace el cruce por la media noche eso si no lo habia visto, será que hay forma de que el usuario ingrese las fechas? gracias por tu atencion |
#2
|
||||
|
||||
Pues es curioso, porque a mi
siempre me da cero en caso de que ambasfechas/hora coincidan. Pero, por otra parte, cuando haces FormatDateTime usando 'hh:mm' ya estás truncando las fracciones de minuto, así que ¿por qué no usas MinutesBetween? // Saludos |
#3
|
|||
|
|||
Muchas gracias por sus recomendaciones, el del error era yo, la propiedad date del DateTimePicker esta en 01/01/1889 no se por que razon estaba haya, esa era el motivo por el cual me aparecia ese numero tan elevado, mcuhas gracias a ustedes, ahora si dejo codigo corregido y modificado para que le puedan cambiar cuando pasa la media noche, gracias a lepe y a roman por el tiempo prestado.
Código:
uses DateUtils; procedure TForm1.Button3Click(Sender: TObject); var Salida:Integer; begin Salida:=MinuteSpan(DateTimePicker1.Time),DateTimePicker2.Time); Label1.Caption:=IntToStr(Salida); end; procedure TForm1.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked=True then begin DateTimePicker1.kind:=dtkDate; DateTimePicker2.Kind:=dtkDate; end else begin DateTimePicker1.kind:=dtkTime; DateTimePicker2.Kind:=dtkTime; end; |
#4
|
||||
|
||||
tambien se puede usar esta funcion no?
Returns the number of minutes between two specified TDateTime values. Unit DateUtils Category datetime routines Delphi syntax: function MinutesBetween(const ANow, AThen: TDateTime): Int64; //ah ah ah perdón ya lo había sugerido román |
#5
|
||||
|
||||
Y ya entrados en dudas
¿Por qué #$%&#&% manejan las fechas como cadenas?
__________________
|
#6
|
|||
|
|||
Mira esa parte pues solo es de visualizacion, para poderla mandar al Label, y pues el MinuteSpan no arroja una hora ni una fecha, como se puede ver es un integer, solo se pasa a String como ya dije antes para visualizarlo
|
#7
|
||||
|
||||
si solo es para visualizarlo... ¿Para que generar un Tlabel y hacer la conversión a cadena cuando el mismo TDateTimePicker puede mostrar la hora?
__________________
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
MinuteSpan... minutos entre horas | mjjj | Varios | 1 | 25-06-2007 17:28:59 |
sumar horas y minutos | acrophet | Varios | 1 | 29-01-2004 17:29:46 |
Calcular Horas y minutos entre dos TTime | Delphos | Varios | 4 | 26-01-2004 17:10:14 |
Sumar Horas o Minutos | cso2000 | Varios | 2 | 19-06-2003 17:56:40 |
resta horas y minutos | botones67 | Varios | 4 | 12-06-2003 18:55:54 |
|