Excel VBA で入社日から今日迄の在籍日数を、年月日に分けて表示したいのですが上手くいきません

Question

Excel  VBA で入社日から今日迄の在籍日数を、年月日に分けて表示したいのですが上手くいきません。
DATEDIF関数で、年(yyyy)月(my)日(md)で求められますが
 VBAでDateDiff関数で記述しますが、1ヶ月未満の月数、日数が抽出出来ません。

A 4 入社日  B1 今日の日付　
求めたい場所
B 4 在籍年数　　C 4 月数（1年未満）　D4日数（1ヶ月未満）

このように求めたいです。
ご教授をよろしくお願いします。

tatsumaru77 · Accepted Answer

No4です。
＞ご教授いただいた通りに記述しましたが、
＞戻り値は、#VALUE! でした。
＞A 4 2021/1/2. B1 =TODAY() B4 #VALUE!
こちらでは、正しく動作しています。なぜ、#VALUEになるかはわかりませんが、別の方法を提示します。

No7のかたが提示された、
https://ka-zublog.com/2017/08/08/excel-datedif/
のktDATEDIFを使用する方法です。

文字数オーバーの為、下記URLに提示しました。
https://ideone.com/akVk8F

実行結果は添付図の通りです。

銀鱗 · Answer

ああ、「〇年〇ヵ月〇日」という形で表示したいという事でしたか。
そうなると、ちょっと面倒ですね。

自分なら
　DatePart関数　
で「年」「月」「日」の数を値として引っ張り出して、
入社日と今日の日付で、それぞれ演算させます。
桁上げとか桁下げの考え方をしないと正しく結果を得られませんから注意しましょう。
ちょっと面倒ですよ。
（1か月は何日……なんて前提条件を用意しなきゃいけない）

goomania · Answer

全ての場合を検証したわけではありませんが、No7さんのご指摘のうるう年の問題は、VBAのdatediff関数を使用する限り、少なくとも365では問題ないような気がします。
A4に入社日、B1に今日の日付があると仮定した場合の、365の環境で一応動作するサンプルは以下のようなものです。
他のバージョンではうるう年問題が発生するかも知れません。

Sub sample()
'Years of enrollment
Dim d1 As Long
Dim d2 As Long
Dim d3 As Long
Dim m1 As Long

Range("B1").Value = Date   '本日の日付をシステムから取り込む場合。手入力ならコメントアウト。
d1 = Range("A4").Value
d2 = Range("B1").Value
m1 = DateDiff("m", d1, d2)
d3 = DateAdd("m", m1, d1)
If DateDiff("d", d3, d2) < 0 Then m1 = m1 - 1
d3 = DateAdd("m", m1, d1)
Range("B4").Value = Int(m1 / 12)
Range("C4").Value = m1 Mod 12
Range("D4").Value = DateDiff("d", d3, d2)
End Sub

めぐみん_ · Answer

あと問題なのは

https://ka-zublog.com/2017/08/08/excel-datedif/

うるう年の存在についてはどちらを用いても面倒かも。

先の
＞DATEDIF関数については質問者さんは既にＶＢＡで使われているのですよね？

は DateDiff でしたね。f が１個抜けてました。

tatsumaru77 · Answer

No5様
問題点を整理すると
VBAで提供されている関数:DateDiff
Excelで提供されている関数:DATEDIF
であり、両者の関数は関数名が異なります。（かつ機能も多少違っています）

今回の要件を解決するために使える関数は、excel提供のDATEDIFになります。（VBAのDateDiffを使った場合は、月数（0~11）、日数(0~30)を算出するために、かなりの労力が必要になります）

excel提供のDATEDIFを使用する場合、通常は
Application.WorksheetFunction.DATEDIF
とすれば良いのですが、残念ながら
WorksheetFunctionにDATEDIFは登録されていないので、
Application.WorksheetFunction.DATEDIFとすることはできません。
（エラーになります）

その為、対策案としては、
1案：VBAのDateDiffを使い、月数（0~11）、日数(0~30)を算出するために、かなりの労力を使う。
2案：Evaluate関数を使う。
があり、私は２案を提示させていただきました。

めぐみん_ · Answer

No.2です。

DATEDIF関数については質問者さんは既にＶＢＡで使われているのですよね？

http://officetanaka.net/excel/vba/function/DateDiff.htm

VBA向けに関数として存在しているので頭にあれこれは付けなくても良いのかもですが。

tatsumaru77 · Answer

VBAのサンプルです。
Public Sub 経過年月日設定()
    Range("B4").Value = Application.Evaluate("DateDif(A4, B1, ""Y"")")
    Range("C4").Value = Application.Evaluate("DateDif(A4, B1, ""YM"")")
    Range("D4").Value = Application.Evaluate("DateDif(A4, B1, ""MD"")")
End Sub

worksheetfunctionではdatedifは使えないようです。
Evaluateで強引にdatedifを使ってみました。
evaluateについては下記URLを参照ください。
https://www.excel-chunchun.com/entry/excel-vba-evaluate

tatsumaru77 · Answer

年数　DATEDIF(入社日,今日,"Y")
月数　DATEDIF(入社日,今日,"YM")
日数　DATEDIF(入社日,今日,"MD")
ではいかがでしょうか。

めぐみん_ · Answer

初級レベルなジジィですので間違っているかもですけど。

No.1様の方法では月と日はトータル数が得られるのではないでしょうか？
結果としては入社日から現在までのトータルでの年数・月数・日数になるのではないかと。

方法としては金種表に類似するのかなって思いましたが、そもそも月の中の日数って何を基にするのだろう？としわを寄せて考えて熱だしそうです。
１ヶ月の日数についての定義とは何なのかなぁと。

変に考えすぎてる愚かなジジィの戯言かもしれませんけどね。

銀鱗 · Answer

年　DateDiff("yyyy", "2021/01/01", "2021/06/13")
月　DateDiff("m", "2021/01/01", "2021/06/13")
日　DateDiff("d", "2021/01/01", "2021/06/13")

こんな感じで指定するだけなんだけど...。

Excel VBA で入社日から今日迄の在籍日数を、年月日に分けて表示したいのですが上手くいきません

No4です。

ああ、「〇年〇ヵ月〇日」という形で表示したいという事でしたか。

全ての場合を検証したわけではありませんが、No7さんのご指摘のうるう年の問題は、VBAのdatediff関数を使用する限り、少なくとも365では問題ないような気がします。

あと問題なのは

No5様

No.2です。

VBAのサンプルです。

年数 DATEDIF(入社日,今日,"Y")

初級レベルなジジィですので間違っているかもですけど。

年 DateDiff("yyyy", "2021/01/01", "2021/06/13")

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

年数　DATEDIF(入社日,今日,"Y")

年　DateDiff("yyyy", "2021/01/01", "2021/06/13")