精易论坛

标题: mysql-日期框取日期 [打印本页]
作者: 潇洒＆男孩    时间: 2020-6-22 10:42
标题: mysql-日期框取日期
分享一个自己本人常用mysql取格式化日期的源码!当然这个版本是我最初版本的，大家可以根据这个来修改优化一下！
  
子程序名返回值类型公开备 注
日期框_取日期文本型 2020-01-01
参数名类 型参考可空数组备 注
获取日期日期框
变量名类 型静态数组备 注
处理日期文本型 
年份文本型 
月份文本型 
日期文本型 
年份 ＝ 到文本 (取年份 (获取日期.今天))
月份 ＝ 到文本 (取月份 (获取日期.今天))
日期 ＝ 到文本 (取日 (获取日期.今天))
判断 (取日 (获取日期.今天) ＜ 10)
处理日期 ＝ 年份 ＋ “-” ＋ “0” ＋ 月份 ＋ “-” ＋ “0” ＋ 日期
判断 (取日 (获取日期.今天) ≥ 10)
处理日期 ＝ 年份 ＋ “-” ＋ “0” ＋ 月份 ＋ “-” ＋ 日期



判断 (取月份 (获取日期.今天) ≥ 10)
判断 (取日 (获取日期.今天) ＜ 10)
处理日期 ＝ 年份 ＋ “-” ＋ 月份 ＋ “-” ＋ “0” ＋ 日期
判断 (取日 (获取日期.今天) ≥ 10)
处理日期 ＝ 年份 ＋ “-” ＋ 月份 ＋ “-” ＋ 日期






返回 (处理日期)

作者: qgchqgch89    时间: 2020-6-22 12:33
精益模块不有时间格式化吗？
作者: 潇洒＆男孩    时间: 2020-6-22 13:00
qgchqgch89 发表于 2020-6-22 12:33
精益模块不有时间格式化吗？

用不习惯那个！这个也是我前两年写的！
作者: 毒毒毒毒    时间: 2020-6-23 00:42
感谢感谢，学习学习
作者: huage88948216    时间: 2020-6-25 18:08
你这太麻烦了
  1. .版本 2
  2. .支持库 RegEx

  4. .子程序 正则_时间格式化, 文本型, , 2020-01-01
  5. .参数 时间文本, 文本型
  6. .局部变量 正则, 正则表达式
  7. .局部变量 文本, 文本型

  9. 正则.创建 (“(年)|(月)|(日)|(时)$|(分)$|(秒)|(时)|(分)”, )
  10. 文本 ＝ 正则.替换 (时间文本, “(?1-)(?2-)(?3 )(?4\:00\:00)(?5\:00)(?7\:)(?8\:)”, 1, , 真, 真)
  11. 正则.创建 (“(?<!\d)\d(?!\d)”, )
  12. 文本 ＝ 正则.替换 (文本, “0[        DISCUZ_CODE_0        ]”, 1, , 真, 真)
  13. 返回 (文本)
复制代码
作者: 潇洒＆男孩    时间: 2020-6-25 22:38
huage88948216 发表于 2020-6-25 18:08
你这太麻烦了

这个如果是 2020年6月25日这类的时间格式化的话会存在一个没有必要的空格！不过这个也和个人的习惯有关，同时谢谢你的分享！
作者: huage88948216    时间: 2020-6-26 00:19
在给你一个好的源码

  1. .版本 2

  3. .子程序 正则_删首尾空, 文本型, 公开, 删全部空包含删全部换行
  4. .参数 要操作的文本, 文本型
  5. .局部变量 正则, 正则表达式类

  7. 正则.创建 (“(\r\n)*\s”, 要操作的文本, , , , )
  8. 返回 (正则.替换 (“”))
复制代码
作者: huage88948216    时间: 2020-6-26 00:24
在给你一个心跳检测    秒检测
  1. .版本 2
  2. .支持库 mysql
  3. .支持库 iext

  5. .子程序 网路已断开尝试重新连接互联网

  7. 断开MySql (全局_数据库)
  8. _启动窗口.启动条.标题 ＝ “   QH-商用网路管理系统------网路已断开”
  9. _启动窗口.透明标签_网路1.标题 ＝ “网路已断开”
  10. _启动窗口.透明标签_网路1.可视 ＝ 真
  11. 全局_心跳 ＝ 3
  12. 全局_暂停时钟线程 ＝ 真
  13. _启动窗口.标签_LJZT.标题 ＝ “● 状态:尝试连接中...”
  14. .如果真 (InternetGetConnectedStateEx (0, “宽带连接”, 0, 0) ＝ 假)
  15.     _启动窗口.标签_LJZT.标题 ＝ “● 状态:网路已断开...”
  16.     返回 ()
  17. .如果真结束
  18. _启动窗口.标签_LJZT.标题 ＝ “● 状态:服务器连接中...”
  19. 全局_数据库 ＝ 连接MySql (数据库_连接状态.IP, 数据库_连接状态.用户名, 数据库_连接状态.密码, 数据库_连接状态.数据库名, 到数值 (数据库_连接状态.端口))
  20. ' 程序_延时 (1, 1)
  21. 执行SQL语句 (全局_数据库, “set names gbk”)
  22. .如果真 (全局_数据库 ≠ 0)
  23.     _启动窗口.透明标签_网路1.标题 ＝ “网路已连接”
  24.     _启动窗口.标签_LJZT.标题 ＝ “● 状态:服务器已启动”
  25.     连续赋值 (#红色, _启动窗口.标签_管理员.文本颜色, _启动窗口.标签_IP.文本颜色, _启动窗口.标签_LJZT.文本颜色, _启动窗口.标签_时间.文本颜色, _启动窗口.透明标签_网路1.文本颜色)
  26.     _启动窗口.B_线程时钟.恢复 ()
  27.     _启动窗口.D_线程时钟.停止 ()
  28.     连续赋值 (假, 全局_暂停时钟线程, _启动窗口.透明标签_网路1.可视)
  29.     _启动窗口.启动条.标题 ＝ “   QH-商用网路管理系统”
  30.     全局_心跳 ＝ 0
复制代码
作者: huage88948216    时间: 2020-6-26 00:25
  1. .版本 2
  2. .支持库 mysql
  3. .支持库 iext

  5. .子程序 网路已断开尝试重新连接互联网

  7. 断开MySql (全局_数据库)
  8. _启动窗口.启动条.标题 ＝ “   QH-商用网路管理系统------网路已断开”
  9. _启动窗口.透明标签_网路1.标题 ＝ “网路已断开”
  10. _启动窗口.透明标签_网路1.可视 ＝ 真
  11. 全局_心跳 ＝ 3
  12. 全局_暂停时钟线程 ＝ 真
  13. _启动窗口.标签_LJZT.标题 ＝ “● 状态:尝试连接中...”
  14. .如果真 (InternetGetConnectedStateEx (0, “宽带连接”, 0, 0) ＝ 假)
  15.     _启动窗口.标签_LJZT.标题 ＝ “● 状态:网路已断开...”
  16.     返回 ()
  17. .如果真结束
  18. _启动窗口.标签_LJZT.标题 ＝ “● 状态:服务器连接中...”
  19. 全局_数据库 ＝ 连接MySql (数据库_连接状态.IP, 数据库_连接状态.用户名, 数据库_连接状态.密码, 数据库_连接状态.数据库名, 到数值 (数据库_连接状态.端口))
  20. ' 程序_延时 (1, 1)
  21. 执行SQL语句 (全局_数据库, “set names gbk”)
  22. .如果真 (全局_数据库 ≠ 0)
  23.     _启动窗口.透明标签_网路1.标题 ＝ “网路已连接”
  24.     _启动窗口.标签_LJZT.标题 ＝ “● 状态:服务器已启动”
  25.     连续赋值 (#红色, _启动窗口.标签_管理员.文本颜色, _启动窗口.标签_IP.文本颜色, _启动窗口.标签_LJZT.文本颜色, _启动窗口.标签_时间.文本颜色, _启动窗口.透明标签_网路1.文本颜色)
  26.     _启动窗口.B_线程时钟.恢复 ()
  27.     _启动窗口.D_线程时钟.停止 ()
  28.     连续赋值 (假, 全局_暂停时钟线程, _启动窗口.透明标签_网路1.可视)
  29.     _启动窗口.启动条.标题 ＝ “   QH-商用网路管理系统”
  30.     全局_心跳 ＝ 0
复制代码
作者: huage88948216    时间: 2020-6-26 00:29
  1. SendMessageA (日期框_开始.取窗口句柄 (), 4101, 0, “yyyy-MM-dd”)

  3. .版本 2

  5. .DLL命令 SendMessageA, 整数型, "user32", "SendMessageA", , 日期框专用
  6.     .参数 hwnd, 整数型
  7.     .参数 wMsg, 整数型
  8.     .参数 wParam, 整数型
  9.     .参数 lParam, 文本型
复制代码
作者: 潇洒＆男孩    时间: 2020-6-26 00:38
huage88948216 发表于 2020-6-26 00:19
在给你一个好的源码

在这里先谢了！说真的，单单一个子程序的话还行，然后又搞那么多的代码进去还不如直接用我的这个还省事一点！我这个的话还有优化的地方！如果不用mysql的话基本上这个的话完全可以用模块里面的格式化时间那个基本上够用了！
作者: zhanhq    时间: 2020-7-24 08:35
感谢分享，很给力！~



欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4