引言: 月份換算幾天.... 例92/05/06---->如何抓日是6日 92/05/06---->如何抓每月的天數,例是5月有31天 A/B=2.089 如何計算出2*30 0.89*30天

引言:

引言: 月份換算幾天.... 例92/05/06---->如何抓日是6日 92/05/06---->如何抓每月的天數,例是5月有31天 A/B=2.089 如何計算出2*30 0.89*30天

• var
    Y, M, D: Word;
  begin
    DecodeDate(Date, Y, M, D);
    //D即是捉日
  end;
  

• 提供您一個小弟寫的funciton抓每月的天數：

  function LastDay(xDate: TDate): Word;
  var
    Y, M , D: Word;
  const aMonthLastDay: array[1..12] of word
                       =(31,28,31,30,31,30,31,31,30,31,30,31);
  begin
    DecodeDate(xDate, Y, M, D);
    if Y mod 4 = 0 then
      aMonthLastDay[2] := 29
    else
      aMonthLastDay[2] := 28;
    result := aMonthLastDay[M];
  end;
  

• "A/B=2.089 如何計算出2*30 0.89*30天" 不懂您的意思?

~小弟淺見，參考看看~ 發表人 - channel 於 2003/06/16 18:28:27

引言: A/B=2.089 如何計算出2*30 0.89*30天 即2.089月要算共幾天,

var
  aDay: Integer;
begin
  aDay := StrToInt(FormatFloat('#0',2.089*30));
end;

不過這樣算出來只是一個近似值吧! ddy兄： 小弟的function有加上判斷閏年的算法呀!如下：

  if Y mod 4 = 0 then
    aMonthLastDay[2] := 29
  else
    aMonthLastDay[2] := 28;

不過您說：「取得某月的最後一天，可以先取得下一個月的第一天再減 1 就可取得，當月的最後一天」，又讓我偷學一招，長知識了，感謝前輩的指導!

引言:

引言: A/B=2.089 如何計算出2*30 0.89*30天 即2.089月要算共幾天,

var
  aDay: Integer;
begin
  aDay := StrToInt(FormatFloat('#0',2.089*30));
end;

不過這樣算出來只是一個近似值吧! ddy兄： 小弟的function有加上判斷閏年的算法呀!如下：

  if Y mod 4 = 0 then
    aMonthLastDay[2] := 29
  else
    aMonthLastDay[2] := 28;

不過您說：「取得某月的最後一天，可以先取得下一個月的第一天再減 1 就可取得，當月的最後一天」，又讓我偷學一招，長知識了，感謝前輩的指導! < face="Verdana, Arial, Helvetica"> A/B=2.089 如何寫?

引言: ddy兄： 小弟的function有加上判斷閏年的算法呀!如下： if Y mod 4 = 0 then aMonthLastDay[2] := 29 else aMonthLastDay[2] := 28;

channel 兄，不好意思啦~~小弟一時眼花…沒看到…沒看到~~sorry 啦< > 唉~~我今天是怎麼了< >

引言:

引言: 月份換算幾天.... 例92/05/06---->如何抓日是6日 92/05/06---->如何抓每月的天數,例是5月有31天 A/B=2.089 如何計算出2*30 0.89*30天

• var
    Y, M, D: Word;
  begin
    DecodeDate(Date, Y, M, D);
    //D即是捉日
  end;
  

• 提供您一個小弟寫的funciton抓每月的天數：

  function LastDay(xDate: TDate): Word;
  var
    Y, M , D: Word;
  const aMonthLastDay: array[1..12] of word
                       =(31,28,31,30,31,30,31,31,30,31,30,31);
  begin
    DecodeDate(xDate, Y, M, D);
    if Y mod 4 = 0 then
      aMonthLastDay[2] := 29
    else
      aMonthLastDay[2] := 28;
    result := aMonthLastDay[M];
  end;
  

• "A/B=2.089 如何計算出2*30 0.89*30天" 不懂您的意思?

~小弟淺見，參考看看~ 發表人 - channel 於 2003/06/16 18:28:27

var
  Y, M, D: Word;
begin
  DecodeDate(Date, Y, M, D);
  ShowMessage(ShortMonthNames[M]);
  ShowMessage(LongMonthNames[M]);
end;

引言:

var
  Y, M, D: Word;
begin
  DecodeDate(Date, Y, M, D);
  ShowMessage(ShortMonthNames[M]);
  ShowMessage(LongMonthNames[M]);
end;

--- 每個人都是一本書

引言: 有關 Date 的運用 Delphi 提供一個 Unit ---> DateUtils 內有很多有關日期的運用，可以好好參考