取得指定月份的第一天和最後一天的日期

bestlong

1. //取得指定月份的第一天和最後一天的日期
   
2. //fdom回傳參數為日期所在月份的第一天的日期
   
3. //ldom回傳該月份的最後一天的日期（所給日期的下一個月的第一天日期減去一，很簡單吧！）
   
4. 
   
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;
    
12. 
    
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

取得目前月的最後日期

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

1. var FirstDay, LastDay: TDateTime;
   
2. 
   
3. //本月第一天
   
4. FirstDay := StrToDate(FormatDateTime('yyyy-MM-01', Now));
   
5. 
   
6. //本月最後一天
   
7. LastDay := IncMonth(FirstDay) - 1;

複製代碼