Microsoft Access 掲示板

自己解決
月数にすれば簡単でしたね（汗

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

テーブル設計は添付の通りに検討中ですが...

shigeさん、移設第一号の質問、ありがとうございます。

私も法律関係には詳しくないのであまり的確なアドバイスは難しいと思いますが、テーブル設計は画像のものでよくできていると思われます。あとは、いろいろ、テスト入力などして問題点をあらいだせばいいかと思います。

ちなみに、コード部分ですが、前に``` (トリプルバッククォート)を挿入するとコードブロックになり読みやすくなりますので、編集ボタンから修正してみてください。バッククォートは Shift+@ で入力できます。
さらに前のものは、```js とすると色がつきますので、より見やすくなります。

下記のようになります。

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

こちらこそ、後押しありがとうございます
テーブル設計に何となく不安があったのですが、本日より作成にかかろうと思います

最初の質問は編集可能でしたがレスの編集が分からなかったのでテストさせて頂きます（汗
確かに、かなり見やすくなってますね！
掲示板とかHTML?は全然分からないので板汚す可能性大です

この下が囲われる？？
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