Ver Mensaje Individual
  #2  
Antiguo 07-11-2006
Avatar de kuan-yiu
[kuan-yiu] kuan-yiu is offline
Miembro Premium
 
Registrado: jun 2006
Ubicación: Galicia. España.
Posts: 1.017
Reputación: 19
kuan-yiu Va camino a la fama
DateUtils es el nombre que tienes que añadir en la cláusula uses de la unit en la que quieras usar las rutinas de manejo de fechas.

Todas las funciones que necesitas para manejar fechas te aparecen listadas si escribes en la ayuda de Delphi literalmente: DateUtils.

Los datos, si son tipo fecha, los puedes restar directamente para conocer la diferencia y luego aplicar esas rutinas para saber cuantos meses, días y horas son la diferencia.

Un ejemplo para que te hagas una idea:
* IncDay(fecha, intervalo)
Fecha: la fecha que se quiera incrementar.
Intervalo: número de días que se le añaden.

Código Delphi [-]
{ Rellena un par de fechas de un formulario con el margen por defecto. }
procedure rellenaMargenFechas(var fechaIni, fechaFin: TDateTimePicker);
var
  intervalo: Integer;
begin
  intervalo := - margenDias;
  fechaIni.Date := IncDay(Date, intervalo);
  fechaFin.Date := Date;
end;
Responder Con Cita