可直接利用的Excel函数

/db_自贡黄明儒_

一般画图的人，可能都装有Excel，当然，这是我猜的，并没什么根据。
Lisp可直接利用excel的一些函数，你就不必自己亲自写了。有些函数功能特别强大，如text 、CONVERT，自己写可能写得没有excel的好。
这些函数是我花了许多时间一个一个地试出来，当时主要是不熟习excel。
;;lisp可直接利用的VBA函数 ;BY黄明儒

;;通用式
;;示1 (ExcelFunction (list 'Choose 2 "一月" "二月" "三月"));==>"二月"  nth
;;示2 (ExcelFunction (list 'Dec2Bin 9))=>"1001";(ExcelFunction (list 'Dec2Bin 9 4))=>"1001"
;;----Bin2Dec Bin2Hex Bin2Oct Dec2Bin Dec2Hex Dec2Oct Hex2Bin Hex2Dec Hex2Dec Oct2Bin Oct2Dec Oct2Hex
;;示3 (ExcelFunction (list 'Acos 0.5))=>1.0472(60度)反余弦; (ExcelFunction (list 'Atan2 1 1))=>0.785(45度)
;;---ABS ACOS ACOSH ASIN ASINH ATAN ATAN2 COS COSH DEGREES EVEN EXP FACT FACTDOUBLE FLOOR GCD INT LCM LN LOG LOG10...
;;示4 (ExcelFunction (list 'Round 3.21 1))=>3.2
;;---Round,而 RoundDown RoundUp Ceiling Ceiling_Precise Floor Floor_Precise
;;示5 (ExcelFunction (list 'Text 123 "正;负;零"))=>"正";(ExcelFunction (list 'Text 123 "A;B;C"))=>"A"
;;;(ExcelFunction (list 'Text 12.3 "0000"))=>"0123"格式化字串,取整后不足前面补0
;;;(ExcelFunction (list 'Text 12.3 "  0"))=>"  12" 取整后前加空格
;;;(ExcelFunction (list 'Text "2010/5/1 9:8:5" "YYYY年MM月DD日"))=>"2010年05月01日"
;;;y:一年中的第几天（1-366）
;;;yy：两位数的年份(00-99)
;;;yyy：上面的 yy 与 y 结合在一起
;;;yyyy：四位数的年份(0100-9999)
;;;d：一个月中的第几天（1-31）
;;;dd：与 d 相同，但不足两位时补足 0
;;;ddd：三个英文字母表示的星期几
;;;dddd：英文表示的星期几
;;;ddddd：显示标准日期
;;;dddddd：长日期
;;;(ExcelFunction (list 'Text "2010-5-1 9:8:5" "ddd"))=>"Sat"
;;;(ExcelFunction (list 'Text "ab" "@@"))=>"abab"
;;;(ExcelFunction (list 'Text "ab" "@@X"))=>"ababX"
;;;(ExcelFunction (list 'Text "ab" "!@@@@"))=>"@ababab"
;;;(ExcelFunction (list 'Text "2010-1-1 9:8:5" "mmm"))=>"Jan"
;;;m：月份数(当用于时间时，也可以表时为分钟)
;;;mm：当小于10时带前导0的月数(当用于时间时，也可以表示为两位数的分钟数）
;;;mmm：三个英文字母表示的月份数
;;;mmmm：英文表示的月份数
;;(ExcelFunction (list 'Text 123.35 "[DBNum2]"))=>"壹佰贰拾叁.叁伍"
;;(ExcelFunction (list 'Text 23 "[DBNum2]0角0分"))=>"贰角叁分"
;;(ExcelFunction (list 'Text 23 "[DBNum2]0000"))=>"零零贰叁"
;;(ExcelFunction (list 'Text 1.23 "0%"))=> "123%"
;;(ExcelFunction (list 'Text 1.30 "hh:mm:ss"))=> "07:12:00"
;;;其它功能请核查VBA format Text
;;示例6 CONVERT(number, from_unit, to_unit)
;;;克 "g"
;;;斯勒格 "sg"
;;;磅（常衡制） "lbm"
;;;U（原子质量单位） "u"
;;;盎司（常衡制） "ozm"
;;;距离 From_unit 或 to_unit
;;;米 "m"
;;;法定英里 "mi"
;;;海里 "Nmi"
;;;英寸 "in"
;;;英尺 "ft"
;;;码 "yd"
;;;埃 "ang"
;;;宏 "pica"
;;;时间 From_unit 或 to_unit
;;;年 "yr"
;;;日 "day"
;;;小时 "hr"
;;;分钟 "mn"
;;;秒 "sec"
;;;压强 From_unit 或 to_unit
;;;帕斯卡 "Pa"（或 "p"）
;;;大气压 "atm"（或 "at"）
;;;毫米汞柱 "mmHg"
;;;力 From_unit 或 to_unit
;;;牛顿 "N"
;;;达因 "dyn"（或 "dy"）
;;;磅力 "lbf"
;;;能量 From_unit 或 to_unit
;;;焦耳 "J"
;;;尔格 "e"
;;;热力学卡 "c"
;;;IT 卡 "cal"
;;;电子伏 "eV"（或 "ev"）
;;;马力-小时 "HPh"（或 "hh"）
;;;瓦特-小时 "Wh"（或 "wh"）
;;;英尺磅 "flb"
;;;BTU "BTU"（或 "btu"）
;;;乘幂 From_unit 或 to_unit
;;;马力 "HP"（或 "h"）
;;;瓦特 "W"（或 "w"）
;;;磁 From_unit 或 to_unit
;;;特斯拉 "T"
;;;高斯 "ga"
;;;温度 From_unit 或 to_unit
;;;摄氏度 "C"（或 "cel"）
;;;华氏度 "F"（或 "fah"）
;;;开氏温标 "K"（或 "kel"）
;;;液体度量 From_unit 或 to_unit
;;;茶匙 "tsp"
;;;汤匙 "tbs"
;;;液量盎司 "oz"
;;;杯 "cup"
;;;U.S. 品脱 "pt"（或 "us_pt"）
;;;U.K. 品脱 "uk_pt"
;;;夸脱 "qt"
;;;加仑 "gal"
;;;升 "l"（或 "lt"）
;;(ExcelFunction (list 'CONVERT 1 "in" "mm"))=>25.4
;;(ExcelFunction (list 'CONVERT 1 "mn" "sec"))=>60.0
;;示例6 (ExcelFunction (list 'CLEAN " m n \t\nm"))=>" m n m"删除文本中不能打印的字符
;;示例7 (ExcelFunction (list 'Complex 2 3))=>"2+3i" 转换为复数
;;--- (ExcelFunction (list 'IMSUB "2+3i" "3+2i"))=>"-1+i"返回两个复数的差
;;---IMCONJUGATE IMCOS IMDIV IMEXP IMLN IMLOG10 IMLOG2 IMPOWER IMPRODUCT IMREAL IMSIN IMSQRT IMSUB IMSUM
;;示例8 (ExcelFunction (list 'ISNUMBER "3"))=>0 0表示真
;;---ISEVEN偶数 ISNONTEXT文本 ISNUMBER数字 ISODD奇数 ISTEXT文本
;;(ExcelFunction (list 'DEGREES 3.14)

dnbcgrass

谢谢分享！

taoyi0727

谢谢黄大师做的贡献
好多东西都是看你的贴子学的

hefamiao

谢谢黄大师做的贡献

hefamiao

谢谢黄大师做的贡献

zhystar

谢谢楼主分享

tzfcn

好东西，谢谢分享，这可以加快编程、提高效率。

HLCAD

难得的好程序，感谢分享！

xudi1234

厉害，CAD版的excel的！

819534890

厉害厉害厉害

xfange

学习学习，太深奥了

Michael527

谢谢黄老师的分享，还没太理解

279491611

感谢大师分享学习了！