将十进制数转换为二进制数

/db_自贡黄明儒_ · 发表于 2016-12-22 11:37:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;将十进制数 9 转换为 4 个字符的二进制数 (1001) 
(defun c:Dec2Bin (/ WorksheetFunction)
  (setq *excel* (vlax-get-or-create-object "excel.application"))  
  (setq WorksheetFunction (vlax-get *excel* 'WorksheetFunction))  
  (vlax-invoke WorksheetFunction 'Dec2Bin 9 4)
)

Lisphk · 发表于 2016-12-22 11:39:08

黄总，能做个转换任意进制的不？

/db_自贡黄明儒_ · 发表于 2016-12-22 11:44:21

;;进位
(defun c:RoundUp (/ WorksheetFunction)
  (setq *excel* (vlax-get-or-create-object "excel.application"))  
  (setq WorksheetFunction (vlax-get *excel* 'WorksheetFunction))  
  (vlax-invoke WorksheetFunction 'RoundUp 8.312 2)
)

/db_自贡黄明儒_ · 发表于 2016-12-22 11:53:12

本帖最后由 /db_自贡黄明儒_ 于 2016-12-22 11:55 编辑

格式化字串,不足前面补0
Newer的数字文字字首补位插件差不多，可能更强大

(defun c:Text1 (/ WorksheetFunction)
  (setq *excel* (vlax-get-or-create-object "excel.application"))  
  (setq WorksheetFunction (vlax-get *excel* 'WorksheetFunction))  
  (vlax-invoke WorksheetFunction 'Text 123 "0000")
)

;;===>"正"
(defun c:Text1 (/ WorksheetFunction)
  (setq *excel* (vlax-get-or-create-object "excel.application"))
  (setq WorksheetFunction (vlax-get *excel* 'WorksheetFunction))
  (vlax-invoke WorksheetFunction 'Text 123 "正;负;零")
)

/db_自贡黄明儒_ · 发表于 2016-12-22 12:02:33

;;偶数===>124.0
(defun c:Even (/ WorksheetFunction)
(setq *excel* (vlax-get-or-create-object "excel.application"))
(setq WorksheetFunction (vlax-get *excel* 'WorksheetFunction))
(vlax-invoke WorksheetFunction 'Even 123)
)

Lisphk · 发表于 2016-12-22 12:22:12

/db_自贡黄明儒_ 发表于 2016-12-22 11:53

WIN10 64位 EXCEL2016下，运行错误

运行了好长时间后，报错

命令: text1

错误: 参数类型错误: VLA-OBJECT nil

/db_自贡黄明儒_ · 发表于 2016-12-22 12:31:58

;;阶乘===>24.0
(defun c:Fact (/ WorksheetFunction)
  (setq *excel* (vlax-get-or-create-object "excel.application"))  
  (setq WorksheetFunction (vlax-get *excel* 'WorksheetFunction))  
  (vlax-invoke WorksheetFunction 'Fact 4)
)

Lisphk · 发表于 2016-12-22 12:36:32

/db_自贡黄明儒_ 发表于 2016-12-22 12:31

要找到在高版本EXCEL，WIN下的解决办法啊

/db_自贡黄明儒_ · 发表于 2016-12-22 12:41:16

;;平均值===>5.0
(defun c:Average (/ WorksheetFunction)
(setq *excel* (vlax-get-or-create-object "excel.application"))
(setq WorksheetFunction (vlax-get *excel* 'WorksheetFunction))
(vlax-invoke WorksheetFunction 'Average 4 6)
)

/db_自贡黄明儒_ · 发表于 2016-12-22 12:58:37

;;CONVERT1(1.0, "lbm", "kg") 将 1 磅转换为千克 (0.453592) 
(defun c:CONVERT1 (/ WorksheetFunction)
  (setq *excel* (vlax-get-or-create-object "excel.application"))  
  (setq WorksheetFunction (vlax-get *excel* 'WorksheetFunction))  
  (vlax-invoke WorksheetFunction 'CONVERT 1.0  "lbm"  "kg")
)

语法
CONVERT(number, from_unit, to_unit)CONVERT 函数语法具有下列参数（参数:为操作、事件、方法、属性、函数或过程提供信息的值。）：

Number 必需。以 from_units 为单位的需要进行转换的数值。
From_unit 必需。数值 number 的单位。
To_unit 必需。结果的单位。函数 CONVERT 接受下面的文本值（引号中）作为 from_unit 和 to_unit。
重量和质量 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"）

下列缩写的单位前缀可以加在任何的公制单位 from_unit 或 to_unit 之前。

前缀乘子缩写
exa 1E+18 "E"
peta 1E+15 "P"
tera 1E+12 "T"
giga 1E+09 "G"
mega 1E+06 "M"
kilo 1E+03 "k"
hecto 1E+02 "h"
dekao 1E+01 "e"
deci 1E-01 "d"
centi 1E-02 "c"
milli 1E-03 "m"
micro 1E-06 "u"
nano 1E-09 "n"
pico 1E-12 "p"
femto 1E-15 "f"
atto 1E-18 "a"

说明
如果输入数据的拼写有误，函数 CONVERT 返回错误值 #VALUE!。
如果单位不存在，函数 CONVERT 返回错误值 #N/A。
如果单位不支持缩写的单位前缀，函数 CONVERT 返回错误值 #N/A。
如果单位在不同的组中，函数 CONVERT 返回错误值 #N/A。
单位名称和前缀要区分大小写。
公式说明（结果）
=CONVERT(1.0, "lbm", "kg") 将 1 磅转换为千克 (0.453592)
=CONVERT(68, "F", "C") 将 68 华氏度转换为摄氏度 (20)
=CONVERT(2.5, "ft", "sec") 由于数据类型不同，因此返回错误值 (#N/A)
=CONVERT(CONVERT(100,"ft","m"),"ft","m") 将 100 平方英尺转换为平方米 (9.290304)。

ll_j · 发表于 2016-12-22 14:51:08

Lisphk 发表于 2016-12-22 11:39

http://bbs.xdcad.net/thread-468989-1-1.html

Lisphk · 发表于 2016-12-22 15:42:33

ll_j 发表于 2016-12-22 14:51

谢谢长老。

zrg1 · 发表于 2020-7-17 08:52:15

不错，学习学习！！

账号		自动登录	找回密码
密码			立即注册

[每日一码] 将十进制数转换为二进制数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

[每日一码] 将十进制数 转换为二进制数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

[每日一码] 将十进制数转换为二进制数