易语言 字节集与日期时间型互相转换的实现方法以及模块源码

CNWTEPRG

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. .程序集 程序集1
   
5. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
6. 
   
7. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
8. 返回 (0)  ' 可以根据您的需要返回任意数值
   
9. .子程序 _临时子程序
   
10. .局部变量 时间, 日期时间型
    
11. .局部变量 字节集, 字节集
    
12. ' 由于易语言自带的 到字节集() 转换日期时间类型不知道是怎么转换的，所以写了这个模块。
    
13. 时间 ＝ 取现行时间 ()
    
14. 字节集 ＝ 日期时间到字节集 (时间)
    
15. 调试输出 (字节集)
    
16. 调试输出 (字节集到日期时间 (字节集))
    
17. 
    
18. .子程序 日期时间到字节集, 字节集, 公开
    
19. .参数 日期时间, 日期时间型
    
20. .局部变量 返回值, 字节集
    
21. 返回值 ＝ 取空白字节集 (8)
    
22. 返回值 [1] ＝ 右移 (取年份 (日期时间), 8)  ' 年高8位
    
23. 返回值 [2] ＝ 位与 (取年份 (日期时间), 255)  ' 年低8位
    
24. 返回值 [3] ＝ 取月份 (日期时间)  ' 月
    
25. 返回值 [4] ＝ 取日 (日期时间)  ' 日
    
26. 返回值 [5] ＝ 取小时 (日期时间)  ' 时
    
27. 返回值 [6] ＝ 取分钟 (日期时间)  ' 分钟
    
28. 返回值 [7] ＝ 取秒 (日期时间)  ' 秒
    
29. 返回值 [8] ＝ 取星期几 (日期时间)  ' 星期
    
30. 返回 (返回值)
    
31. 
    
32. .子程序 字节集到日期时间, 日期时间型, 公开
    
33. .参数 字节集, 字节集
    
34. .局部变量 返回值, 日期时间型
    
35. .如果真 (取字节集长度 (字节集) ≠ 8)  ' 长度不等于8
    
36.     返回 ([100年1月1日])
    
37. .如果真结束
    
38. 返回值 ＝ 指定时间 (左移 (字节集 [1], 8) ＋ 字节集 [2], 字节集 [3], 字节集 [4], 字节集 [5], 字节集 [6], 字节集 [7])
    
39. .如果真 (字节集 [8] ≠ 取星期几 (返回值))  ' 星期不一致
    
40.     返回 ([100年1月1日])
    
41. .如果真结束
    
42. 返回 (返回值)
    

复制代码

Cute

用 取字节集数据 应该就能读出来的吧。

电脑高手

楼上回答正解