易语言日期处理类 特别适合处理股票交易

西瓜大大

子程序名        返回值类型        公开        备 注
是否为工作日        逻辑型                
参数名        类 型        参考        可空        数组        备 注
日期        日期时间型                               
如果真 (取星期几 (日期) ≠ 7 且 取星期几 (日期) ≠ 1)
返回 (真)
返回 (假)

wangjian998

看看处理了吗

独倚斜阳

支持，不过那个wai网访问的还是算了吧  反正就正常的周一到周五  其他特殊时候 手动干预下

  

子程序名	返回值类型	公开	备 注
股票交易时间	逻辑型

变量名	类 型	静态	数组	备 注
时间	日期时间型
上午开始时间1	日期时间型
上午结束时间1	日期时间型
上午开始时间2	日期时间型
上午结束时间2	日期时间型
下午开始时间	日期时间型
下午结束时间	日期时间型
a	双精度小数型

时间 ＝ 取现行时间 ()  ' 固定~
' log.输出日志 (到文本 (时间))
' 调试输出 (时间)
上午开始时间1 ＝ 到时间 (格式化日期 (时间, “%y-%m-%d”) ＋ “ 09:24:00”)
上午结束时间1 ＝ 到时间 (格式化日期 (时间, “%y-%m-%d”) ＋ “ 09:24:59”)
上午开始时间2 ＝ 到时间 (格式化日期 (时间, “%y-%m-%d”) ＋ “ 09:30:00”)
上午结束时间2 ＝ 到时间 (格式化日期 (时间, “%y-%m-%d”) ＋ “ 11:29:50”)
下午开始时间 ＝ 到时间 (格式化日期 (时间, “%y-%m-%d”) ＋ “ 13:00:00”)
下午结束时间 ＝ 到时间 (格式化日期 (时间, “%y-%m-%d”) ＋ “ 15:15:00”)
' a ＝ 取时间间隔 (取现行时间 (), 上午开始时间, #秒)
' log.输出日志 (“间隔1 a=” ＋ 到文本 (a))
' a ＝ 取时间间隔 (取现行时间 (), 上午结束时间, #秒)
' log.输出日志 (“间隔2 a=” ＋ 到文本 (a))
' log.输出日志 (“星期” ＋ 到文本 (取星期几 (取现行时间 ())))
判断 (取星期几 (取现行时间 ()) ＝ 2 或 取星期几 (取现行时间 ()) ＝ 3 或 取星期几 (取现行时间 ()) ＝ 4 或 取星期几 (取现行时间 ()) ＝ 5 或 取星期几 (取现行时间 ()) ＝ 6)  ' 取星期几命令  第一天1是星期天  2=星期1  6=星期5
' 调试输出 (“工作日”)
如果 (取时间间隔 (取现行时间 (), 上午开始时间1, #秒 ) ≥ 0 且 取时间间隔 (取现行时间 (), 上午结束时间1, #秒 ) ≤ 0)
如果真 (高级表格_更新数据提示.取数据 (0, 2) ≠ “交易时间:真”)
高级表格_更新数据提示.发送信息 (11, 0, 0)
高级表格_更新数据提示.置数据 (0, 2, #表格常量 .文本型, “交易时间:真”)
高级表格_更新数据提示.发送信息 (11, 1, 0)
高级表格_更新数据提示.重画 ()
返回 (真)
如果 (取时间间隔 (取现行时间 (), 上午开始时间2, #秒 ) ≥ 0 且 取时间间隔 (取现行时间 (), 上午结束时间2, #秒 ) ≤ 0)
如果真 (高级表格_更新数据提示.取数据 (0, 2) ≠ “交易时间:真”)
高级表格_更新数据提示.发送信息 (11, 0, 0)
高级表格_更新数据提示.置数据 (0, 2, #表格常量 .文本型, “交易时间:真”)
高级表格_更新数据提示.发送信息 (11, 1, 0)
高级表格_更新数据提示.重画 ()
返回 (真)

如果 (取时间间隔 (取现行时间 (), 下午开始时间, #秒 ) ≥ 0 且 取时间间隔 (取现行时间 (), 下午结束时间, #秒 ) ≤ 0)
如果真 (高级表格_更新数据提示.取数据 (0, 2) ≠ “交易时间:真”)
高级表格_更新数据提示.发送信息 (11, 0, 0)
高级表格_更新数据提示.置数据 (0, 2, #表格常量 .文本型, “交易时间:真”)
高级表格_更新数据提示.发送信息 (11, 1, 0)
高级表格_更新数据提示.重画 ()
返回 (真)

如果真 (高级表格_更新数据提示.取数据 (0, 2) ≠ “交易时间:不在交易时间”)
高级表格_更新数据提示.发送信息 (11, 0, 0)
高级表格_更新数据提示.置数据 (0, 2, #表格常量 .文本型, “交易时间:不在交易时间”)
高级表格_更新数据提示.发送信息 (11, 1, 0)
高级表格_更新数据提示.重画 ()
返回 (假)




如果真 (高级表格_更新数据提示.取数据 (0, 2) ≠ “交易时间:不在交易时间”)  ' 周末
高级表格_更新数据提示.发送信息 (11, 0, 0)
高级表格_更新数据提示.置数据 (0, 2, #表格常量 .文本型, “交易时间:不在交易时间”)
高级表格_更新数据提示.发送信息 (11, 1, 0)
高级表格_更新数据提示.重画 ()

返回 (假)

i支持库列表	支持库注释
CnCalendar	农历日期支持库
eGrid	高级表格支持库

.版本 2<br /> .支持库 CnCalendar<br /> .支持库 eGrid<br /> <br /> .子程序 股票交易时间, 逻辑型<br /> .局部变量 时间, 日期时间型<br /> .局部变量 上午开始时间1, 日期时间型<br /> .局部变量 上午结束时间1, 日期时间型<br /> .局部变量 上午开始时间2, 日期时间型<br /> .局部变量 上午结束时间2, 日期时间型<br /> .局部变量 下午开始时间, 日期时间型<br /> .局部变量 下午结束时间, 日期时间型<br /> .局部变量 a, 双精度小数型<br /> <br /> 时间 ＝ 取现行时间 ()  ' 固定~<br /> ' log.输出日志 (到文本 (时间))<br /> ' 调试输出 (时间)<br /> 上午开始时间1 ＝ 到时间 (格式化日期 (时间, “%y-%m-%d”) ＋ “ 09:24:00”)<br /> 上午结束时间1 ＝ 到时间 (格式化日期 (时间, “%y-%m-%d”) ＋ “ 09:24:59”)<br /> <br /> 上午开始时间2 ＝ 到时间 (格式化日期 (时间, “%y-%m-%d”) ＋ “ 09:30:00”)<br /> 上午结束时间2 ＝ 到时间 (格式化日期 (时间, “%y-%m-%d”) ＋ “ 11:29:50”)<br /> <br /> 下午开始时间 ＝ 到时间 (格式化日期 (时间, “%y-%m-%d”) ＋ “ 13:00:00”)<br /> 下午结束时间 ＝ 到时间 (格式化日期 (时间, “%y-%m-%d”) ＋ “ 15:15:00”)<br /> ' a ＝ 取时间间隔 (取现行时间 (), 上午开始时间, #秒)<br /> ' log.输出日志 (“间隔1 a=” ＋ 到文本 (a))<br /> ' a ＝ 取时间间隔 (取现行时间 (), 上午结束时间, #秒)<br /> ' log.输出日志 (“间隔2 a=” ＋ 到文本 (a))<br /> ' log.输出日志 (“星期” ＋ 到文本 (取星期几 (取现行时间 ())))<br /> .判断开始 (取星期几 (取现行时间 ()) ＝ 2 或 取星期几 (取现行时间 ()) ＝ 3 或 取星期几 (取现行时间 ()) ＝ 4 或 取星期几 (取现行时间 ()) ＝ 5 或 取星期几 (取现行时间 ()) ＝ 6)  ' 取星期几命令  第一天1是星期天  2=星期1  6=星期5<br />     ' 调试输出 (“工作日”)<br />     .如果 (取时间间隔 (取现行时间 (), 上午开始时间1, #秒) ≥ 0 且 取时间间隔 (取现行时间 (), 上午结束时间1, #秒) ≤ 0)<br />         .如果真 (高级表格_更新数据提示.取数据 (0, 2) ≠ “交易时间:真”)<br />             高级表格_更新数据提示.发送信息 (11, 0, 0)<br />             高级表格_更新数据提示.置数据 (0, 2, #表格常量.文本型, “交易时间:真”)<br />             高级表格_更新数据提示.发送信息 (11, 1, 0)<br />             高级表格_更新数据提示.重画 ()<br />         .如果真结束<br />         返回 (真)<br />     .否则<br />         .如果 (取时间间隔 (取现行时间 (), 上午开始时间2, #秒) ≥ 0 且 取时间间隔 (取现行时间 (), 上午结束时间2, #秒) ≤ 0)<br />             .如果真 (高级表格_更新数据提示.取数据 (0, 2) ≠ “交易时间:真”)<br />                 高级表格_更新数据提示.发送信息 (11, 0, 0)<br />                 高级表格_更新数据提示.置数据 (0, 2, #表格常量.文本型, “交易时间:真”)<br />                 高级表格_更新数据提示.发送信息 (11, 1, 0)<br />                 高级表格_更新数据提示.重画 ()<br />             .如果真结束<br />             返回 (真)<br /> <br />         .否则<br />             .如果 (取时间间隔 (取现行时间 (), 下午开始时间, #秒) ≥ 0 且 取时间间隔 (取现行时间 (), 下午结束时间, #秒) ≤ 0)<br />                 .如果真 (高级表格_更新数据提示.取数据 (0, 2) ≠ “交易时间:真”)<br />                     高级表格_更新数据提示.发送信息 (11, 0, 0)<br />                     高级表格_更新数据提示.置数据 (0, 2, #表格常量.文本型, “交易时间:真”)<br />                     高级表格_更新数据提示.发送信息 (11, 1, 0)<br />                     高级表格_更新数据提示.重画 ()<br />                 .如果真结束<br />                 返回 (真)<br /> <br />             .否则<br />                 .如果真 (高级表格_更新数据提示.取数据 (0, 2) ≠ “交易时间:不在交易时间”)<br />                     高级表格_更新数据提示.发送信息 (11, 0, 0)<br />                     高级表格_更新数据提示.置数据 (0, 2, #表格常量.文本型, “交易时间:不在交易时间”)<br />                     高级表格_更新数据提示.发送信息 (11, 1, 0)<br />                     高级表格_更新数据提示.重画 ()<br />                 .如果真结束<br />                 返回 (假)<br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br /> <br /> <br /> .默认<br />     .如果真 (高级表格_更新数据提示.取数据 (0, 2) ≠ “交易时间:不在交易时间”)  ' 周末<br />         高级表格_更新数据提示.发送信息 (11, 0, 0)<br />         高级表格_更新数据提示.置数据 (0, 2, #表格常量.文本型, “交易时间:不在交易时间”)<br />         高级表格_更新数据提示.发送信息 (11, 1, 0)<br />         高级表格_更新数据提示.重画 ()<br />     .如果真结束<br /> <br />     返回 (假)<br /> .判断结束

kagari

网站接口是你自己的？

kezhuanwang

感谢分享

美味萝卜

        小小心意，意思一下

道易有道

可以的，老铁没问题。