Microsoft Access 掲示板

勤続年数について / 1

3 コメント
views
4 フォロー
1
shige 2019/03/06 (水) 15:01:52 d1a4b@b63e8

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

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

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

通報 ...