AJUDA

USUARIO.EXCLUIDOS 19/12/2006 20:46:18
#191022

Alguém pode converter esse código para VB.net pra mim?

IF sin(lon2-lon1)<0
tc1=acos((sin(lat2)-sin(lat1)*cos(d))/(sin(d)*cos(lat1)))
ELSE
tc1=2*pi-acos((sin(lat2)-sin(lat1)*cos(d))/(sin(d)*cos(lat1)))
ENDIF

Grato
Bruno Lelli