mysql-日期框取日期

潇洒＆男孩 · 发表于 2020-6-22 10:42:25

分享一个自己本人常用mysql取格式化日期的源码!当然这个版本是我最初版本的，大家可以根据这个来修改优化一下！

子程序名	返回值类型	公开	备注
日期框_取日期	文本型		2020-01-01
参数名	类型	参考	可空	数组	备注
获取日期	日期框

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

年份＝到文本 (取年份 (获取日期.今天))
月份＝到文本 (取月份 (获取日期.今天))
日期＝到文本 (取日 (获取日期.今天))

判断 (取日 (获取日期.今天) ＜ 10)

处理日期＝年份＋ “-” ＋ “0” ＋月份＋ “-” ＋ “0” ＋日期

判断 (取日 (获取日期.今天) ≥ 10)

处理日期＝年份＋ “-” ＋ “0” ＋月份＋ “-” ＋日期

判断 (取月份 (获取日期.今天) ≥ 10)

判断 (取日 (获取日期.今天) ＜ 10)

处理日期＝年份＋ “-” ＋月份＋ “-” ＋ “0” ＋日期

判断 (取日 (获取日期.今天) ≥ 10)

处理日期＝年份＋ “-” ＋月份＋ “-” ＋日期

返回 (处理日期)

zhanhq · 发表于 2020-7-24 08:35:08

感谢分享，很给力！~

潇洒＆男孩 · 发表于 2020-6-26 00:38:55

huage88948216 发表于 2020-6-26 00:19
在给你一个好的源码

在这里先谢了！说真的，单单一个子程序的话还行，然后又搞那么多的代码进去还不如直接用我的这个还省事一点！我这个的话还有优化的地方！如果不用mysql的话基本上这个的话完全可以用模块里面的格式化时间那个基本上够用了！

huage88948216 · 发表于 2020-6-26 00:29:13

SendMessageA (日期框_开始.取窗口句柄 (), 4101, 0, “yyyy-MM-dd”)
.版本 2
.DLL命令 SendMessageA, 整数型, "user32", "SendMessageA", , 日期框专用
.参数 hwnd, 整数型
.参数 wMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 文本型

复制代码

huage88948216 · 发表于 2020-6-26 00:25:48

