Delphi7中表示每月第一天和每年第一天的函数

  • 亚历山高
  • 2024-05-10
  • 359 人已阅读

DateTimePicker1.Date:=StartOfTheYear(Now);//今年第一天的日期

DateTimePicker2.Date:=EndOfTheYear(Now);    //今年最后一天的日期


DateTimePicker3.Date:=StartOfTheMonth(Now);//本月第一天的日期

DateTimePicker4.Date:=EndOfTheMonth(Now);    //本月最后一天的日期


DateTimePicker5.Date:=StartOfTheWeek(Now);   //本周第一天的日期

DateTimePicker5.Date:=EndOfTheWeek(Now);   //本周最后一天的日期


Top