编译版本:Delphi XE7

function IsPM(const AValue: TDateTime): Boolean; inline;
function IsAM(const AValue: TDateTime): Boolean;

implementation

// 判断是否为下午

function IsPM(const AValue: TDateTime): Boolean;
begin
  Result := HourOf(AValue) >= 12; // 判断时间数大于等于12点,即为下午
end;

// 判断是否为上午
function IsAM(const AValue: TDateTime): Boolean;
begin
  Result := not IsPM(AValue); // 不是下午即为上午 ^_^
end;

04-14 16:18