elvis114
一般會員
發表:37 回覆:53 積分:18 註冊:2003-06-17
發送簡訊給我
|
Dear All : 如何判斷出每月最後一天,不管現在是何年何月?? =======================
謝謝各位大德不吝賜教!!
小弟感激不進
=======================
------ 願
南無藥師琉璃光如來
保佑您
|
kaida
中階會員
發表:4 回覆:35 積分:52 註冊:2003-03-02
發送簡訊給我
|
無論何年何月,用DaysInMonth可以求出該月的天數,從該月的天數就可以求出該月的最後一天了。 發表人 - kaida 於 2004/02/26 18:41:38
|
Mickey
版主
發表:77 回覆:1882 積分:1390 註冊:2002-12-11
發送簡訊給我
|
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;
|
小蚊子
中階會員
發表:55 回覆:267 積分:94 註冊:2002-06-08
發送簡訊給我
|
每個月的 1 號(第一天) 減 1
就是上個月的最後一天
潤年一樣適用 !!
|
Miles
尊榮會員
發表:27 回覆:662 積分:622 註冊:2002-07-12
發送簡訊給我
|
Hi elvis114 您好:
DateUtils
function EndOfTheMonth(const AValue: TDateTime): TDateTime;
在DateUtils裡有很多Date, Time的函數可以用 我不是高手, 高手是正在銀幕前微笑的人.
------
我不是高手, 高手是正在銀幕前微笑的人.
|
axsoft
版主
發表:681 回覆:1056 積分:969 註冊:2002-03-13
發送簡訊給我
|
引言:
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
/*生活是一種藝術,用心生活才能享受生活*/
|
yubad
一般會員
發表:0 回覆:15 積分:3 註冊:2003-11-26
發送簡訊給我
|
邏輯思考...
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)
|
elvis114
一般會員
發表:37 回覆:53 積分:18 註冊:2003-06-17
發送簡訊給我
|
Dear Mickey 版主: 謝謝你的熱心告知,But 我是用D 6該如何使用呢?? < > =======================
謝謝各位大德不吝賜教!!
小弟感激不進< >
=======================
------ 願
南無藥師琉璃光如來
保佑您
|
Fishman
尊榮會員
發表:120 回覆:1949 積分:2163 註冊:2006-10-28
發送簡訊給我
|
Hi elvis114, Mickey 版大的寫法在 D6 中一樣可以 Work !! 感謝 Mickey 版大,又學了一招 ----------------------------------
小弟才疏學淺,若有謬誤尚請不吝指教
----------------------------------
------ Fishman
|
elvis114
一般會員
發表:37 回覆:53 積分:18 註冊:2003-06-17
發送簡訊給我
|
Dear Mickey 版主:
謝謝你喔 < >< > =======================
謝謝各位大德不吝賜教!!
小弟感激不進
=======================
------ 願
南無藥師琉璃光如來
保佑您
|