Ver Mensaje Individual
  #3  
Antiguo 29-07-2010
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Reputación: 26
delphi.com.ar Va por buen camino
Supongo que será algo como:
Código Delphi [-]
function DaysBetween360(const ANow, AThen: TDateTime): Integer;
begin
  Result := (DaysBetween(ANow, AThen) div 30) *  30;
end;

Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita