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

sksksz

下载前麻烦来个精币打赏

  

窗口程序集名	保 留	保 留	备 注
类_日期处理
变量名	类 型	数组	备 注
节假日	文本型	0

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

如果真 (初始化 () ＜ 1)
信息框 (“模块 日期处理 无法获取节假日期,请检查网络畅通”, 0, 到文本 ({  }), )
结束 ()

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

子程序名	返回值类型	公开	备 注
初始化	整数型

变量名	类 型	静态	数组	备 注
数据	文本型
数组1	文本型		0
临时日期	文本型
i	整数型

清除数组 (节假日)
数据 ＝ 到文本 (HTTP读文件 (“http://116.63.67.184:7702/&func=get-jdate”))
数组1 ＝ 分割文本 (数据, #换行符, )
计次循环首 (取数组成员数 (数组1), i)
临时日期 ＝ 取文本左边 (数组1 [i], 8)
' 如果真 (取文本长度 (文本区分_只取数字 (临时日期)) ＝ 8)
加入成员 (节假日, 临时日期)
计次循环尾 ()
返回 (取数组成员数 (节假日))

子程序名	返回值类型	公开	备 注
是否为实时	逻辑型
参数名	类 型	参考	可空	数组	备 注
日期	日期时间型

如果真 (取简洁洁日期2 (交易日增减 (取现行时间 (), 0)) ＝ 取简洁洁日期2 (交易日增减 (日期, 0)))
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
是否为交易日	逻辑型

变量名	类 型	静态	数组	备 注
时间	日期时间型

时间 ＝ 取现行时间 ()
如果真 (是否为工作日 (时间) 且 是否为节假日 (时间) ＝ 假)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
是否为开盘时间	逻辑型

如果真 (时间是否大于等于 (9, 15, 0) 且 时间是否小于等于 (15, 0, 0))
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
交易日增减	日期时间型
参数名	类 型	参考	可空	数组	备 注
原日期	日期时间型
增减值	整数型

变量名	类 型	静态	数组	备 注
增减标记	整数型
增减计次	整数型
临时日期	日期时间型

判断 (增减值 ≥ 1)
增减标记 ＝ 1
判断 (增减值 ≤ -1)
增减标记 ＝ -1
判断 (增减值 ＝ 0)
如果真 (是否为工作日 (原日期) ＝ 假 或 是否为节假日 (原日期) ＝ 真)
增减值 ＝ -1
增减标记 ＝ -1

返回 (原日期)
临时日期 ＝ 原日期
判断循环首 (增减计次 ＜ 取绝对值 (增减值))
临时日期 ＝ 增减时间 (临时日期, #日, 增减标记)
如果真 (是否为工作日 (临时日期) ＝ 真 且 是否为节假日 (临时日期) ＝ 假)
增减计次 ＝ 增减计次 ＋ 1

判断循环尾 ()
返回 (临时日期)

子程序名	返回值类型	公开	备 注
取简洁日期1	文本型		2020-06-06
参数名	类 型	参考	可空	数组	备 注
日期	日期时间型

变量名	类 型	静态	数组	备 注
年	文本型
月	文本型
日	文本型

年 ＝ 到文本 (取年份 (日期))
月 ＝ 到文本 (取月份 (日期))
日 ＝ 到文本 (取日 (日期))
如果真 (取文本长度 (月) ＝ 1)
月 ＝ “0” ＋ 月
如果真 (取文本长度 (日) ＝ 1)
日 ＝ “0” ＋ 日
返回 (年 ＋ “-” ＋ 月 ＋ “-” ＋ 日)

子程序名	返回值类型	公开	备 注
取简洁洁日期2	文本型		20200606
参数名	类 型	参考	可空	数组	备 注
日期	日期时间型

变量名	类 型	静态	数组	备 注
年	文本型
月	文本型
日	文本型

年 ＝ 到文本 (取年份 (日期))
月 ＝ 到文本 (取月份 (日期))
日 ＝ 到文本 (取日 (日期))
如果真 (取文本长度 (月) ＝ 1)
月 ＝ “0” ＋ 月
如果真 (取文本长度 (日) ＝ 1)
日 ＝ “0” ＋ 日
返回 (年 ＋ 月 ＋ 日)

子程序名	返回值类型	公开	备 注
取简洁年月日N	文本型
参数名	类 型	参考	可空	数组	备 注
日期	日期时间型
分割	文本型				分割符

变量名	类 型	静态	数组	备 注
年	文本型
月	文本型
日	文本型

年 ＝ 到文本 (取年份 (日期))
月 ＝ 到文本 (取月份 (日期))
日 ＝ 到文本 (取日 (日期))
如果真 (取文本长度 (月) ＝ 1)
月 ＝ “0” ＋ 月
如果真 (取文本长度 (日) ＝ 1)
日 ＝ “0” ＋ 日
返回 (年 ＋ 分割 ＋ 月 ＋ 分割 ＋ 日)

子程序名	返回值类型	公开	备 注
是否为工作日	逻辑型
参数名	类 型	参考	可空	数组	备 注
日期	日期时间型

如果真 (取星期几 (日期) ≠ 7 且 取星期几 (日期) ≠ 1)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
是否为节假日	逻辑型
参数名	类 型	参考	可空	数组	备 注
日期	日期时间型

变量名	类 型	静态	数组	备 注
日期文本	文本型
i	整数型

日期文本 ＝ 取简洁洁日期2 (日期)
计次循环首 (取数组成员数 (节假日), i)
如果真 (日期文本 ＝ 节假日 [i])
返回 (真)

计次循环尾 ()
返回 (假)

子程序名	返回值类型	公开	备 注
时间是否大于等于	逻辑型
参数名	类 型	参考	可空	数组	备 注
时	整数型
分	整数型
秒	整数型
参时间	日期时间型

变量名	类 型	静态	数组	备 注
现行时间	日期时间型
原始时间	日期时间型
当前时间	日期时间型
当前时间戳	长整数型
原始时间戳	长整数型

判断 (是否为空 (参时间))
现行时间 ＝ 取现行时间 ()
现行时间 ＝ 参时间

原始时间 ＝ 指定时间 (2000, 1, 1, 时, 分, 秒)
当前时间 ＝ 指定时间 (2000, 1, 1, 取小时 (现行时间), 取分钟 (现行时间), 取秒 (现行时间))
当前时间戳 ＝ 时间转时间戳 (当前时间)  ' 到整数 (时间_到时间戳 (当前时间, 真, 假))
原始时间戳 ＝ 时间转时间戳 (原始时间)  ' 到整数 (时间_到时间戳 (原始时间, 真, 假))
如果真 (当前时间戳 ≥ 原始时间戳)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
时间是否小于等于	逻辑型
参数名	类 型	参考	可空	数组	备 注
时	整数型
分	整数型
秒	整数型
参时间	日期时间型

变量名	类 型	静态	数组	备 注
现行时间	日期时间型
原始时间	日期时间型
当前时间	日期时间型
当前时间戳	长整数型
原始时间戳	长整数型

判断 (是否为空 (参时间))
现行时间 ＝ 取现行时间 ()
现行时间 ＝ 参时间

' 现行时间 ＝ 取现行时间 ()
原始时间 ＝ 指定时间 (2000, 1, 1, 时, 分, 秒)
当前时间 ＝ 指定时间 (2000, 1, 1, 取小时 (现行时间), 取分钟 (现行时间), 取秒 (现行时间))
当前时间戳 ＝ 时间转时间戳 (当前时间)  ' 到整数 (时间_到时间戳 (当前时间, 真, 假))
原始时间戳 ＝ 时间转时间戳 (原始时间)  ' 到整数 (时间_到时间戳 (原始时间, 真, 假))
如果真 (当前时间戳 ≤ 原始时间戳)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
时间转时间戳	长整数型
参数名	类 型	参考	可空	数组	备 注
时间	日期时间型

返回 (取时间间隔 (时间, [1970年1月1日8时], #秒 ))

子程序名	返回值类型	公开	备 注
时间戳转时间	日期时间型
参数名	类 型	参考	可空	数组	备 注
时间戳	长整数型

返回 (增减时间 ([1970年1月1日8时], #秒, 时间戳))

子程序名	返回值类型	公开	备 注
取简洁时分	文本型
参数名	类 型	参考	可空	数组	备 注
时间	日期时间型

变量名	类 型	静态	数组	备 注
时	文本型
分	文本型
文本	文本型

时 ＝ 到文本 (取小时 (时间))
分 ＝ 到文本 (取分钟 (时间))
如果真 (取文本长度 (时) ＝ 1)
时 ＝ “0” ＋ 时
如果真 (取文本长度 (分) ＝ 1)
分 ＝ “0” ＋ 分
文本 ＝ 时 ＋ “:” ＋ 分
返回 (文本)

子程序名	返回值类型	公开	备 注
取简洁时分秒	文本型
参数名	类 型	参考	可空	数组	备 注
时间	日期时间型

变量名	类 型	静态	数组	备 注
时	文本型
分	文本型
秒	文本型
文本	文本型

时 ＝ 到文本 (取小时 (时间))
分 ＝ 到文本 (取分钟 (时间))
秒 ＝ 到文本 (取秒 (时间))
如果真 (取文本长度 (时) ＝ 1)
时 ＝ “0” ＋ 时
如果真 (取文本长度 (分) ＝ 1)
分 ＝ “0” ＋ 分
如果真 (取文本长度 (秒) ＝ 1)
秒 ＝ “0” ＋ 秒

文本 ＝ 时 ＋ “:” ＋ 分 ＋ “:” ＋ 秒
返回 (文本)

i支持库列表	支持库注释
internet	互联网支持库

.版本 2<br /> .支持库 internet<br /> <br /> .程序集 类_日期处理<br /> .程序集变量 节假日, 文本型, , "0"<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> .如果真 (初始化 () ＜ 1)<br />     信息框 (“模块 日期处理 无法获取节假日期,请检查网络畅通”, 0, 到文本 ({  }), )<br />     结束 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 初始化, 整数型, 公开<br /> .局部变量 数据, 文本型<br /> .局部变量 数组1, 文本型, , "0"<br /> .局部变量 临时日期, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 清除数组 (节假日)<br /> 数据 ＝ 到文本 (HTTP读文件 (“http://116.63.67.184:7702/&func=get-jdate”))<br /> 数组1 ＝ 分割文本 (数据, #换行符, )<br /> .计次循环首 (取数组成员数 (数组1), i)<br />     临时日期 ＝ 取文本左边 (数组1 <i>, 8)<br />     ' 如果真 (取文本长度 (文本区分_只取数字 (临时日期)) ＝ 8)<br />     加入成员 (节假日, 临时日期)<br /> .计次循环尾 ()<br /> 返回 (取数组成员数 (节假日))<br /> <br /> .子程序 是否为实时, 逻辑型, 公开<br /> .参数 日期, 日期时间型<br /> <br /> .如果真 (取简洁洁日期2 (交易日增减 (取现行时间 (), 0)) ＝ 取简洁洁日期2 (交易日增减 (日期, 0)))<br />     返回 (真)<br /> .如果真结束<br /> 返回 (假)<br /> <br /> .子程序 是否为交易日, 逻辑型, 公开<br /> .局部变量 时间, 日期时间型<br /> <br /> 时间 ＝ 取现行时间 ()<br /> .如果真 (是否为工作日 (时间) 且 是否为节假日 (时间) ＝ 假)<br />     返回 (真)<br /> .如果真结束<br /> 返回 (假)<br /> <br /> .子程序 是否为开盘时间, 逻辑型, 公开<br /> <br /> .如果真 (时间是否大于等于 (9, 15, 0) 且 时间是否小于等于 (15, 0, 0))<br />     返回 (真)<br /> .如果真结束<br /> 返回 (假)<br /> <br /> .子程序 交易日增减, 日期时间型, 公开<br /> .参数 原日期, 日期时间型<br /> .参数 增减值, 整数型<br /> .局部变量 增减标记, 整数型<br /> .局部变量 增减计次, 整数型<br /> .局部变量 临时日期, 日期时间型<br /> <br /> .判断开始 (增减值 ≥ 1)<br />     增减标记 ＝ 1<br /> .判断 (增减值 ≤ -1)<br />     增减标记 ＝ -1<br /> .判断 (增减值 ＝ 0)<br />     .如果真 (是否为工作日 (原日期) ＝ 假 或 是否为节假日 (原日期) ＝ 真)<br />         增减值 ＝ -1<br />         增减标记 ＝ -1<br />     .如果真结束<br /> <br /> .默认<br />     返回 (原日期)<br /> .判断结束<br /> 临时日期 ＝ 原日期<br /> .判断循环首 (增减计次 ＜ 取绝对值 (增减值))<br />     临时日期 ＝ 增减时间 (临时日期, #日, 增减标记)<br />     .如果真 (是否为工作日 (临时日期) ＝ 真 且 是否为节假日 (临时日期) ＝ 假)<br />         增减计次 ＝ 增减计次 ＋ 1<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 返回 (临时日期)<br /> <br /> .子程序 取简洁日期1, 文本型, 公开, 2020-06-06<br /> .参数 日期, 日期时间型<br /> .局部变量 年, 文本型<br /> .局部变量 月, 文本型<br /> .局部变量 日, 文本型<br /> <br /> 年 ＝ 到文本 (取年份 (日期))<br /> 月 ＝ 到文本 (取月份 (日期))<br /> 日 ＝ 到文本 (取日 (日期))<br /> .如果真 (取文本长度 (月) ＝ 1)<br />     月 ＝ “0” ＋ 月<br /> .如果真结束<br /> .如果真 (取文本长度 (日) ＝ 1)<br />     日 ＝ “0” ＋ 日<br /> .如果真结束<br /> 返回 (年 ＋ “-” ＋ 月 ＋ “-” ＋ 日)<br /> <br /> .子程序 取简洁洁日期2, 文本型, 公开, 20200606<br /> .参数 日期, 日期时间型<br /> .局部变量 年, 文本型<br /> .局部变量 月, 文本型<br /> .局部变量 日, 文本型<br /> <br /> 年 ＝ 到文本 (取年份 (日期))<br /> 月 ＝ 到文本 (取月份 (日期))<br /> 日 ＝ 到文本 (取日 (日期))<br /> .如果真 (取文本长度 (月) ＝ 1)<br />     月 ＝ “0” ＋ 月<br /> .如果真结束<br /> .如果真 (取文本长度 (日) ＝ 1)<br />     日 ＝ “0” ＋ 日<br /> .如果真结束<br /> 返回 (年 ＋ 月 ＋ 日)<br /> <br /> .子程序 取简洁年月日N, 文本型, 公开<br /> .参数 日期, 日期时间型<br /> .参数 分割, 文本型, , 分割符<br /> .局部变量 年, 文本型<br /> .局部变量 月, 文本型<br /> .局部变量 日, 文本型<br /> <br /> 年 ＝ 到文本 (取年份 (日期))<br /> 月 ＝ 到文本 (取月份 (日期))<br /> 日 ＝ 到文本 (取日 (日期))<br /> .如果真 (取文本长度 (月) ＝ 1)<br />     月 ＝ “0” ＋ 月<br /> .如果真结束<br /> .如果真 (取文本长度 (日) ＝ 1)<br />     日 ＝ “0” ＋ 日<br /> .如果真结束<br /> 返回 (年 ＋ 分割 ＋ 月 ＋ 分割 ＋ 日)<br /> <br /> .子程序 是否为工作日, 逻辑型, 公开<br /> .参数 日期, 日期时间型<br /> <br /> .如果真 (取星期几 (日期) ≠ 7 且 取星期几 (日期) ≠ 1)<br />     返回 (真)<br /> .如果真结束<br /> 返回 (假)<br /> <br /> .子程序 是否为节假日, 逻辑型, 公开<br /> .参数 日期, 日期时间型<br /> .局部变量 日期文本, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 日期文本 ＝ 取简洁洁日期2 (日期)<br /> .计次循环首 (取数组成员数 (节假日), i)<br />     .如果真 (日期文本 ＝ 节假日 <i>)<br />         返回 (真)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (假)<br /> <br /> .子程序 时间是否大于等于, 逻辑型, 公开<br /> .参数 时, 整数型<br /> .参数 分, 整数型<br /> .参数 秒, 整数型<br /> .参数 参时间, 日期时间型, 可空<br /> .局部变量 现行时间, 日期时间型<br /> .局部变量 原始时间, 日期时间型<br /> .局部变量 当前时间, 日期时间型<br /> .局部变量 当前时间戳, 长整数型<br /> .局部变量 原始时间戳, 长整数型<br /> <br /> .判断开始 (是否为空 (参时间))<br />     现行时间 ＝ 取现行时间 ()<br /> .默认<br />     现行时间 ＝ 参时间<br /> .判断结束<br /> <br /> 原始时间 ＝ 指定时间 (2000, 1, 1, 时, 分, 秒)<br /> 当前时间 ＝ 指定时间 (2000, 1, 1, 取小时 (现行时间), 取分钟 (现行时间), 取秒 (现行时间))<br /> 当前时间戳 ＝ 时间转时间戳 (当前时间)  ' 到整数 (时间_到时间戳 (当前时间, 真, 假))<br /> 原始时间戳 ＝ 时间转时间戳 (原始时间)  ' 到整数 (时间_到时间戳 (原始时间, 真, 假))<br /> .如果真 (当前时间戳 ≥ 原始时间戳)<br />     返回 (真)<br /> .如果真结束<br /> 返回 (假)<br /> <br /> .子程序 时间是否小于等于, 逻辑型, 公开<br /> .参数 时, 整数型<br /> .参数 分, 整数型<br /> .参数 秒, 整数型<br /> .参数 参时间, 日期时间型, 可空<br /> .局部变量 现行时间, 日期时间型<br /> .局部变量 原始时间, 日期时间型<br /> .局部变量 当前时间, 日期时间型<br /> .局部变量 当前时间戳, 长整数型<br /> .局部变量 原始时间戳, 长整数型<br /> <br /> .判断开始 (是否为空 (参时间))<br />     现行时间 ＝ 取现行时间 ()<br /> .默认<br />     现行时间 ＝ 参时间<br /> .判断结束<br /> <br /> ' 现行时间 ＝ 取现行时间 ()<br /> 原始时间 ＝ 指定时间 (2000, 1, 1, 时, 分, 秒)<br /> 当前时间 ＝ 指定时间 (2000, 1, 1, 取小时 (现行时间), 取分钟 (现行时间), 取秒 (现行时间))<br /> 当前时间戳 ＝ 时间转时间戳 (当前时间)  ' 到整数 (时间_到时间戳 (当前时间, 真, 假))<br /> 原始时间戳 ＝ 时间转时间戳 (原始时间)  ' 到整数 (时间_到时间戳 (原始时间, 真, 假))<br /> .如果真 (当前时间戳 ≤ 原始时间戳)<br />     返回 (真)<br /> .如果真结束<br /> 返回 (假)<br /> <br /> .子程序 时间转时间戳, 长整数型, 公开<br /> .参数 时间, 日期时间型<br /> <br /> 返回 (取时间间隔 (时间, [1970年1月1日8时], #秒))<br /> <br /> .子程序 时间戳转时间, 日期时间型, 公开<br /> .参数 时间戳, 长整数型<br /> <br /> 返回 (增减时间 ([1970年1月1日8时], #秒, 时间戳))<br /> <br /> .子程序 取简洁时分, 文本型, 公开<br /> .参数 时间, 日期时间型<br /> .局部变量 时, 文本型<br /> .局部变量 分, 文本型<br /> .局部变量 文本, 文本型<br /> <br /> 时 ＝ 到文本 (取小时 (时间))<br /> 分 ＝ 到文本 (取分钟 (时间))<br /> .如果真 (取文本长度 (时) ＝ 1)<br />     时 ＝ “0” ＋ 时<br /> .如果真结束<br /> .如果真 (取文本长度 (分) ＝ 1)<br />     分 ＝ “0” ＋ 分<br /> .如果真结束<br /> 文本 ＝ 时 ＋ “:” ＋ 分<br /> 返回 (文本)<br /> <br /> .子程序 取简洁时分秒, 文本型, 公开<br /> .参数 时间, 日期时间型<br /> .局部变量 时, 文本型<br /> .局部变量 分, 文本型<br /> .局部变量 秒, 文本型<br /> .局部变量 文本, 文本型<br /> <br /> 时 ＝ 到文本 (取小时 (时间))<br /> 分 ＝ 到文本 (取分钟 (时间))<br /> 秒 ＝ 到文本 (取秒 (时间))<br /> .如果真 (取文本长度 (时) ＝ 1)<br />     时 ＝ “0” ＋ 时<br /> .如果真结束<br /> .如果真 (取文本长度 (分) ＝ 1)<br />     分 ＝ “0” ＋ 分<br /> .如果真结束<br /> .如果真 (取文本长度 (秒) ＝ 1)<br />     秒 ＝ “0” ＋ 秒<br /> .如果真结束<br /> <br /> 文本 ＝ 时 ＋ “:” ＋ 分 ＋ “:” ＋ 秒<br /> 返回 (文本)

啸龙在天

牛，很好用，节省不少事情

xiaokang3458

感谢分享

xdwtdcq

感谢分享

shaojiecn

谢谢分享，真的很棒

wolfpack

xmtian

感谢分享。

一米阳光2

谢谢分享，真的很棒

wolfpack

wolfpack