[farhat]

السلام عليكم ورحمة الله وبركاته
هذا الكود لتحويل الدرجات الى الرديان

كود :

Private Function DegreesToRadians(ByVal degrees As Double) As Double
       Return degrees / (180 / Math.PI)
   End Function

  ويستعمل هكذا

كود :

(150)DegreesToRadians

و هذا يقوم بالعكس 

كود :

Private Function RadiansToDegrees(ByVal radians As Double) As Double
       Return radians * (180 / Math.PI)
   End Function

يمكن استعماله لحساب الزوايا

[Buseiligm]

جزاك الله خير