易语言 日期时间型与长整数型互相转换模块源码以及实现方法

a1a2dnp

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 时间, 日期时间型
    
15. .局部变量 长整数, 长整数型
    
16. 
    
17. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
18. .判断循环首 (真)
    
19.     时间 ＝ 取现行时间 ()
    
20.     长整数 ＝ 日期时间到长整数 (时间)
    
21.     调试输出 (时间, 长整数, 长整数到日期时间 (长整数))
    
22.     延时 (1000)
    
23. .判断循环尾 ()
    
24. 
    
25. 
    
26. .子程序 日期时间到长整数, 长整数型, 公开
    
27. .参数 日期时间, 日期时间型
    
28. 
    
29. 返回 (取字节集数据 (到字节集 (日期时间), 4, ))
    
30. 
    
31. 
    
32. .子程序 长整数到日期时间, 日期时间型, 公开
    
33. .参数 长整数, 长整数型
    
34. 
    
35. 返回 (取字节集数据 (到字节集 (长整数), 8, ))
    

复制代码

新手上路

看看吧，不错

demon

感觉有点鸡肋

4面8方

我也来看看