VBS（VBScript）によるアークタンジェント（ラジアン）の値を返す関数を紹介
アークタンジェント（ラジアン）の値を返す関数 atn(A) ：A は数値（直角三角形の高さを底辺で割った値）
サンプルソース
Dim x,a,b
x = atn(1) '45度を想定
a = x * 180 / 3.1415926535897 'ラジアンから角度を出す
b = cint(a) '整数値で約の値にした（無理やり）
MsgBox(b)