|
No entiendo porque haces y deshaces lo hecho dentro de esa funcion, del mismo modo el if que pones es absurdo, que se pretende comprobar con eso ?? si el procesador a sumado mal ?? Si esto pudiese darse y para ello pusieses esa comprobacion, las sumas y restas que haces despues en el if:
Present:=Present+(X-(Present-Fecha));
Tambien pondrian fallar, de modo que tendrias que poner otro if para comprobar esta nuevas sumas y restas, y lo mismo con las operaciones del nuevo if, lo que significaria que tendrias que poner IFs infinitos. Es mas la misma condicion del if podria fallar de modo que no sirve para nada.
Adicionalmente la operacion,
Present:=Present+(X-(Present-Fecha));
Se simplifica en lo siguiente:
Present:= X+Fecha;
Que es lo mismo que tienes puesto en la primera linea.
En definitiva para sumar fechas no necesitas siquiera hacer ninguna funcion, pon simplemente:
NuevaFecha= Int(Fecha) + Dias;
O si tienes un delphi moderno llama a la siguiente funcion (la funcion hace lo mismo que arriba, simplemente suma los dias y listo):
NuevaFecha:= IncDay(Fecha,Dias);
Y NADA MAS.
Saludos
Miguel
|