1、根据已知日期求一个月最后一天
函数:EndOfTheMonth
单元:DateUtils
范例:ldate := datetostr(EndOfTheMonth(DateTimePicker_Start.Date));
2、根据已知日期求日期属哪一年哪一个月
函数:YearOf、MonthOfTheYear
单元:DateUtils
范例:lyearmonth := inttostr(YearOf(DateTimePicker_Start.Date)) + '-' + inttostr(MonthOfTheYear(DateTimePicker_Start.Date));