Ver Mensaje Individual
  #2  
Antiguo 08-01-2007
luisgutierrezb luisgutierrezb is offline
Miembro
 
Registrado: oct 2005
Ubicación: México
Posts: 925
Reputación: 19
luisgutierrezb Va por buen camino
pues no se si la unidad Dateutils traiga algo, yo trabajo con delphi 5, sin embargo puedes hacer:

Código Delphi [-]
var
  Fecha1, Fecha2, Resultado:TDateTime;
  Anio, Mes, Dia:Word;
begin
  Fecha1 := EncodeDate(1975,10,10);
  Fecha2 := EncodeDate(1976,10,12);
  Resultado := Fecha2 - Fecha1;
  DecodeDate(Resultado, Anio, Mes, Dia);
  ShowMessage(Format('La Diferencia es: %d Años con %d Meses y %d Dias',[Anio, mes, dia]))
Responder Con Cita