勤怠集計でディクショナリとクラスの愛称がいいことをチャッピーに教えてもらた!!
Dim Dic社員 As New Dictionary
Dic社員.Add "1001", New Class社員
Dic社員("1001").氏名 = "山田"
Dic社員("1001").所定勤務時間 = 8
Dic社員("1001").遅刻許容分 = 10
Dic社員.Add "1002", New Class社員
Dic社員("1002").氏名 = "田中"
Dic社員("1002").所定勤務時間 = 7.5
Dic社員("1002").遅刻許容分 = 0
従業員番号 = "1001"
If 勤務時間 < Dic社員(従業員番号).所定勤務時間 Then
MsgBox "勤務時間不足"
End If