Я использую VBScript в базе данных ГИС-коллекторов для проверки расстояния между двумя точками долготы и широты с помощью функции Trig. Скрипт для поиска пробега без проблем, но скрипт для проверки правильности O-D имел синтаксическую ошибку. Я очень надеюсь, что любой из вас сможет помочь мне с этой проблемой.
Было создано 2 новых активных столбца: Расстояние и VerifyDistance. Столбец расстояния был создан, чтобы найти расстояние с помощью функции Trig. Он работал успешно, но может нуждаться в улучшении своей грязной структуры. VerifyDistance использовала условия IF и проверила значение в другом столбце с именем «Valid O / D». Если значение «ОК», будет возвращено значение «Расстояние»; в противном случае он вернет текстовое значение, говорящее «точки O-D недопустимы» в этом столбце.
Как видите, я новичок в языке программирования. VBScript можно увидеть ниже:
Function Distance
Distance = sqr((111.21*Record.Data("Work Y-coord") - 111.21*Record.Data("Home Y-coord"))^2 + (85.30*Record.Data("Work X-coord") - 85.30*Record.Data("Home X-coord"))^2)
End Function
Function VerifyDistance
If Record.Data("Valid O/D") = "OK"
VerifyDistance = Record.Data("Distance")
'document.write("Invalid O-D Points")
Else
VerifyDistance = "O-D Points are invalid."
End If
End Function