回复 日期格式的转换

yxp

关于 wgij007 发帖日期格式转换，我记得看过一个 API 函数，流氓兔回帖我又查了一下函数，发现用 API 是比较简单的。

微软 MSDN 上查询日期格式注释如下：; d     以数字表示的月份中的日期，对于个位数的日期没有前导零。
; dd    以数字表示的月份中的日期，对于个位数的日期，前导零。
; ddd   星期几作为三个字母的缩写。
; dddd  星期的全称。
; M     月份为数字，单位数月份没有前导零。
; MM    对于个位数月份，月份为前导零的数字。
; MMM   月份作为三个字母的缩写。
; MMMM  月份作为它的全名。
; y     年份作为最后两位数，小于 10 的年份以零开头。格式与“yy”相同。
; yy    年份作为最后两位数，小于 10 的年份以零开头。
; yyyy  用完整的四位数字表示的年份。
; gg    时期/时代字符串。

GetDateFormat 函数的第一个参数是区域码，在 https://docs.microsoft.com/en-us ... s/embedded/ms921461(v=msdn.10) 上查到，美国编码是  0x0409， 转换为十进制是 1033。不用区域码直接用 0 响应是系统默认区域，中文系统 MMMM 转为月份的格式是 '八月' 字样。其他没有啥特殊参数。
下面将程序来源和注释如下：

1. ;;Lisp 调用 API 转换时间格式
   
2. ;;API 函数参考
   
3. ;;https://docs.microsoft.com/en-us ... s/embedded/ms919294(v=msdn.10)
   
4. (vl-load-com)
   
5. 
   
