期間内の月数を取得

解決

よしむね  2004-12-03 17:15:29  No: 12075  IP: 192.*.*.*

指定された期間内の月数を返したいと思います。
例えば    開始  2003/12  終了 2004/11   11ヶ月と表示していです。

環境   Delphi5 WindowsXP

編集 削除
りおりお  2004-12-03 17:36:16  No: 12076  IP: 192.*.*.*

D6 では

uses
  DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := IntToStr(Round(MonthSpan(VarToDateTime('2003/12'),VarToDateTime('2004/11'))));
end;

D5 では MonthSpan が使えますか？

編集 削除
HOta  2004-12-03 17:38:05  No: 12077  IP: 192.*.*.*

MonthSpan関数ではいかがですか？

編集 削除
よしむね  2004-12-03 17:56:55  No: 12078  IP: 192.*.*.*

りおりおさん、HOtaさん有難うございます。
上記の例題通りコンパイルをしたら【未定義の拡張子エラー】になりました
MonthSpan関数はDelphi5には対応していないのでしょうか？
仮に別の方法がありましたらご伝授よろしくお願いします。

編集 削除
りおりお  2004-12-03 18:00:27  No: 12079  IP: 192.*.*.*

じゃこれは？

procedure TForm1.Button2Click(Sender: TObject);
begin
  Label1.Caption := IntToStr(Round(Abs(VarToDateTime('2003/12')-VarToDateTime('2004/11'))/30.4375));
end;

編集 削除
よしむね  2004-12-03 18:05:08  No: 12080  IP: 192.*.*.*

りおりおさん。早速のお返事有難うございます。
お蔭様で無事解決することができました。本当に有難う御座います。

編集 削除