啊,我是帮他free写的,如果要钱的话我宁愿不写一段。
解决方案 »
- 关于idHTTP超时问题?
- 寻DevExpress For D8系列控件
- UP者有分:Delphi中用SendMessage函数发移动消息格式是???
- 请教有关SQL SERVER 7.0数据库的启动问题?
- Tidtcpserver onexecute事件中动态创建Ttabsheet并设置为焦点
- delphi控件编写-怎样实现设计时菜单和动作行为?
- 汉字夹杂英文,怎样计算个数?
- 关于一个delphi程序的反汇编的问题 帮顶散分 可收费
- 聘请“delphi+多媒体+paradox”开发员兼职完成独立小项目!
- 怎样得到SQL数据库中的所有表的名字?
- CSDN上没有高手??
- 请教Delphi关于文件操作的相关问题
Today:TDateTiem;
today:=Date+StrToTime(12:00:00);//当天中午12点
dayCount:integer;if now >=today then
Inc(dayCount);//如果超过今天12点,增加一天。
还有就是可以
function IncHour(const AValue: TDateTime; const ANumberOfHours: Int64 = 1): TDateTime;
添加12个小时如何。
var
TheTime: TDateTime;
...//从数据库中取出时间
TheTime := TheTime + 1 / 2;