期間内の月数を取得

解決

よしむね 2004-12-04 02:15:29 No: 12075

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

環境 Delphi5 WindowsXP

りおりお 2004-12-04 02:36:16 No: 12076

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-04 02:38:05 No: 12077

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

よしむね 2004-12-04 02:56:55 No: 12078

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

りおりお 2004-12-04 03:00:27 No: 12079

じゃこれは？

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

よしむね 2004-12-04 03:05:08 No: 12080

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