明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 270|回复: 4

石必强大神函数excel数字日期转cad

[复制链接]
发表于 2020-11-16 21:20 | 显示全部楼层 |阅读模式
  1. ;【管理员】石必强(1291500406) 2020/11/16 16:56:13
  2. (defun BB-USING-vbs ( str)
  3. (if(or
  4. ScriptControl
  5. (setq ScriptControl (vlax-create-object "{e8540e26-d20e-483f-9fd5-a5a3553a7556}"))
  6. (setq ScriptControl (vlax-create-object "{0e59f1d5-1fbe-11d0-8ff2-00a0d10038bc}"))
  7. )(progn
  8. (vl-catch-all-apply 'vlax-put (list ScriptControl "language" "vbscript"))
  9. (vl-catch-all-apply ' vlax-invoke (list ScriptControl "eval"  str )
  10. ))))

  11. ;【管理员】石必强(1291500406) 2020/11/16 16:56:18
  12. ;(BB-USING-vbs "Year(44024)")
  13. ;(BB-USING-vbs "Month(44024)")
  14. ;(BB-USING-vbs "Day(44024)")
  15. ;星期
  16. ;(BB-USING-vbs "Weekday(44024)")
  17. (setq sz(strcat "(" (getstring "\n请输入数字:")")"))
  18. (setq rq(strcat (rtos (BB-USING-vbs (strcat "Year" sz)) 2 0 ) "年" (rtos (BB-USING-vbs (strcat "Month" sz)) 2 0 )"月"(rtos (BB-USING-vbs (strcat "Day" sz)) 2 0 )"日"
  19.   ) )
  20. (print rq)

发表于 2020-11-16 22:19 | 显示全部楼层
兄弟很久没出山了,最近在哪发财~
 楼主| 发表于 2020-11-17 15:31 | 显示全部楼层
czb203 发表于 2020-11-16 22:19
兄弟很久没出山了,最近在哪发财~

kubi苦逼打工中
发表于 2020-11-17 23:47 | 显示全部楼层
大神一般不轻易发言。。。。。。。。。。
发表于 2020-11-18 09:44 | 显示全部楼层
本帖最后由 crtrccrt 于 2020-11-18 09:49 编辑

       ;; 1900年日期系统,作为起始点使用1900年1月1日计算日期。;
       ;; 1904年日期系统,作为起始点使用1904年1月1日计算日期。;
(BB-USING-vbs "Year(1)")==1899
(BB-USING-vbs "Month(1)")=12
(BB-USING-vbs "Day(1)")===31
????
日期格式1900/1/1
常规格式1

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2020 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2020-11-25 21:20 , Processed in 0.148406 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表