Submission #5022494

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)
'風向
   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