diff --git a/Source/Base/Utiles/uDateUtils.pas b/Source/Base/Utiles/uDateUtils.pas index 76b2be64..8d124dcc 100644 --- a/Source/Base/Utiles/uDateUtils.pas +++ b/Source/Base/Utiles/uDateUtils.pas @@ -11,11 +11,12 @@ function EsFechaVacia(AFecha : TDateTime): Boolean; function DarInicioAno(AFecha: TDateTime): TDateTime; function DarFinAno(AFecha: TDateTime): TDateTime; -implementation - const FECHA_NULA = -700000; +implementation + + function DarInicioAno(AFecha: TDateTime): TDateTime; var Year, Month, Day: Word;