怎么判断 时间是否是 晚上凌晨 ? 注意时间有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;