掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ArcTanの戻り値を度単位にするには? (ID:3087)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
私も、一回で変換できる関数が見当たらなかったので、作って使用しています。 参考までに書き込んでおきますが、あまりスマートではないので もっと良い方法が有ればお願いします。 function GetKakudo(Q:Double):string; var D,S,M:Shortint; begin D:=Trunc(Q); Q:=Frac(Q)*60; S:=Trunc(Q); Q:=Frac(Q)*60; M:=Trunc(Q); Result:=inttostr(D)+'度'+inttostr(S)+'分'+inttostr(M)+'秒' end; Trunc、Fracを使っているので秒以下から繰り上がることは有りません。 繰り上がりが必要な場合は、考慮して作り直してください。 それと、180/Piを掛けなくても、RadToDeg関数が有ります
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.