'©2006 by ytwinky, MD
Declare Function d2r(AngleInDegree As Double) As Double
Declare Function r2d(AngleInRadians As Double) As Double
Declare Function g2r(AngleInGon As Double) As Double
Declare Function r2g(AngleInRadians As Double) As Double
Declare Function d2g(AngleInDegree As Double) As Double
Declare Function g2d(AngleInGon As Double) As Double
'..
'clarification:
'degrees means circle with 360°
'radians means circle with 2Pi
'Gon means circle with 400 Gon

Function Pi As Double
  Return 4.0*Atn(1.0)
End Function

Function d2r(AngleInDegrees As Double) As Double 'from degrees to radians
  Return AngleInDegrees/45.0*Atn(1.0) 'angle in radians
End Function

Function r2d(AngleInRadians As Double) As Double 'from radians to degrees
  Return AngleInRadians/Atn(1.0)*45.0 'angle in degrees
End Function

Function g2r(AngleInGon As Double) As Double 'from Gon to radians
  Return AngleInGon/50.0*Atn(1.0) 'angle in radians
End Function

Function r2g(AngleInRadians As Double) As Double 'from radians to Gon
  Return AngleInRadians/Atn(1.0)*50.0 'angle in Gon
End Function

Function d2g(AngleInDegrees As Double) As Double 'from degrees to Gon
  Return AngleInDegrees/0.9 'angle in Gon, ZWEI Doubleberechnungen durch eine ersetzt..
End Function

Function g2d(AngleInRadians As Double) As Double 'from Gon to degrees
  Return AngleInRadians*0.9 'angle in degrees, ZWEI Doubleberechnungen durch eine ersetzt..
End Function

'in case you don't need it, snip here..
Print r2d(g2r(50))
GetKey
End