新手不懂 比如a是一个日期a+20,就是a往后20天a-20,就是.......要更具体的操作,你可以查找以前别人的贴子啊,上面的说明都很详细的 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 加月:function IncMonth(const Date: TDateTime; NumberOfMonths: Integer = 1)加日:function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1) 20分都给我吧,我给你肯定的答案var aaa,bbb:string;aaa:=formatDateTime('MM',Date);bbb:=formatDateTime('DD',Date);然后把字符型转换成数字就行了strtoint(aaa)strtoint(bbb)以后你就可以加呀,减呀什么的了哈哈!!!快给我分,我饿极了 //IncMonth,IncDayvar d:date;begin d:=strtodatetime('2002-04-17'); //IncMonth(d) 就是 2002-05-17 //IncMonth(d,-1) 就是 2002-03-17end; > 那要怎么再把他们转换回来啊?datetimetostr 禁止多实例的问题,为什么窗口不能最小化 请问delphi有没有实现栈操作的类 如何像瑞星邮件临控一样监控邮件发送 怎么增加自己可用分? 如何让TChart的显示放大? 急问:如果corba服务程序和客户程序不在同一个局域网上,smartagent怎么配置啊 WaitForSingleObject()的几个返回值到底是什么 意思?混淆不清! Raptor(猛禽)的代码怎么使用 Delphi DBGrid问题 有谁遇到过这样的问题吗?是关于dll的 ADO连接的问题 关于AGENT的问题?
function IncMonth(const Date: TDateTime; NumberOfMonths: Integer = 1)
加日:
function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1)
var
aaa,bbb:string;
aaa:=formatDateTime('MM',Date);
bbb:=formatDateTime('DD',Date);
然后把字符型转换成数字就行了
strtoint(aaa)
strtoint(bbb)
以后你就可以加呀,减呀什么的了
哈哈!!!快给我分,我饿极了
d:date;
begin
d:=strtodatetime('2002-04-17'); //IncMonth(d) 就是 2002-05-17
//IncMonth(d,-1) 就是 2002-03-17
end;