判断上午和下午

[ntjrr]

if strtoint(formatdatetime('mm',now))<12 then showmessage('现在是上午') 这样的格式转换对不对？

[babydog01]

你的意思是0点至12点都是上午，12:01至24点是下午？

[ntjrr]

0-12点是算上午，12：到24：00算下午，正好12点算哪类都行的，因为不用做得极精确。

[pathletboy]

var
  t: TSystemTime;

  GetLocalTime(t);
  if t.wHour < 12 then
    ShowMessage('上午')
  else
    ShowMessage('下午');

字符串转来转去效率太低，用这个。

[kaikai_kk]

uses DateUtils;

if IsPM(Now) then
showmessage('PM')
else
showmessage('AM')

[ntjrr]

感谢几位前辈的热心指点！