一般都可以在DATASET.FieldByName('日期时间').OnGetText中写入代码:
DisplayText:=True;
if MonthOf(Field.Value) >9 then
Text:=IntToStr(YearOf(Field.Value))+'年'+IntToStr(MonthOf(Field.Value))+'月份'
else
Text:=IntToStr(YearOf(Field.Value))+'年 0'+IntToStr(MonthOf(Field.Value))+'月份'