Degrees / Radians component

Overview

This simply converts from degrees to radians or vice versa .

Sample Code

<%
'declare our variables
Dim objDegRad , value1 , value2
'create an instance of our object
Set objDegRad = Server.CreateObject("DegRad.Convert")
'set our values
value1 = 90
value2 = 1.456
'convert the values
Response.Write value1 & " degrees is equal to " & objDegRad.DegToRad(value1) & " radians<br>"
Response.Write value2 & " radians is equal to " & objDegRad.RadToDeg(value2) & " degrees<br>"
'destroy our object
Set objDegRad = Nothing
%>

Download

Use right click and save as

DegRad.wsc