緯度経度からメッシュコードへ

いつも緯度経度からメッシュコードに変換するのに試行錯誤してしまうので、メモ。

Dim lat1 As Integer = Int(LatLon.Latitude / (40 / 60))
Dim lat2 As Integer = Int(LatLon.Latitude / (5 / 60)) Mod 8
Dim lat3 As Integer = Int(LatLon.Latitude / (30 / 3600)) Mod 10

Dim lon1 As Integer = Int(LatLon.Longitude)
Dim lon2 As Integer = Int(LatLon.Longitude / (7.5 / 60)) Mod 8
Dim lon3 As Integer = Int(LatLon.Longitude / (45 / 3600)) Mod 10

Dim firstMeshCode As String = Right(CStr(lat1), 2) + Right(CStr(lon1), 2)
Dim secondMeshCode As String = firstMeshCode + CStr(lat2) + CStr(lon2)
Dim thirdMeshCode As String = secondMeshCode + CStr(lat3) + CStr(lon3)