怎么判断 时间是否是 晚上凌晨 ? 注意时间有12 /24小时制

如何判断 时间是否是 晚上凌晨 ? 注意时间有12 /24小时制
如何准确判断 操作系统 时间采用哪种小时制？
24的 晚上凌晨就是00:00:00
12小时的就是 12:00:00  

也就是 新一天来临 那一刻 程序要 触发事件！

------解决方案--------------------
系统时间其实就是浮点数，与小时制没有关系。
你可以自己将时间格式化成24小时进制即可

比如：
var
s:string;
s:=formatdatetime('yyyy"年"m"月"d"日"h"时"n"分"s"秒"',now);
------解决方案--------------------

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  GetFormatSettings;
  s := LongTimeFormat;
  if copy(s, 1, 2) = 'H' then
    showmessage('24小时制式')
  else
    showmessage('12小时制式');
end;