bestlong 怕失憶論壇

標題: 取得指定月份的第一天和最後一天的日期 [打印本頁]
作者: bestlong    時間: 2007-10-17 14:57     標題: 取得指定月份的第一天和最後一天的日期

  1. //取得指定月份的第一天和最後一天的日期
  2. //fdom回傳參數為日期所在月份的第一天的日期
  3. //ldom回傳該月份的最後一天的日期（所給日期的下一個月的第一天日期減去一，很簡單吧！）

  5. function fdom(date: tdatetime): tdatetime;
  6. var
  7.   year, month, day: word;
  8. begin
  9.   DecodeDate(date, year, month, day);
  10.   result := EncodeDate(year, month, 1);
  11. end;

  13. function ldom(date: tdatetime): tdatetime;
  14. var
  15.   year, month, day: word;
  16. begin
  17.   DecodeDate(date, year, month, day);
  18.   if month < 12 then Inc(month)
  19.   else begin month := 1; Inc(year) end;
  20.   result := EncodeDate(year, month, 1) - 1;
  21. end;
複製代碼
作者: bestlong    時間: 2009-12-17 09:52

取得目前月的最後日期
  1. function LastDayCurrMon: TDate;
  2. begin
  3.    result := EncodeDate(YearOf(Now), MonthOf(Now), DaysInMonth(Now)) ;
  4. end;
複製代碼
取得指定日期之當月的最後日期
  1. function LastDayOfMon(date: TDateTime): TDate;
  2. begin
  3.    result := EncodeDate(YearOf(date), MonthOf(date), DaysInMonth(date)) ;
  4. end;
複製代碼
作者: bestlong    時間: 2012-9-12 13:37

  1. var FirstDay, LastDay: TDateTime;

  3. //本月第一天
  4. FirstDay := StrToDate(FormatDateTime('yyyy-MM-01', Now));

  6. //本月最後一天
  7. LastDay := IncMonth(FirstDay) - 1;
複製代碼




歡迎光臨 bestlong 怕失憶論壇 (http://www.bestlong.idv.tw/) Powered by Discuz! X1.5