Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

75692 / 76738

←次へ　｜　前へ→


	【5478】Re:DateDiff がどうしてもできない

Taka-mk2 - 03/5/15(木) 13:19 -


	引用なし

	パスワード

▼１２３さん：
>▼Taka-mk2 さん　こんにちは。
>
>ありがとうございました。解決です。
>
>しかしながら、DateDiffで求められる「年の差」は
>年のところしかみないようで、
>「2001/12/1」と「2002/1/1」の差は、「1」となってしまいます。
>（「0」となって欲しいのですが．．．）
>つまり、2001と2002を比べているようなのです。
>
>これってどうしょうようもないのでしょうか？

↑ですが、以下ではまずいですか？

WorksheetFunction.Round((DateDiff("d", tdate, ddate) / 365), 0)

DateDiffの計算単位を日付に変えて、365で割り、それを小数点以下第１位で四捨五入しているだけですが(笑)。
これで一応、求められているものに近いものになっていると思います。

ただし、この計算方法は閏年を考慮していません。
よって、年月の差が大きくなればなるほど、誤差が出ます。
閏年を考慮するとなると、ちょっとややこしくなるかなぁ。

以上、ご参考になれば。
ではではぁ♪

6 hits

▼

【5444】DateDiff がどうしてもできない １２３ 03/5/14(水) 12:37