100求一个问题，高手进来，有点难度的

Question

DateTimePicker1代表出生日期
DateTimePicker2代表现在的日期
1，计算DateTimePicker1到DateTimePicker2之间相差多少年
2，如果男的到60岁，那就算出现在到退休还有多少个月
3如果是女的到55岁，那就算出现在到退休还有多少个月主要是算出，现在到退休年龄还有多少个月。
如果已经男的已经超过60，女的已经超过55，那就不用计算，直接退出
时间比较紧，高手请指教

Answer 1

1，计算DateTimePicker1到DateTimePicker2之间相差多少年
uses DateUtils;
 YearsBetween(DateTimePicker1.DateTime, DateTimePicker2.DateTime)

Answer 2

2，如果男的到60岁，那就算出现在到退休还有多少个月
是如果沒到60歲吧???
var I: integer;
...
if YearsBetween(DateTimePicker1.DateTime, DateTimePicker2.DateTime) < 60 then
begin
 i := MonthsBetween(DateTimePicker2.DateTime,
    IncYear(DateTimePicker1.DateTime, 60));
end;

Answer 3

3 問題類似!!!
修改60 成55就可記住 uses DateUtils;

Answer 4

问题是YearsBetween(DateTimePicker1.DateTime, DateTimePicker2.DateTime)只是求出了他现在的年龄,还没求出里60岁还差几年,我用减法好像部队

Answer 5

if YearsBetween(DateTimePicker1.DateTime, DateTimePicker2.DateTime) < 60 then
begin
 i := MonthsBetween(DateTimePicker2.DateTime,
    IncYear(DateTimePicker1.DateTime, 60));
end