文本时间转换为标准化时间

CFanLost

很简单的一个例子分享给需要的人，方法很简单就是用到了文本分割和增减时间两个命令，主要就是尝试得出一个相对严谨的判断。

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
hh	整数型
mm	整数型
time	整数型

如果真 (寻找文本 (编辑框1.内容, “小时”, , 假) ≠ -1)
hh ＝ 到整数 (文本_取出中间文本 (编辑框1.内容, “”, “小时”, , ))
time ＝ hh × 60
如果真 (寻找文本 (编辑框1.内容, “分钟”, , 假) ≠ -1 且 寻找文本 (编辑框1.内容, “小时”, , 假) ≠ -1)
mm ＝ 到整数 (文本_取出中间文本 (编辑框1.内容, “小时”, “分钟”, , ))
time ＝ time ＋ mm
如果真 (寻找文本 (编辑框1.内容, “分钟”, , 假) ≠ -1 且 寻找文本 (编辑框1.内容, “小时”, , 假) ＝ -1)
mm ＝ 到整数 (文本_取出中间文本 (编辑框1.内容, “”, “分钟”, , ))
time ＝ time ＋ mm
编辑框3.内容 ＝ 时间_格式化 (增减时间 (到时间 (编辑框2.内容), 7, time), “yyyy-MM-dd”, “ hh:mm:ss”, 真)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

编辑框2.内容 ＝ 时间_格式化 (取现行时间 (), “yyyy-MM-dd”, “ hh:mm:ss”, 真)

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 hh, 整数型<br /> .局部变量 mm, 整数型<br /> .局部变量 time, 整数型<br /> <br /> .如果真 (寻找文本 (编辑框1.内容, “小时”, , 假) ≠ -1)<br />     hh ＝ 到整数 (文本_取出中间文本 (编辑框1.内容, “”, “小时”, , ))<br />     time ＝ hh × 60<br /> .如果真结束<br /> .如果真 (寻找文本 (编辑框1.内容, “分钟”, , 假) ≠ -1 且 寻找文本 (编辑框1.内容, “小时”, , 假) ≠ -1)<br />     mm ＝ 到整数 (文本_取出中间文本 (编辑框1.内容, “小时”, “分钟”, , ))<br />     time ＝ time ＋ mm<br /> .如果真结束<br /> .如果真 (寻找文本 (编辑框1.内容, “分钟”, , 假) ≠ -1 且 寻找文本 (编辑框1.内容, “小时”, , 假) ＝ -1)<br />     mm ＝ 到整数 (文本_取出中间文本 (编辑框1.内容, “”, “分钟”, , ))<br />     time ＝ time ＋ mm<br /> .如果真结束<br /> 编辑框3.内容 ＝ 时间_格式化 (增减时间 (到时间 (编辑框2.内容), 7, time), “yyyy-MM-dd”, “ hh:mm:ss”, 真)<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 编辑框2.内容 ＝ 时间_格式化 (取现行时间 (), “yyyy-MM-dd”, “ hh:mm:ss”, 真)

时间转换取间隔.e (937.77 KB, 下载次数: 17)

2023-3-25 19:27 上传

点击文件名下载附件

junhai

谢谢！！！！！！！！！！！！！！

曲终人散

谢谢分享学习一下

396384183

谢谢分享

杨明煜

感谢分享，真好！......

sostemp

        支持开源~！感谢分享

一指温柔

感谢分享

张张利利

感谢分享

张张利利

感谢分享

凉忆亦凉心

谢谢大佬分享 支持支持