| Pregunta: | 60991 - COMO SACAR LA DIFERENCIA DE DOS FECHAS EN DELPHI32 |
| Autor: | matias alvarez |
| como sacar la diferencia de dos fechas en delphi32 por ejemplo
22/02/2009 a 23/03/2009 muchas gracias por adelantado | |
| Respuesta: | Carlos Enrique Velez Farak |
| Para calcular la diferencia de dos fechas te envio mi rutina
function CuantosDias(ff, fi : TDateTime) : Integer; var yi, yf : Integer; begin if ff > fi then begin yf := Year(ff); yi := Year(fi); Result := (yf*360 + Month(ff)*30 + dias(ff)) - (yi*360 + Month(fi)*30 + dias(fi)); end else Result := 0; end; | |