易语言实现整数型星期范围时间戳 (0~604799999) 与星期、时、分、秒、毫秒的互转

CNWTEPRG

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. 整数 ＝ 星期时分秒毫秒_到星期时间戳 (4, 12, 34, 56, 789)
    
23. 整数_到星期时分秒毫秒 (整数, 星期, 时, 分, 秒, 毫秒)
    
24. 调试输出 (整数, 星期, 时, 分, 秒, 毫秒)
    
25. 
    
26. 
    
27. 
    
28. .子程序 星期时分秒毫秒_到星期时间戳, 整数型, 公开, 失败返回-1
    
29. .参数 星期, 字节型, , 0~6 (星期日为0，星期一为1)
    
30. .参数 时, 字节型, , 0~23
    
31. .参数 分, 字节型, , 0~59
    
32. .参数 秒, 字节型, , 0~59
    
33. .参数 毫秒, 短整数型, 可空, 0~999 (留空为0)
    
34. 
    
35. .如果真 (星期 ＞ 6 或 时 ＞ 23 或 分 ＞ 59 或 秒 ＞ 59 或 毫秒 ＞ 999 或 毫秒 ＜ 0)
    
36.     返回 (-1)
    
37. .如果真结束
    
38. 返回 (星期 × 86400000 ＋ 时 × 3600000 ＋ 分 × 60000 ＋ 秒 × 1000 ＋ 毫秒)
    
39. 
    
40. 
    
41. .子程序 整数_到星期时分秒毫秒, 逻辑型, 公开
    
42. .参数 整数, 整数型, , 0~604799999
    
43. .参数 星期, 字节型, 参考
    
44. .参数 时, 字节型, 参考
    
45. .参数 分, 字节型, 参考
    
46. .参数 秒, 字节型, 参考
    
47. .参数 毫秒, 短整数型, 参考 可空
    
48. 
    
49. .如果真 (整数 ＜ 0 或 整数 ＞ 604799999)
    
50.     返回 (假)
    
51. .如果真结束
    
52. 毫秒 ＝ 整数 ％ 1000
    
53. 秒 ＝ 整数 ÷ 1000 ％ 60
    
54. 分 ＝ 整数 ÷ 60000 ％ 60
    
55. 时 ＝ 整数 ÷ 3600000 ％ 24
    
56. 星期 ＝ 整数 ÷ 86400000 ％ 7
    
57. 返回 (真)
    

复制代码