Dear All :     如何判斷出每月最後一天，不管現在是何年何月??    ======================= 謝謝各位大德不吝賜教!! 小弟感激不進 =======================

------
願
南無藥師琉璃光如來
保佑您

無論何年何月，用DaysInMonth可以求出該月的天數，從該月的天數就可以求出該月的最後一天了。 發表人 - kaida 於 2004/02/26 18:41:38

elvis114 你好:    我用 D7 試, uses "DateUtils" unit.    

procedure TForm1.Button1Click(Sender: TObject);
var n:TDate;
    y,m,d : word;
    i :integer;
begin
  n := Now;
  for i := 1 to 24 do begin
    decodedate(n,y,m,d);
    memo1.Lines.Add(DateToStr(EndOfAMonth(y,m)));
    IncAMonth(y,m,d);
    n := encodedate(y,m,d);
  end;
end;

每個月的 1 號(第一天) 減 1 就是上個月的最後一天 潤年一樣適用 !!

Hi elvis114 您好: DateUtils function EndOfTheMonth(const AValue: TDateTime): TDateTime; 在DateUtils裡有很多Date, Time的函數可以用 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

引言: elvis114 你好: 我用 D7 試, uses "DateUtils" unit.

procedure TForm1.Button1Click(Sender: TObject);
var n:TDate;
    y,m,d : word;
    i :integer;
begin
  n := Now;
  for i := 1 to 24 do begin
    decodedate(n,y,m,d);
    memo1.Lines.Add(DateToStr(EndOfAMonth(y,m)));
    IncAMonth(y,m,d);
    n := encodedate(y,m,d);
  end;
end;

elvis114 你好: Mickey版主的方法是OK的 我用BCB試了一下... < class="code"> Unit1.CPP //--------------------------------------------------------------------------- #include #pragma hdrstop #include #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { TDate n; WORD y,m,d; int i; n=Now(); Memo1->Clear(); for(i=0;i<=24;i++) { DecodeDate(n,y,m,d); Memo1->Lines->Add(DateToStr(EndOfAMonth(y,m))); IncAMonth(y,m,d); n = EncodeDate(y,m,d); } } //--------------------------------------------------------------------------- Unit1.H //--------------------------------------------------------------------------- #ifndef Unit1H #define Unit1H //--------------------------------------------------------------------------- #include #include #include #include <Forms.hpp> //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE-managed Components TButton *Button1; TMemo *Memo1; void __fastcall Button1Click(TObject *Sender); private: // User declarations public: // User declarations __fastcall TForm1(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif

/*生活是一種藝術,用心生活才能享受生活*/

邏輯思考... DD1 is a datetime Q:IS DD1 the last day of the month ?? => if month(DD1) <> month(DD1 1) then DD1 is the last day of month(DD1)

Dear Mickey 版主:    謝謝你的熱心告知，But 我是用D 6該如何使用呢??    < > ======================= 謝謝各位大德不吝賜教!! 小弟感激不進< > =======================

------
願
南無藥師琉璃光如來
保佑您

Hi elvis114,    Mickey 版大的寫法在 D6 中一樣可以 Work !!    感謝 Mickey 版大，又學了一招     ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

Dear Mickey 版主:      謝謝你喔 < >< > ======================= 謝謝各位大德不吝賜教!! 小弟感激不進 =======================

------
願
南無藥師琉璃光如來
保佑您