hatena
hatena
2019/03/06 (水) 19:30:17
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
通報 ...