関数 円周率(π)ディグリー(角度)ラジアンを求める
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Function vbPI() As Double '********************************** '円周率(π)を求る '********************************** 'Atn関数を利用(アークタンジェント) 'VB・VBAには円周率関数が無い '返値=近似値 'ワークシート関数を使わないで求める vbPI = 4 * Atn(1) '※エクセルVBAの場合、ワークシート関数からでも求める事が可能 'vbPI = Application.WorksheetFunction.PI End Function Function Radian(Degrees As Double) As Double '********************************** 'ディグリー(角度)からラジアンを求る '********************************** '返値=近似値 'ラジアン＝円周率÷180×ディグリー '円周率π=3.14159265358979 Radian = (vbPI / 180) * Degrees End Function Function Degree(Radian As Double) As Double '********************************** 'ラジアンからディグリー(角度)を求る '********************************** '返値=近似値 'ディグリー＝円周率÷180×ラジアン '円周率π=3.14159265358979 Degree = (180 / vbPI) * Radian End Function Private Sub test() ''円周率πを求る Debug.Print vbPI() '3.14159265358979 ''ディグリー(角度)からラジアンを求る Debug.Print Radian(90) '1.5707963267949 ''ラジアンからデグリー(角度)を求る Debug.Print Degree(1.5707963267949) '90.0000000000002 End Sub |
|
|
|
