用DecodeDate自己计算。
nYear, nMonth, nDay : WORD;
DecodeDate(Date(), nYear, nMonth, nDay);
//自己计算,注意判断年、月、日的关系
EncodeDate(...);
nYear, nMonth, nDay : WORD;
DecodeDate(Date(), nYear, nMonth, nDay);
//自己计算,注意判断年、月、日的关系
EncodeDate(...);
解决方案 »
- “求热心的高手帮忙 仓库管理系统”
- 求教关于ActiveX的两个问题
- 实现QQ代理上网 如何写?
- 如何将系统时间写到注册表里面,又怎样把写入注册表的时间取出来?
- 关于写文本文件的问题:如何使当前写进去的内容永远在第一行?
- CORBA三层数据结构应用,CorbaConnection错误
- 请问,我用delphi开发联通通信网关,接收中文短信时UCS2编码怎么转换为汉字编码。谢谢
- 请问能屏蔽系统功能键的API函数主要有哪些??
- dbgrideh
- 请问toolbar中的toolbutton怎样增加图表进去?toolbutton的menuitem是怎么用的?
- 如何使用ADO控件
- Edit和Text中如何输入注册商标的R圈?而且要变成上标哦
DateTime:TDateTime;
begin
DateTime:=Now;
DateTime:=DateTime1+1;//得到明天此时
end;
var
DataTime:TdateTime
begin
DateTime:=Now;
DateTime:=DateTime-1;//昨天此时;
end;
给分哦;
interface
uses
....DateUtils;
....
begin
incDay(Date(),1);
incMonth(Date(),1);
incYear()
end;
大哥,给分哦
nYear, nMonth, nDay : WORD;
DecodeDate(Date(), nYear, nMonth, nDay); //自己计算,注意判断年、月、日的关系
EncodeDate(...);Date-1 好象也可以