基于红包算法生成指定范围的随机日期时间型数组 并指定生成数量与概率清理范围时间

QAQ

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 日期表, 日期时间型, , "0"
    
15. 
    
16. ' 算法可用作以下用途：后台批量发帖回帖或添加用户等，并使用该算法生成的日期时间以达到以假乱真的效果。
    
17. 置随机数种子 ()
    
18. 生成随机日期_红包算法 ([2018年1月1日], [2018年1月31日], 100, 日期表, 假)
    
19. 
    
20. 概率清理_范围时间 ([2000年1月1日1时], [2000年1月1日4时], 日期表, 90)
    
21. 调试输出 (日期表)
    
22. 
    
23. .子程序 生成随机日期_红包算法, 逻辑型, 公开, 基于红包算法的随机日期时间数组生成器
    
24. .参数 起始日期, 日期时间型, , 指定随机日期的起始日期
    
25. .参数 终止日期, 日期时间型, , 终止日期不能小于起始日期
    
26. .参数 生成数量, 整数型, , 指定需要生成多少个日期，不能小于3
    
27. .参数 日期表, 日期时间型, 数组, 生成的日期表将通过数组传出
    
28. .参数 包含起始日期, 逻辑型, 参考 可空, 日期表第1成员是否为起始日期
    
29. .局部变量 总间隔, 整数型
    
30. .局部变量 当前时间, 日期时间型
    
31. .局部变量 计数, 整数型
    
32. .局部变量 间隔, 整数型
    
33. .局部变量 日期, 日期时间型
    
34. 
    
35. 总间隔 ＝ 取时间间隔 (终止日期, 起始日期, 8)
    
36. .如果真 (总间隔 ≤ 0 或 生成数量 ≤ 2)
    
37.     返回 (假)
    
38. .如果真结束
    
39. 重定义数组 (日期表, 假, 生成数量)
    
40. 日期 ＝ 起始日期
    
41. .计次循环首 (生成数量 － 1, 计数)
    
42.     间隔 ＝ 取随机整数 (1, (总间隔 － (生成数量 － 计数)) ÷ (生成数量 － 计数))
    
43.     总间隔 ＝ 总间隔 － 间隔
    
44.     .如果 (包含起始日期)
    
45.         日期表 [计数] ＝ 日期
    
46.         日期 ＝ 增减时间 (日期, 8, 间隔)
    
47.     .否则
    
48.         日期 ＝ 增减时间 (日期, 8, 间隔)
    
49.         日期表 [计数] ＝ 日期
    
50.     .如果结束
    
51. 
    
52. .计次循环尾 ()
    
53. 日期 ＝ 增减时间 (日期, 8, 总间隔)
    
54. 日期表 [计数] ＝ 日期
    
55. 返回 (真)
    
56. 
    
57. .子程序 取随机整数, 整数型, , 解决易语言取随机数不超过32767的bug
    
58. .参数 最小值, 整数型, , 不能为负数
    
59. .参数 最大值, 整数型, , 必须大于最小值否则会出错
    
60. .局部变量 随机数, 整数型
    
61. .局部变量 字节集, 字节集
    
62. 
    
63. 字节集 ＝ 取空白字节集 (4)
    
64. 字节集 [1] ＝ 取随机数 (, )
    
65. 字节集 [2] ＝ 取随机数 (, )
    
66. 字节集 [3] ＝ 取随机数 (, )
    
67. 字节集 [4] ＝ 取随机数 (0, 127)
    
68. 
    
69. 随机数 ＝ 取字节集数据 (字节集, 3, 1)
    
70. 
    
71. 返回 (随机数 ％ (最大值 － 最小值 ＋ 1) ＋ 最小值)
    
72. 
    
73. 
    
74. .子程序 概率清理_范围时间, 逻辑型, 公开, 日期时间型数组中按照指定概率删除指定时间范围的成员
    
75. .参数 起始时间, 日期时间型, , 指定开始的起始时间，年月日部分将会被舍弃
    
76. .参数 终止时间, 日期时间型, , 必须大于起始时间，不支持跨日否则会出错
    
77. .参数 日期表, 日期时间型, 数组, 指定要进行概率清理的日期表
    
78. .参数 保留概率, 字节型, , 范围1~100
    
79. .局部变量 有效清理表, 逻辑型, , "0"
    
80. .局部变量 计数, 整数型
    
81. .局部变量 总数, 整数型
    
82. .局部变量 时间部分, 日期时间型
    
83. .局部变量 需要清理, 逻辑型
    
84. .局部变量 位置, 整数型
    
85. 
    
86. 总数 ＝ 取数组成员数 (日期表)
    
87. .如果真 (保留概率 ＞ 100 或 保留概率 ＝ 0 或 总数 ＝ 0)
    
88.     返回 (假)
    
89. .如果真结束
    
90. 起始时间 ＝ 取时间 (起始时间)
    
91. 终止时间 ＝ 取时间 (终止时间)
    
92. .如果真 (取时间间隔 (终止时间, 起始时间, 8) ≤ 0)
    
93.     返回 (假)
    
94. .如果真结束
    
95. 重定义数组 (有效清理表, 假, 总数)
    
96. .计次循环首 (总数, 计数)
    
97.     时间部分 ＝ 取时间 (日期表 [计数])
    
98.     .如果真 (时间部分 ≥ 起始时间 且 时间部分 ≤ 终止时间)
    
99.         有效清理表 [计数] ＝ 真
    
100.         需要清理 ＝ 真
     
101.     .如果真结束
     
102. 
     
103. .计次循环尾 ()
     
104. .如果真 (需要清理)
     
105.     .计次循环首 (总数, 计数)
     
106.         .如果真 (有效清理表 [计数] 且 取随机数 (1, 100) ≤ 保留概率)
     
107.             日期表 [计数] ＝ [100年1月1日]
     
108.         .如果真结束
     
109. 
     
110.     .计次循环尾 ()
     
111.     .判断循环首 (真)
     
112.         位置 ＝ 寻找时间 (日期表, [100年1月1日])
     
113.         .如果真 (位置 ＝ 0)
     
114.             跳出循环 ()
     
115.         .如果真结束
     
116.         删除成员 (日期表, 位置, 1)
     
117.     .判断循环尾 ()
     
118. .如果真结束
     
119. 返回 (真)
     
120. 
     
121. 
     
122. .子程序 寻找时间, 整数型, , 找到返回位置，否则返回0
     
123. .参数 日期表, 日期时间型, 数组
     
124. .参数 日期, 日期时间型
     
125. .局部变量 计数, 整数型
     
126. 
     
127. .计次循环首 (取数组成员数 (日期表), 计数)
     
128.     .如果真 (日期表 [计数] ＝ 日期)
     
129.         返回 (计数)
     
130.     .如果真结束
     
131. 
     
132. .计次循环尾 ()
     
133. 返回 (0)
     
134. 
     

复制代码

520

还真有这么整的

Cute

这个绝了，转帖加上这玩意，绝对分不清是谁先转的。