张志峰的博客

水滴石川，积少成多。

导航

随笔分类 -  Delphi 日期函数

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 ╰★张志峰★╮ 阅读(1671) 评论(0) 推荐(0)