本可以获取系统当前日期:
procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage(DateToStr(Date)); //2009-11-18
end;但现在需要求当前日期前3个月的日期,由于年、月、日是变动的，所以不知道怎么简单获取前3个月的值，假如：系统当前日期：2009-01-03 希望获得：2008-10-03 //年份变小了，月份变大了系统当前日期：2009-05-03 希望获得：2009-02-03 //只是月份变了
procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage(DateToStr(Date)); //2009-11-18
end;但现在需要求当前日期前3个月的日期,由于年、月、日是变动的，所以不知道怎么简单获取前3个月的值，假如：系统当前日期：2009-01-03 希望获得：2008-10-03 //年份变小了，月份变大了系统当前日期：2009-05-03 希望获得：2009-02-03 //只是月份变了
解决方案 »
- try……finally 中间 出现 exit; finally 中的东西是否还会执行？
- OleContainer怎么连接Access数据库的ole字段所存储的文件？
- 如何给panel加上滚动条？
- datetimepicker问题 在线等!
- ★★★讨论一下，一个编程高手，掌握英语是否必须★★★
- 各位高人delphi7编译后怎么360报木马？（大家都怎么解决的？）
- 如何读取软盘的扇区？
- 一个简单问题：关于字符串的替换，在线等待回复
- 请问现在市场上主流的应用服务器报价分别是多少？
- 怎么才在EDIT里保证只输入数字啊？
- Delphi 中如何代码给DBGrid赋值(代码如下)？？？？
- dll中创建窗口，其中用到webbrowser，发行出错
DateUtils; ShowMessage(DateToStr(IncMonth(Now, -3)));
ShowMessage(st);