david
12013bdc69
git-svn-id: https://192.168.0.254/svn/Proyectos.ConstruccionesCNJ_FactuGES/trunk@4 6cb6b671-b4a0-dd4c-8bdc-3006503d97e9
21 lines
298 B
ObjectPascal
21 lines
298 B
ObjectPascal
unit uDateUtils;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes;
|
|
|
|
function EsFechaVacia(AFecha : TDateTime): Boolean;
|
|
|
|
implementation
|
|
|
|
const
|
|
FECHA_NULA = -700000;
|
|
|
|
function EsFechaVacia(AFecha : TDateTime): Boolean;
|
|
begin
|
|
Result := (AFecha = FECHA_NULA) or (AFecha = 0);
|
|
end;
|
|
|
|
end.
|