B Bxch_1000 Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-25 #2 var DateTime: TDateTime; begin DateTime:=StrToDateTime('2002-09-26')-365; Edit1.Text:=DateTimeToStr(DateTime); end;
var DateTime: TDateTime; begin DateTime:=StrToDateTime('2002-09-26')-365; Edit1.Text:=DateTimeToStr(DateTime); end;
C creation-zy Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-25 #3 楼上的方法并不标准，遇到闰年就不行了。 IncMonth(const Date: TDateTime NumberOfMonths: Integer) IncMonth(MyDate,-12) 即可！
M misxjq Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-25 #4 使用YearOf函数(可查看帮助) var Year,NewYear:integer; begin Year:=YearOf(指定日期(日期型));//取得年份MonthOf(),DayOf()分别取得月份，日子 NewYear:=Year+1; end
使用YearOf函数(可查看帮助) var Year,NewYear:integer; begin Year:=YearOf(指定日期(日期型));//取得年份MonthOf(),DayOf()分别取得月份，日子 NewYear:=Year+1; end
M misxjq Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-25 #5 对不起，写错了！应该是减1 使用YearOf函数(可查看帮助) var Year,NewYear:integer; begin Year:=YearOf(指定日期(日期型));//取得年份MonthOf(),DayOf()分别取得月份，日子 NewYear:=Year+1; end
对不起，写错了！应该是减1 使用YearOf函数(可查看帮助) var Year,NewYear:integer; begin Year:=YearOf(指定日期(日期型));//取得年份MonthOf(),DayOf()分别取得月份，日子 NewYear:=Year+1; end
L liuyang Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-25 #7 creation-zy的方法可行. misxjq提供的函数DELPHI中并没有啊.
