Translate

2014/07/29

[DateUtils]查出指定時間的當月第一天和最後一天

突然有這樣的一個需求,上網查了一下發現很大一票的高手在這塊都自己刻一份副程式。

難道 VCL Framework 裡就沒有好用的函式可使嗎?

答案是:有的

EndOfAMonth in Delphi Basics 中有提到了我想要的東西。

在 DateUtils 裡有「StartOfTheMonth」和「EndOfTheMonth」這兩個函式,可以很輕鬆地取得指定時間的 1 號 和 28.29.30.31 的最末日

範例如下:
var
  vFirstDate, vLastDate: TDateTime;
begin
  vFirstDate := DateUtils.StartOfTheMonth(Now());
  vLastDate   := DateUtils.EndOfTheMonth(Now());
  ShowMessage('The Month first Date: ' + DateToStr(vFirstDate) + #13#10 +
              'The Month last Date: ' + DateToStr(vLastDate));



只是,按「易讀程式之美學」一書所建議的起始和最末範圍命名法則有點小小的衝突,
==============
Start → First
End → Last
==============
但因為不會有「32」日這種超出日期的可能,這種小缺點就忍耐一下吧 (笑)


沒有留言:

張貼留言

JSON Parse in Delphi XE (03)

前情提要: JSON Parse in Delphi XE (01) JSON Parse in Delphi XE (02) 這篇要說明 JSON 格式在 Delphi 裡是怎麼被理解的。 JSON 名詞解釋: JSON(JavaScript Object N...