6. (defun c:cvdate ()
   
7.   ;; 创建 DWX 对象，并注册日期和时间转换的 API 函数
   
8.   (setq DWX (vlax-create-object "DynamicWrapperX"))
   
9.   (vlax-invoke DWX 'Register "kernel32" "GetDateFormat" "i=uupspu" "r=l")
   
10.   (vlax-invoke DWX 'Register "kernel32" "GetTimeFormat" "i=uupspu" "r=l")
    
11.   (setq curtime (vlax-invoke DWX 'MemAlloc 16 1) ;;分配内存，保存时间参数
    
12.         fdate   "MMM','dd ddd yyyy" ;;格式化日期字符串
    
13.         ftime   "hh:mm:ss" ;;格式化时间字符串
    
14.         dInfo   (vlax-invoke DWX 'MemAlloc 64 1) ;; 分配内存接收转换后的日期字符串
    
15.         tInfo   (vlax-invoke DWX 'MemAlloc 64 1) ;; 分配内存接收转换后的时间字符串
    
16.         temp    (vlax-invoke DWX 'NumPut 2022 curtime "t") ;;这里是年份
    
17.         temp    (vlax-invoke DWX 'NumPut 2 temp "t") ;;月份
    
18.          ;;下面要输入星期几，但是不好计算，可以随便输入一个，函数将自动修正为正确值
    
19.         temp    (vlax-invoke DWX 'NumPut 1 temp "t")
    
20.         temp    (vlax-invoke DWX 'NumPut 15 temp "t") ;;日期
    
21.         temp    (vlax-invoke DWX 'NumPut 21 temp "t") ;;小时
    
22.         temp    (vlax-invoke DWX 'NumPut 27 temp "t") ;;分钟
    
23.         temp    (vlax-invoke DWX 'NumPut 53 temp "t") ;;秒
    
24.   )
    
25.   ;; 以下参数 1033 是英文月份，如需中文设置为 0
    
26.   (vlax-invoke DWX 'GetDateFormat 1033 0 curtime fdate dInfo 64)
    
27.   ;; 以下参数 8 的意思是 24 小时制，改为 0 则为 12 小时制
    
28.   (vlax-invoke DWX 'GetTimeFormat 0 8 curtime ftime tInfo 64)
    
29.   (setq fd (vlax-invoke DWX 'StrGet dInfo "s")
    
30.         ft (vlax-invoke DWX 'StrGet tInfo "s")
    
31.         dt (strcat fd " " ft)
    
32.   )
    
33.   (princ dt)
    
34.   (princ)
    
35. )
    
36. 
    
37. ; 日期格式化
    
38. ; d     以数字表示的月份中的日期，对于个位数的日期没有前导零。
    
39. ; dd    以数字表示的月份中的日期，对于个位数的日期，前导零。
    
40. ; ddd   星期几作为三个字母的缩写。
    
41. ; dddd  星期的全称。
    
42. ; M     月份为数字，单位数月份没有前导零。
    
43. ; MM    对于个位数月份，月份为前导零的数字。
    
44. ; MMM   月份作为三个字母的缩写。
    
45. ; MMMM  月份作为它的全名。
    
46. ; y     年份作为最后两位数，小于 10 的年份以零开头。格式与“yy”相同。
    
47. ; yy    年份作为最后两位数，小于 10 的年份以零开头。
    
48. ; yyyy  用完整的四位数字表示的年份。
    
49. ; gg    时期/时代字符串。
    
50. ; 区域码查询地址：
    
51. ; https://docs.microsoft.com/en-us ... s/embedded/ms921461(v=msdn.10)
    
52. ; 0x0409 = 1033

;;Lisp 调用 API 转换时间格式<br /> ;;API 函数参考<br /> ;;<a href="https://docs.microsoft.com/en-us/previous-versions/windows/embedded/ms919294" target="_blank">https://docs.microsoft.com/en-us ... s/embedded/ms919294</a>(v=msdn.10)<br /> (vl-load-com)<br /> <br /> (defun c:cvdate () <br />   ;; 创建 DWX 对象，并注册日期和时间转换的 API 函数<br />   (setq DWX (vlax-create-object "DynamicWrapperX"))<br />   (vlax-invoke DWX 'Register "kernel32" "GetDateFormat" "i=uupspu" "r=l")<br />   (vlax-invoke DWX 'Register "kernel32" "GetTimeFormat" "i=uupspu" "r=l")<br />   (setq curtime (vlax-invoke DWX 'MemAlloc 16 1) ;;分配内存，保存时间参数<br />         fdate   "MMM','dd ddd yyyy" ;;格式化日期字符串<br />         ftime   "hh:mm:ss" ;;格式化时间字符串<br />         dInfo   (vlax-invoke DWX 'MemAlloc 64 1) ;; 分配内存接收转换后的日期字符串<br />         tInfo   (vlax-invoke DWX 'MemAlloc 64 1) ;; 分配内存接收转换后的时间字符串<br />         temp    (vlax-invoke DWX 'NumPut 2022 curtime "t") ;;这里是年份<br />         temp    (vlax-invoke DWX 'NumPut 2 temp "t") ;;月份<br />          ;;下面要输入星期几，但是不好计算，可以随便输入一个，函数将自动修正为正确值<br />         temp    (vlax-invoke DWX 'NumPut 1 temp "t")<br />         temp    (vlax-invoke DWX 'NumPut 15 temp "t") ;;日期<br />         temp    (vlax-invoke DWX 'NumPut 21 temp "t") ;;小时<br />         temp    (vlax-invoke DWX 'NumPut 27 temp "t") ;;分钟<br />         temp    (vlax-invoke DWX 'NumPut 53 temp "t") ;;秒<br />   )<br />   ;; 以下参数 1033 是英文月份，如需中文设置为 0<br />   (vlax-invoke DWX 'GetDateFormat 1033 0 curtime fdate dInfo 64)<br />   ;; 以下参数 8 的意思是 24 小时制，改为 0 则为 12 小时制<br />   (vlax-invoke DWX 'GetTimeFormat 0 8 curtime ftime tInfo 64)<br />   (setq fd (vlax-invoke DWX 'StrGet dInfo "s")<br />         ft (vlax-invoke DWX 'StrGet tInfo "s")<br />         dt (strcat fd " " ft)<br />   )<br />   (princ dt)<br />   (princ)<br /> )<br /> <br /> ; 日期格式化<br /> ; d     以数字表示的月份中的日期，对于个位数的日期没有前导零。<br /> ; dd    以数字表示的月份中的日期，对于个位数的日期，前导零。<br /> ; ddd   星期几作为三个字母的缩写。<br /> ; dddd  星期的全称。<br /> ; M     月份为数字，单位数月份没有前导零。<br /> ; MM    对于个位数月份，月份为前导零的数字。<br /> ; MMM   月份作为三个字母的缩写。<br /> ; MMMM  月份作为它的全名。<br /> ; y     年份作为最后两位数，小于 10 的年份以零开头。格式与“yy”相同。<br /> ; yy    年份作为最后两位数，小于 10 的年份以零开头。<br /> ; yyyy  用完整的四位数字表示的年份。<br /> ; gg    时期/时代字符串。<br /> ; 区域码查询地址：<br /> ; <a href="https://docs.microsoft.com/en-us/previous-versions/windows/embedded/ms921461" target="_blank">https://docs.microsoft.com/en-us ... s/embedded/ms921461</a>(v=msdn.10)<br /> ; 0x0409 = 1033

yxp

明经论坛会自动修改帖子里的网站链接，源码注释中有函数说明链接，可下载查看

baitang36

做个记号备用