Sumar Dias a un fecha en Delphi 5

[albertpaul68]

Gracias!

Como siempre, los lectores deben hacer lo que hizo Micheus e inmediatamente se refieren a la documentación de Delphi. Incluso si, como él, ya sabe bastante sobre el manejo de fechas en Delphi. Hay un montón de cosas útiles allí.

Además, la unidad (s) que usted necesita para poner en su cláusula uses variar entre las versiones de Delphi. La unidad DateUtils se introdujo en Delphi 6. FPC utiliza DateUtils también. Para Delphi 5 y anteriores de todas las cosas es la fecha en la unidad del sistema.


Por cierto, Micheus, gracias por esa función ingenioso! Que el error de punto flotante no es culpa de Delphi, aunque ... que es un problema común a todos los equipos digitales. La forma en que se maneja es brillante e instructivo!


Por último, me gustaría añadir algunas reflexiones a la hora de leer la información de la fecha de una cadena. Si sabe que su entrada se llevará una de las varias formas distintas, puede utilizar pruebas .. salvo bloques hasta que llegue una fecha correcta. Por ejemplo:

function read_date_format_1( s: string ): tDateTime;
begin
// this function tries to read dates formatted as '2007-12-31'
end;

function read_date_format_2( s: string ): tDateTime;
begin
// this function tries to read dates formatted as '2007 12 31'
end;

function read_date_format_3( s: string ): tDateTime;
begin
// this function tries to read dates formatted as '31/12/2007'
end;

function read_date( users_input: string ): tDateTime;
begin
try
result := read_date_format_1( users_input )
except on EConvertError do
try
result := read_date_format_2( users_input )
except on EConvertError do
result := read_date_format_3( users_input )
end
end
end;

Este código es para la claridad y la ilustración. (Hay maneras mucho mejores de escribirlo.)

Por cierto, Micheus, gracias por recibir mi nombre.