- 勤続年数について
- 1
最新トピック
1
18 日前
排他制御 18 日前
2
1 ヶ月前
Hatena様にご質問 1 ヶ月前
6
3 ヶ月前
モジュールでカレントフォームのコントロールを使うには 3 ヶ月前
7
4 ヶ月前
日付のテキストボックスからフォームが開けません 4 ヶ月前
9
4 ヶ月前
レポートにおける数値の間隔を広げる方法 4 ヶ月前
12
4 ヶ月前
リストボックスから複数選択しそれをテーブルに格納したい 4 ヶ月前
11
5 ヶ月前
SQLの型が一致ませんエラー 5 ヶ月前
タグリスト
Markdown テーブル生成
Accessのテーブルやクエリのデータを貼り付ける場合は下記で、Markdown書式のテーブルに変換して貼り付けてください。
自己解決
月数にすれば簡単でしたね(汗
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
テーブル設計は添付の通りに検討中ですが...