本文整理自网络,侵删。

uses DateUtils;
procedure TForm1.MonthCalendar1Click(Sender: TObject);begincaption:= YearOf(MonthCalendar1.Date).ToString + '-' + MonthOfTheYear(MonthCalendar1.Date).ToString + '-' + DayOfTheMonth(MonthCalendar1.Date).ToString;//caption:=DateTimeToStr(MonthCalendar1.Date);end; 相关阅读 >>
android : assets与res/raw资源目录的区别
Delphi now、date、time、currentyear - 当前日期
更多相关阅读请进入《Delphi》频道 >>