（XD::Time:ToDate）日期按格式转换

229096767 · 发表于 2022-10-18 17:38:04

谢谢分享

jxg1986j · 发表于 2022-11-1 10:50:34

不错不错，收藏了

yanshengjiang · 发表于 2022-11-29 16:09:43

(defun XD::TIME:InternetTime (format / julian)
  (if (xd::internet-p)
(progn (setq julian (xd::internet:geturlheade1"))
(setq julian (XD::Time:GMT2Julian julian))
(setq julian (rtos julian 2 15))
)
(progn (setq julian (rtos (getvar "date") 2 15)))
  )
  (XD::Time:ToDate julian format)
)
[/code]

命令: (XD::TIME:InternetTime "YYYY.MO.DD HH:MM:SS")
"2018.03.17 00:15:47"

命令: (XD::TIME:InternetTime "YYYY-MO-DD HH:MM:SS")
"2018-03-17 00:16:57"
命令: (XD::TIME:InternetTime "YYYY-MO-DD")
"2018-03-17"
命令: (XD::TIME:InternetTime "HH:MM:SS")
"00:19:48"

wll85 · 发表于 2023-1-11 06:44:41

学习大师代码

88725674 · 发表于 2023-1-18 11:03:31

谢谢老大分享

dyjwyqz5221 · 发表于 2023-5-7 08:02:53

查看下内容

dianbotang · 发表于 2023-7-4 11:01:21

收藏学习下。

drshang · 发表于 2023-11-3 21:14:24

66666666666666

2767836360 · 发表于 2023-11-25 10:44:05

学习学习

loveu515 · 发表于 2023-11-30 23:13:55

谢谢分享函数，有没有加汉字的年月日的功能呀

maiko_2007 · 发表于 2024-2-5 21:33:44

看看学习学习

13793997827 · 发表于 2024-5-7 09:03:59

这个和XD::TIME:InternetTime一样吗

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

[时间] （XD::Time:ToDate）日期按格式转换