.版本 2
.支持库 mysql
.支持库 iext
.子程序网路已断开尝试重新连接互联网
断开MySql (全局_数据库)
_启动窗口.启动条.标题＝ “ QH-商用网路管理系统------网路已断开”
_启动窗口.透明标签_网路1.标题＝ “网路已断开”
_启动窗口.透明标签_网路1.可视＝真
全局_心跳＝ 3
全局_暂停时钟线程＝真
_启动窗口.标签_LJZT.标题＝ “● 状态:尝试连接中...”
.如果真 (InternetGetConnectedStateEx (0, “宽带连接”, 0, 0) ＝假)
_启动窗口.标签_LJZT.标题＝ “● 状态:网路已断开...”
返回 ()
.如果真结束
_启动窗口.标签_LJZT.标题＝ “● 状态:服务器连接中...”
全局_数据库＝连接MySql (数据库_连接状态.IP, 数据库_连接状态.用户名, 数据库_连接状态.密码, 数据库_连接状态.数据库名, 到数值 (数据库_连接状态.端口))
' 程序_延时 (1, 1)
执行SQL语句 (全局_数据库, “set names gbk”)
.如果真 (全局_数据库 ≠ 0)
_启动窗口.透明标签_网路1.标题＝ “网路已连接”
_启动窗口.标签_LJZT.标题＝ “● 状态:服务器已启动”
连续赋值 (#红色, _启动窗口.标签_管理员.文本颜色, _启动窗口.标签_IP.文本颜色, _启动窗口.标签_LJZT.文本颜色, _启动窗口.标签_时间.文本颜色, _启动窗口.透明标签_网路1.文本颜色)
_启动窗口.B_线程时钟.恢复 ()
_启动窗口.D_线程时钟.停止 ()
连续赋值 (假, 全局_暂停时钟线程, _启动窗口.透明标签_网路1.可视)
_启动窗口.启动条.标题＝ “ QH-商用网路管理系统”
全局_心跳＝ 0

复制代码

huage88948216 · 发表于 2020-6-26 00:24:32

在给你一个心跳检测秒检测

.版本 2
.支持库 mysql
.支持库 iext
.子程序网路已断开尝试重新连接互联网
断开MySql (全局_数据库)
_启动窗口.启动条.标题＝ “ QH-商用网路管理系统------网路已断开”
_启动窗口.透明标签_网路1.标题＝ “网路已断开”
_启动窗口.透明标签_网路1.可视＝真
全局_心跳＝ 3
全局_暂停时钟线程＝真
_启动窗口.标签_LJZT.标题＝ “● 状态:尝试连接中...”
.如果真 (InternetGetConnectedStateEx (0, “宽带连接”, 0, 0) ＝假)
_启动窗口.标签_LJZT.标题＝ “● 状态:网路已断开...”
返回 ()
.如果真结束
_启动窗口.标签_LJZT.标题＝ “● 状态:服务器连接中...”
全局_数据库＝连接MySql (数据库_连接状态.IP, 数据库_连接状态.用户名, 数据库_连接状态.密码, 数据库_连接状态.数据库名, 到数值 (数据库_连接状态.端口))
' 程序_延时 (1, 1)
执行SQL语句 (全局_数据库, “set names gbk”)
.如果真 (全局_数据库 ≠ 0)
_启动窗口.透明标签_网路1.标题＝ “网路已连接”
_启动窗口.标签_LJZT.标题＝ “● 状态:服务器已启动”
连续赋值 (#红色, _启动窗口.标签_管理员.文本颜色, _启动窗口.标签_IP.文本颜色, _启动窗口.标签_LJZT.文本颜色, _启动窗口.标签_时间.文本颜色, _启动窗口.透明标签_网路1.文本颜色)
_启动窗口.B_线程时钟.恢复 ()
_启动窗口.D_线程时钟.停止 ()
连续赋值 (假, 全局_暂停时钟线程, _启动窗口.透明标签_网路1.可视)
_启动窗口.启动条.标题＝ “ QH-商用网路管理系统”
全局_心跳＝ 0

复制代码

huage88948216 · 发表于 2020-6-26 00:19:59

在给你一个好的源码

.版本 2
.子程序正则_删首尾空, 文本型, 公开, 删全部空包含删全部换行
.参数要操作的文本, 文本型
.局部变量正则, 正则表达式类
正则.创建 (“(\r\n)*\s”, 要操作的文本, , , , )
返回 (正则.替换 (“”))

复制代码

潇洒＆男孩 · 发表于 2020-6-25 22:38:13

huage88948216 发表于 2020-6-25 18:08
你这太麻烦了

这个如果是 2020年6月25日这类的时间格式化的话会存在一个没有必要的空格！不过这个也和个人的习惯有关，同时谢谢你的分享！

huage88948216 · 发表于 2020-6-25 18:08:01

你这太麻烦了

.版本 2
.支持库 RegEx
.子程序正则_时间格式化, 文本型, , 2020-01-01
.参数时间文本, 文本型
.局部变量正则, 正则表达式
.局部变量文本, 文本型
正则.创建 (“(年)|(月)|(日)|(时)$|(分)$|(秒)|(时)|(分)”, )
文本＝正则.替换 (时间文本, “(?1-)(?2-)(?3 )(?4\:00\:00)(?5\:00)(?7\:)(?8\:)”, 1, , 真, 真)
正则.创建 (“(?<!\d)\d(?!\d)”, )
文本＝正则.替换 (文本, “0[ DISCUZ_CODE_0 ]”, 1, , 真, 真)
返回 (文本)

复制代码

毒毒毒毒 · 发表于 2020-6-23 00:42:34

感谢感谢，学习学习

		自动登录	找回密码
密码			注册

[易源码分享] mysql-日期框取日期