张志峰的博客

水滴石川，积少成多。

导航

2015年5月26日

delphi 当月的第一天， 当月的最后一天

摘要： //取当月的第一天function TDealWithXML.FDOM(Date: TDateTime): TDateTime;var Year, Month, Day: Word;begin DecodeDate(Date, Year, Month, Day); Result := Enco... 阅读全文

posted @ 2015-05-26 18:35 ╰★张志峰★╮ 阅读(711) 评论(0) 推荐(0)

delphi中计算指定日期是该月第几周的函数

摘要： NthDayOfWeek计算并返回指定日期是该月第几周Unit:DateUtilsfunctionNthDayOfWeek(constAValue: TDateTime): Word;Example:UsesSysUtils,DateUtils;Begin Write('Today is the '... 阅读全文

posted @ 2015-05-26 18:09 ╰★张志峰★╮ 阅读(1670) 评论(0) 推荐(0)