FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Cantidad de Minutos entre 2 Horas con el DateTimePicker
Hola amigos del foro, me encontre con este pequeño problema que tenia que saber la cantidad de minutos entre una hora y hora, y pues buscando en el foro encontre algunas cosas utiles, pero al final resulte uniendo varias partes del foro y llegue a este código que me parece interesante compartirlo con ustedes:
Código:
uses Dateutils; var horaEntrada:String; horaSalida:String; Salida:Variant; begin horaEntrada:=formatdatetime('hh:mm', Frac(DateTimePicker1.DateTime)); horaSalida:=formatdatetime('hh:mm', Frac(DateTimePicker2.DateTime)); Salida:=round(MinuteSpan(StrToTime(horaEntrada),StrToTime(HoraSalida))); end; Última edición por ANDRES86 fecha: 02-07-2007 a las 07:43:23. |
#2
|
||||
|
||||
Muchas gracias por la atención que has tenido.
Ya puestos, si me permites algunos comentarios: En lugar de StrToDate podrías usar datetimepickerXX.datetime, te ahorras una conversión de string a Date. Por otra parte ten cuidado con la fecha. (se supone que será la misma en ambos TDatetimePicker, establecida en tiempo de diseño), no creo que tengas problemas, pero ... por si acaso, MinutesSpan tiene en cuenta la fecha y hora para realizar el cálculo correcto. En caso de problemas, puedes usar RecodeDate(datetime1picker.datetime, 2007, 1,1) para igualar las fechas de ambos controles. Si el periodo de tiempo a controlar, cruza la medianoche, tendrás que sumarle un día, o dejar al usuario que indique la fecha. Ejemplo: de las 23:00 a la 1:00 (del otro día) si no indicas la fecha, dará un resultado de 22 horas, cuando el resultado correcto es de 2 horas. Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#3
|
|||
|
|||
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 |
#4
|
||||
|
||||
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 |
#5
|
|||
|
|||
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; |
#6
|
||||
|
||||
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 |
|
|
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 |
|