![]() |
![]() |
| 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 |
|
#3
|
||||
|
||||
|
Si usas componenetes con la fecha, como por ejemplo un monthcalendar,
puedes restarlas desde delphi primero convirtiendolas a string y luego a float manejando el tipo de variable como extended para poder soportar las fechas... tal vez asi con una que otra corrreccion: procedure TForm1.BitBtn1Click(Sender: TObject); var f1, f2, resultado : Extended; fecha1, fecha2 : String; begin fecha1:= DateToStr(MonthCalendar1.Date); fecha2:= DateToStr(MonthCalendar2.Date); f1:= StrToFloat(fecha1); f2:= StrToFloat(fecha2); resultado:= Round(f1-f2); // La fecha uno obviamente debe ser mayor, la funcion round permite solo tener la fecha sin los decimales de la hora para evitar errores al comparar Edit1.Text:= FloatToStr(resultado); end; Igualmente si la necesitas como fecha solo debes convertirla... Si tienes otra idea sera mejor... ![]() |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Resta de horas | didier | Varios | 24 | 18-11-2010 23:11:54 |
| Resta de fechas Y horas | Iskariote0087 | Varios | 3 | 05-12-2006 22:31:05 |
| REsta Fechas | Juanito-Kun | Firebird e Interbase | 2 | 11-10-2005 20:52:23 |
| Resta equivocada... | jhonny | Varios | 6 | 26-09-2005 18:43:20 |
| Resta de Tablas con SQL | agova | SQL | 8 | 24-11-2003 21:20:25 |
|