我有以下用于 MS Excel 的 VBA 函数。但是,我已将整个数据库导入 MS Access,我希望在不从 MS Excel 调用它的情况下使用此功能。可能吗?我必须改变什么?
`
'This is to find the GCDm (great circle distance) in miles
Function GCDnm(origin As String, dest As String) As Integer
Dim olat As Double
Dim olong As Double
Dim dlat As Double
Dim dlong As Double
Dim earthradius As Integer
earthradius = 6371
olat = coordlat(origin)
olong = coordlong(origin)
dlat = coordlat(dest)
dlong = coordlong(dest)
GCDnm = Round(WorksheetFunction.Acos(( _
Sin(WorksheetFunction.Radians(olat)) * _
Sin(WorksheetFunction.Radians(dlat)) + _
Cos(WorksheetFunction.Radians(olat)) * _
Cos(WorksheetFunction.Radians(dlat)) * _
Cos(WorksheetFunction.Radians(olong - dlong)))) * _
earthradius, 0) / 1.852
'GDCm = [arccos[sin(origin latitude) * sin(destination latitude) * cos(origin latitude) * sin(destination latitude) * cos(origin latitude - dest latitude)]*radius=6371]/1.852
End Function
`