啊,我是帮他free写的,如果要钱的话我宁愿不写一段。

解决方案 »

  1.   

    看看下面的行不行。
    Today:TDateTiem;
    today:=Date+StrToTime(12:00:00);//当天中午12点
    dayCount:integer;if now >=today then
      Inc(dayCount);//如果超过今天12点,增加一天。
      

  2.   

    一种是数据库里就保存实际的时间,程序取出来判断,
    还有就是可以
    function IncHour(const AValue: TDateTime; const ANumberOfHours: Int64 = 1): TDateTime;
    添加12个小时如何。
      

  3.   

    存入数据库的是实际时间,程序中用到的地方加上半天:
    var
      TheTime: TDateTime;
      ...//从数据库中取出时间
      TheTime := TheTime + 1 / 2;