delphi 判断上午还是下午


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

联系电话：
020-00000000
联系电话：
020-00000000
联系电话：
020-12345678