駐車場の料金算出　～ユーザー定義関数～

Function Tyuusya(入庫時間, 出庫時間, Optional 分込 = 0)
'-----------------設定-----------------------------------
昼時間 = TimeSerial(6, 0, 0)    '昼時間の設定（ 6:00～）
夜時間 = TimeSerial(20, 0, 0)   '夜時間の設定（20:00～）
昼料金 = 400                    '昼料金の設定（円／時間）
夜料金 = 70                     '夜料金の設定（円／時間）
一日料金 = 6300                 '一日料金の設定
'-----------------メイン---------------------------------
入時間 = TimeSerial(Hour(入庫時間), Minute(入庫時間), Second(入庫時間))
出時間 = TimeSerial(Hour(出庫時間), Minute(出庫時間), Second(出庫時間))
駐車時間 = 出庫時間 - 入庫時間
駐車日数 = Day(駐車時間 + 1)
If 駐車日数 = 31 Then
駐車日数 = 0
End If
If 入時間 >= 昼時間 And 入時間 <= 夜時間 Then
If 出時間 >= 昼時間 And 出時間 <= 夜時間 Then
If 入時間 <= 出時間 Then
昼駐車時間 = 出時間 - 入時間
Else
昼駐車時間 = 夜時間 - 入時間
昼駐車時間 = 昼駐車時間 + 出時間 - 昼時間
夜駐車時間 = 駐車時間 - 昼駐車時間
End If
Else
昼駐車時間 = 夜時間 - 入時間
夜駐車時間 = 駐車時間 - 昼駐車時間 - 駐車日数
x = 夜駐車時間
End If
Else
If 出時間 >= 昼時間 And 出時間 <= 夜時間 Then
昼駐車時間 = 出時間 - 昼時間
夜駐車時間 = 駐車時間 - 昼駐車時間 - 駐車日数
Else
If 入時間 < 昼時間 Then
If 入時間 <= 出時間 Then
If 出時間 > 夜時間 Then
夜駐車時間 = 昼時間 - 入時間 + 出時間 - 夜時間
昼駐車時間 = 駐車時間 - 夜駐車時間 - 駐車日数
Else
夜駐車時間 = 出時間 - 入時間
End If
Else
昼駐車時間 = 夜時間 - 昼時間
夜駐車時間 = 駐車時間 - 昼駐車時間 - 駐車日数
End If
Else
If 入時間 <= 出時間 Then
夜駐車時間 = 出時間 - 入時間
昼駐車時間 = 駐車時間 - 夜駐車時間 - 駐車日数
Else
If 出時間 < 夜時間 Then
夜駐車時間 = 出時間 + TimeSerial(24, 0, 0) - 入時間
Else
昼駐車時間 = 夜時間 - 昼時間
夜駐車時間 = 駐車時間 - 昼駐車時間 - 駐車日数
End If
End If
End If
End If
End If
料金 = 昼料金 * Hour(昼駐車時間)
料金 = 料金 + 夜料金 * Hour(夜駐車時間)
料金 = 料金 + 一日料金 * 駐車日数
If 分込 = 1 Then
料金 = 料金 + Minute(昼駐車時間) / 60 * 昼料金 + Minute(夜駐車時間) / 60 * 夜料金
End If
Tyuusya = 料金
End Function