Excel电子表格弧度与度转换vba程序代码.doc

Excel电子表格弧度与度转换vba程序代码 时间:2010-12-15 15:30:35 ??来源:??作者:?? HYPERLINK /e/DoInfo/ChangeClass.php?mid=7 \t _blank 我要投稿?? HYPERLINK /e/member/fava/add?classid=66id=2072 我要收藏?? HYPERLINK /news/web/c5eaac898f694b697418dd9d5a9a55dd.html \t _blank 投稿指南 Public Const M_SEC# = 206264.8?????????????? 1弧度=206264.8″Public Const M_DEG# = 57.2957795130823?????? 1弧度=57.2957795130823°Public Const M_RAD# = 1.74532925199433E-02?? 1度=1.74532925199433E-02弧度Public Const M_PI# = 3.14159265358979???????? π=3.14159265358979?Public Function Rad(ByVal angle As Double) As Double 角度-弧度Dim A As Double, B As Double, C As Double, D As DoubleDim ang As Double, sign As Integerang = Abs(angle) + 0.0000000000001: sign = Sgn(angle)A = Int(ang): B = (ang - A) * 100#: C = Int(B): D = (B - C) * 100#Rad = sign * (A + C / 60# + D / 3600#) * M_RADEnd Function Public Function Dms(ByVal radian As Double) As Double hu度-角度Dim A As Double, B As Double, C As Double, D As Double, e As DoubleDim ang As Double, sign As Integerang = Abs(radian) + 0.00000000000001: sign = Sgn(radian): A = ang * M_DEGB = Int(A): C = (A - B) * 60: D = Int(C): e = (C - D) * 60Dms = sign * (B + D / 100# + e / 10000#)End Function Excel函数公式应用基础 时间:2010-01-27 10:31:38 ??来源: HYPERLINK \t _blank 本站??作者:xdw_815101?? HYPERLINK /e/DoInfo/ChangeClass.php?mid=7 \t _blank 我要投稿?? HYPERLINK /e/member/fava/add?classid=49id=1393 我要收藏?? HYPERLINK /news/web/c5eaac898f694b697418dd9d5a9a55dd.html \t _blank 投稿指南 一、函数应用基础　　1.函数和公式　　(1)什么是函数　　Excel函数即是预先定义，执行计算、分析等处理数据任务的特殊公式。以常用的求和函数SUM为例，它的语法是“SUM(number1,number2,......)”。其中“SUM”称为函数名称，一个函数只有唯一的一个名称，它决定了函数的功能和用途。函数名称后紧跟左括号，接着是用逗号分隔的称为参数的内容，最后用一个右括号表示函数结束。　　参数是函数中最复杂的组成部分，它规定了函数的运算对象、顺序或结构等。使得用户可以对某个单元格或区域进行处理，如分析存款利息、确定成绩名次、计算三角函数值等。　　按照函数的来源，Excel函数可以分为内置函数和扩展函数两大类。前者只要启动了Excel，用户就可以使用它们；而后者必须通过单击“工具→加载宏”菜单命令加载，然后才能像内置函数那样使用。　　(2)什么是公式　　函数与公式既有区别又互相联系。如果说前者是Excel预先定义好的特殊公式，后者就是由用户自行设计对工作表进行计算和处理的公式。以公式“=SUM(E1:H1)*A1+26”为例，它要以等号“=”开始，其内部可以包括函数、引用、运算符和常量。上式中的“SUM(E1:H1)”是函数，“A1”则是对单元格