时间_到文本 小时制式改进提议

韦贝贝

其实这个BUG我早知道正好看到有人反馈这里说名下 有些电脑默认是12小时式而时间_到文本（）本身就是获取电脑的小时式来的这样不太好。这个bug我也是找了好久才发现（代码太多）我建议
加入手动修改的参数
小时制式 0取当前系统时间制式，1表示12小时制，2表示24小时制

  

子程序名	返回值类型	公开	备 注
时间_到文本小时制式	文本型		返回文本格式的现行时间，如：2005053107123
参数名	类 型	参考	可空	数组	备 注
操作时间	日期时间型				可空。留空为现行时间
输出格式	整数型				可空。0=N年N月N日 N时N分N秒  1=年-月-日 时:分:秒  2=年/月/日 时/分/秒  3=年月日时分秒
取出类型	整数型				可空。留空为全部，1=只取年月日，2=取月日，3=只取时分秒，4=时分，5=分秒
小时制式	整数型				0取当前系统时间制式，1表示12小时制，2表示24小时制

变量名	类 型	静态	数组	备 注
局_日期格式	文本型
局_时间格式	文本型
局_格式	文本型
局_制式	整数型

操作时间 ＝ 选择 (是否为空 (操作时间), 取现行时间 (), 操作时间)
输出格式 ＝ 选择 (输出格式 ≥ 0 且 输出格式 ≤ 3, 输出格式, 0)
局_日期格式 ＝ 多项选择 (输出格式 ＋ 1, “yyyy年MM月dd日 ”, “yyyy-MM-dd ”, “yyyy/MM/dd ”, “yyyyMMdd”)
局_日期格式 ＝ 选择 (取出类型 ≥ 3 且 取出类型 ≤ 5, “”, 局_日期格式)
局_时间格式 ＝ 多项选择 (输出格式 ＋ 1, “hh时mm分ss秒”, “hh:mm:ss”, “hh/mm/ss”, “hhmmss”)
局_时间格式 ＝ 选择 (取出类型 ≥ 1 且 取出类型 ≤ 2, “”, 局_时间格式)
如果真 (取出类型 ＝ 1)
局_日期格式 ＝ 删首尾空 (局_日期格式)
如果真 (取出类型 ＝ 2)
局_日期格式 ＝ 多项选择 (输出格式 ＋ 1, “MM月dd日”, “MM-dd”, “MM/dd”, “MMdd”)
如果真 (取出类型 ＝ 4)
局_时间格式 ＝ 多项选择 (输出格式 ＋ 1, “hh时mm分”, “hh:mm”, “hh/mm”, “hhmm”)
如果真 (取出类型 ＝ 5)
局_时间格式 ＝ 多项选择 (输出格式 ＋ 1, “mm分ss秒”, “mm:ss”, “mm/ss”, “mmss”)
如果 (小时制式 ＝ 0)
局_制式 ＝ 时间_取制式 ()
局_制式 ＝ 小时制式
局_时间格式 ＝ 选择 (小时制式 ＝ 1, 子文本替换 (局_时间格式, “hh”, “HH”, , , 真), 局_时间格式)
局_格式 ＝ 时间_格式化 (操作时间, 局_日期格式, 局_时间格式)
返回 (局_格式)

.版本 2<br /> <br /> .子程序 时间_到文本小时制式, 文本型, 公开, 返回文本格式的现行时间，如：2005053107123<br /> .参数 操作时间, 日期时间型, 可空, 可空。留空为现行时间<br /> .参数 输出格式, 整数型, 可空, 可空。0=N年N月N日 N时N分N秒  1=年-月-日 时:分:秒  2=年/月/日 时/分/秒  3=年月日时分秒<br /> .参数 取出类型, 整数型, 可空, 可空。留空为全部，1=只取年月日，2=取月日，3=只取时分秒，4=时分，5=分秒<br /> .参数 小时制式, 整数型, 可空, 0取当前系统时间制式，1表示12小时制，2表示24小时制<br /> .局部变量 局_日期格式, 文本型<br /> .局部变量 局_时间格式, 文本型<br /> .局部变量 局_格式, 文本型<br /> .局部变量 局_制式, 整数型<br /> <br /> 操作时间 ＝ 选择 (是否为空 (操作时间), 取现行时间 (), 操作时间)<br /> 输出格式 ＝ 选择 (输出格式 ≥ 0 且 输出格式 ≤ 3, 输出格式, 0)<br /> 局_日期格式 ＝ 多项选择 (输出格式 ＋ 1, “yyyy年MM月dd日 ”, “yyyy-MM-dd ”, “yyyy/MM/dd ”, “yyyyMMdd”)<br /> 局_日期格式 ＝ 选择 (取出类型 ≥ 3 且 取出类型 ≤ 5, “”, 局_日期格式)<br /> 局_时间格式 ＝ 多项选择 (输出格式 ＋ 1, “hh时mm分ss秒”, “hh:mm:ss”, “hh/mm/ss”, “hhmmss”)<br /> 局_时间格式 ＝ 选择 (取出类型 ≥ 1 且 取出类型 ≤ 2, “”, 局_时间格式)<br /> .如果真 (取出类型 ＝ 1)<br />     局_日期格式 ＝ 删首尾空 (局_日期格式)<br /> .如果真结束<br /> .如果真 (取出类型 ＝ 2)<br />     局_日期格式 ＝ 多项选择 (输出格式 ＋ 1, “MM月dd日”, “MM-dd”, “MM/dd”, “MMdd”)<br /> .如果真结束<br /> .如果真 (取出类型 ＝ 4)<br />     局_时间格式 ＝ 多项选择 (输出格式 ＋ 1, “hh时mm分”, “hh:mm”, “hh/mm”, “hhmm”)<br /> .如果真结束<br /> .如果真 (取出类型 ＝ 5)<br />     局_时间格式 ＝ 多项选择 (输出格式 ＋ 1, “mm分ss秒”, “mm:ss”, “mm/ss”, “mmss”)<br /> .如果真结束<br /> .如果 (小时制式 ＝ 0)<br />     局_制式 ＝ 时间_取制式 ()<br /> .否则<br />     局_制式 ＝ 小时制式<br /> .如果结束<br /> 局_时间格式 ＝ 选择 (小时制式 ＝ 1, 子文本替换 (局_时间格式, “hh”, “HH”, , , 真), 局_时间格式)<br /> 局_格式 ＝ 时间_格式化 (操作时间, 局_日期格式, 局_时间格式)<br /> 返回 (局_格式)

项目部004

  

如果 (小时制式 ≤ 0 或 小时制式 ＞ 2)
局_制式 ＝ 时间_取制式 ()
局_制式 ＝ 小时制式 － 1
局_时间格式 ＝ 选择 (局_制式 ＝ 1, 子文本替换 (局_时间格式, “hh”, “HH”, , , 真), 局_时间格式)

.版本 2<br /> .如果 (小时制式 ≤ 0 或 小时制式 ＞ 2)<br />     局_制式 ＝ 时间_取制式 ()<br /> .否则<br />     局_制式 ＝ 小时制式 － 1<br /> .如果结束<br /> 局_时间格式 ＝ 选择 (局_制式 ＝ 1, 子文本替换 (局_时间格式, “hh”, “HH”, , , 真), 局_时间格式)

纠正下！