![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#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; |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
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 |
|