請問在輸入年月時，如何得知該月份的起迄日期，謝謝!! 例如輸入2003年8月份， 就可知道日期區間是『2003/8/1』 到 『2003/8/31』

Look at DateUtils, e.g. DaysInMonth function

Hi May : DateUtils 開始日 function StartOfTheMonth(const AValue: TDateTime): TDateTime; function StartOfAMonth(const AYear, AMonth: Word): TDateTime; 結束日 function EndOfTheMonth(const AValue: TDateTime): TDateTime; function EndOfAMonth(const AYear, AMonth: Word): TDateTime; 我不是高手, 高手是正在銀幕前微笑的人.

------


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

不好意思，再請問要如何使用，謝謝!! 開始日 function StartOfTheMonth(const AValue: TDateTime): TDateTime; function StartOfAMonth(const AYear, AMonth: Word): TDateTime; 結束日 function EndOfTheMonth(const AValue: TDateTime): TDateTime; function EndOfAMonth(const AYear, AMonth: Word): TDateTime;

剛剛看了您發問的問題覺得很有趣 如果要輸出String可以類似以下這樣 DateToStr(StartOfAMonth(2003,8)) DateToStr(EndOfAMonth(2003,8))

謝謝你的回答，可是我執行時會出現如下的錯誤訊息，請問是哪做錯了呢?謝謝! 『undeclared identifier:StartOfAMonth』

謝謝你的回答，可是我執行時會出現如下的錯誤訊息，請問是哪做錯了呢?謝謝! 『undeclared identifier:StartOfAMonth』

StartOfAMonth(YYYY,MM)及EndOfAMonth(YYYY,MM)函數是新版D6或D7才有的 函數,如果用D5就需自己算,用次一個月減一天就為上月最後一天.

可是我的版本是D6啊

謝謝大家的幫忙，原來是要在 uses中加入『DateUtils』，才可使用該函數。

unit Unit1; interface uses SysUtils, //<-------------------------use SysUtils進來 Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin // 如我要算2003年8月有幾天 ShowMessage('2003年8月有 = ' IntToStr(MonthDays[IsLeapYear(2003)][8])); end;