自己解決 月数にすれば簡単でしたね(汗
Function tuki(day1, day2 As Date)
’使い方 tuki([入社日],[退社日]) tuki([入社日],date()) Dim i As Long
If (Format(day1, "dd") < Format(day2, "dd")) Then i = DateDiff("m", day1, day2) Else i = DateDiff("m", day1, day2) - 1 End If
tuki = i End Function
テーブル設計は添付の通りに検討中ですが...
不適切なコンテンツとして通報するには以下の「送信」ボタンを押して下さい。 現在このグループでは通報を匿名で受け付けていません。 管理者グループにはあなたが誰であるかがわかります。
どのように不適切か説明したい場合、メッセージをご記入下さい。空白のままでも通報は送信されます。
通報履歴 で、あなたの通報と対応時のメッセージを確認できます。
Accessのテーブルやクエリのデータを貼り付ける場合は下記で、Markdown書式のテーブルに変換して貼り付けてください。
Markdown Tables generator