Aussiebear
09-19-2015, 06:06 AM
All four of these lines all fail at the first occurrence of the full stop, when trying to convert time degrees to decimal degrees to radians. What have I missed?
txtRLat1.Value = "=(Left(txtLat1.Value, FIND(".",txtLat1.value)-1)+Mid(txtLat1.Value, _
FIND(".",txtLat1.Value)+1,10)/60)*PI()/180"
txtRLat2.Value = "=(Left(txtLat2.Value, FIND(".",txtLat2.value)-1)+Mid(txtLat2.Value, _
FIND(".",txtLat2.Value)+1,10)/60)*PI()/180"
txtRLong1.Value = "=(Left(txtLong1.Value, FIND(".",txtLong1.value)-1)+Mid(txtLong1.Value, _
FIND(".",txtLong1.Value)+1,10)/60)*PI()/180"
txtRLong2.Value = "=(Left(txtLong2.Value, FIND(".",txtLong2.value)-1)+Mid(txtLong2.Value, _
FIND(".",txtLong2.Value)+1,10)/60)*PI()/180"
txtRLat1.Value = "=(Left(txtLat1.Value, FIND(".",txtLat1.value)-1)+Mid(txtLat1.Value, _
FIND(".",txtLat1.Value)+1,10)/60)*PI()/180"
txtRLat2.Value = "=(Left(txtLat2.Value, FIND(".",txtLat2.value)-1)+Mid(txtLat2.Value, _
FIND(".",txtLat2.Value)+1,10)/60)*PI()/180"
txtRLong1.Value = "=(Left(txtLong1.Value, FIND(".",txtLong1.value)-1)+Mid(txtLong1.Value, _
FIND(".",txtLong1.Value)+1,10)/60)*PI()/180"
txtRLong2.Value = "=(Left(txtLong2.Value, FIND(".",txtLong2.value)-1)+Mid(txtLong2.Value, _
FIND(".",txtLong2.Value)+1,10)/60)*PI()/180"