delphi 判断上午还是下午

2018-10-31

begin
if Frac(Time) = 0 then
ShowMessage('AM')
else
ShowMessage('PM');
end;

日期时间
阅读71