2011年10月20日
Delphi中本年、本月、本周第一天和最后一天
摘要： uses DateUtils;function StartOfTheYear(const AValue: TDateTime): TDateTime;function EndOfTheYear(const AValue: TDateTime): TDateTime;function StartOfAYear(const AYear: Word): TDateTime;function EndOfAYear(const AYear: Word): TDateTime;function StartOfTheMonth(const AValue: TDateTime): TDateTime;func 阅读全文
posted @ 2011-10-20 13:34 毛小毛 阅读(1867) 评论(0) 推荐(0)