Submission #5022434

Source Code Expand

Module Module1
Dim Deg, Deg10, Dis, Dis2, W As Currency
Dim Dir As String
  
Sub Main()

 
Deg = Int(UDeg)
Dis = Int(UDis)
'念のための制約CK
If Deg < 0 Or Deg >= 3600 Then
        MsgBox ("制約違反です")
        Exit Sub
End If
If Dis < 0 Or Dis >= 12000 Then
        MsgBox ("制約違反です")
        Exit Sub
End If
 
 
 
'風向
   Deg10 = Deg * 10
Select Case Deg10
     Case 0 To 1124
                     Dir = "N"
Case 1125 To 3374
                     Dir = "NNE"
Case 3375 To 5624
                     Dir = "NE"
Case 5625 To 7874
                     Dir = "ENE"
Case 7875 To 10124
                     Dir = "E"
Case 10125 To 12374
                     Dir = "ESE"
Case 12375 To 14624
                     Dir = "SE"
Case 14625 To 16874
                     Dir = "SSE"
Case 16875 To 19124
                     Dir = "S"
Case 19125 To 21374
                     Dir = "SSW"
Case 21375 To 23624
                     Dir = "SW"
Case 23625 To 25874
                     Dir = "WSW"
Case 25875 To 28124
                     Dir = "W"
Case 28125 To 30374
                     Dir = "WNW"
Case 30375 To 32624
                     Dir = "NW"
Case 32625 To 34874
                     Dir = "NNW"
Case 34875 To 35999
                     Dir = "N"
End Select
 
'風速
If Dis = 0 Then
      Dis2 = Dis
  Else
     Dis2 = Application.WorksheetFunction.Round(Dis / 60, 1) * 10
End If
Select Case Dis2
            Case 0 To 2
                    Dir = "C"
                      W = 0
            Case 3 To 15
                      W = 1
            Case 16 To 33
                      W = 2
            Case 34 To 54
                      W = 3
            Case 55 To 79
                      W = 4
            Case 80 To 107
                      W = 5
            Case 108 To 138
                      W = 6
            Case 139 To 171
                      W = 7
            Case 172 To 207
                      W = 8
            Case 208 To 244
                      W = 9
            Case 245 To 284
                      W = 10
            Case 285 To 326
                      W = 11
            Case Is >= 327
                      W = 12
End Select
 
 
UDir = Dir
UW = W
End Sub
End Module 
    

Submission Info