我想知道怎样得到本地机日期的年和月，不要日？(100分)

其实我是想用输入的年和月算一个人的年龄，不知道各位是否有更好的方法？

formatdatetime('yyyy',now) 得到年份
formatdatetime('mm',now) 得到月份
也可以formatdatetime('yyyy-mm',now)得到年月，参考formatdatetime的说明。

DecodeDate();

用函数吧，可以得到，不知道可不可以给你帮助
var Year,Month,Day:Word
NowDate:TdateTime;
begin
//Date 为当天日期
DecodeDate(Date, Year, Month, Day);
其中的 Year 和 Month就是当前时期的年和月

function GetAge(BirDate : TDate) : Integer;
var
BirYear, BirMonth, BirDay : Word;
NowYear, NowMonth, NowDay : Word;
begin
DecodeDate(Date, NowYear, NowMonth, NowDay);
DecodeDate(BirDate, BirYear, BirMonth, BirDay);
if NowMonth > BirMonth then
Result := NowYear - BirYear
else if NowMonth = BirMonth then
if NowDay >= BirDay then
Result := NowYear - BirYear
else
Result := NowYear - BirYear - 1;
else
Result := NowYear - BirYear - 1;
end;

多人接受答案了。