獲得指定月的最後一天與在指定的日期上加上3月

    ——此文章摘自《Delphi開發經驗技巧寶典》定價￥　特價￥ 購買>>

    獲得指定月的最後一天

    在日常生活中我們往往需要知道某個月的最後一天而在計算機中也是同樣如此本例中將通過一個自定義的函數來返回用戶所選擇的月份的最後一天

    程序運行結果如圖所示

圖  獲得指定月的最後一天

    主要代碼如下
    定義一個自定義函數
    function md(dat:Tdate):TDate;
    為md函數添加如下代碼
    function TFormmd(dat: Tdate): TDate;
    var
     dmy:word;
    begin
      DecodeDate(Incmonth(Dat)YMD);
      result:=EncodeDate(YM);
      LabelCaption := 本月的最後一天是+DateToStr(result);
    end;
    單擊確定按鈕調用md函數
    procedure TFormButtonClick(Sender: TObject);
    begin
     md(DateTimePickerDate);
    end;

    在指定的日期上加上月

    在整理數據時有時可能需要在指定的月份上加上幾月或減去幾月以進行數據更新或查詢操作本例中主要應用了IncAMonth過程在指定的月份上加上月並將結果顯示到文本框中

    程序運行結果如圖所示

圖  在指定的日期上加上月

    主要代碼如下
    當窗體創建時使文本框中顯示當前年月日
    procedure TFormFormCreate(Sender: TObject);
    begin
     EditText := FormatDateTime(yyyyNow());
     EditText := FormatDateTime(mmNow());
     EditText := FormatDateTime(ddNow());
    end;
    應用IncAMonth過程在指定的日期上加上月
    procedure TFormButtonClick(Sender: TObject);
    var
     YearMonthDay : word;
    begin
     Year := StrToInt(EditText);
     Month := StrToInt(EditText);
     Day := StrToInt(EditText);
     IncAMonth(YearMonthDay);
     EditText := IntToStr(Year)+年
              +IntToStr(Month)+月
              +IntToStr(Day)+日;
    end;

From:http://tw.wingwit.com/Article/program/Delphi/201311/24930.html