新手不懂 比如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 d2007怎么写三层的应用服务器? 高难度的问题,望有高手之高手解答 谢谢 Delphi WebService 生成的DLL文件 难道不可以访问外部的文件 ,比如INI 怎样给xml某各节点添加非空子节点? 请教EDIT比较问题 在线等!!!!!!!!!急等 delphi canvas 绘图问题 TWebBrowser的新手疑问??? delphi6怎么找不到DsgnIntf单元 如何使exe能够在程序中打开自己 SOS! 如何加入mts data module远程数据模块? 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;