AM时间转换问题

685543

Feb 23, 2021 08:27:30 AM
如何转换这种AM PM时间
上面时差为16小时，加拿大时间

真冬

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
本机中国时间	日期时间型

本机中国时间 ＝ 取现行时间 ()
信息框 (AM时间转换 (增减时间 (本机中国时间, #小时, -13)), 0, , )  ' 比北京慢13小时

子程序名	返回值类型	公开	备 注
AM时间转换	文本型
参数名	类 型	参考	可空	数组	备 注
时间	日期时间型

变量名	类 型	静态	数组	备 注
小时	小数型
月份	文本型

月份 ＝ 多项选择 (取月份 (时间), “Jan”, “Feb”, “Mar”, “Apr”, “May”, “Jun”, “Jul”, “Aug”, “Sep”, “Oct”, “Nov”, “Dec”)
小时 ＝ 取小时 (时间)
返回 (格式化文本 (“%s %02d, %04d %02.0f:%02d:%02d %s”, 月份, 取日 (时间), 取年份 (时间), 选择 (小时 － 12 ≤ 0, 小时, 小时 － 12), 取分钟 (时间), 取秒 (时间), 选择 (小时 － 12 ＜ 0, “AM”, “PM”)))

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 本机中国时间, 日期时间型<br /> <br /> 本机中国时间 ＝ 取现行时间 ()<br /> 信息框 (AM时间转换 (增减时间 (本机中国时间, #小时, -13)), 0, , )  ' 比北京慢13小时<br /> <br /> .子程序 AM时间转换, 文本型<br /> .参数 时间, 日期时间型<br /> .局部变量 小时, 小数型<br /> .局部变量 月份, 文本型<br /> <br /> 月份 ＝ 多项选择 (取月份 (时间), “Jan”, “Feb”, “Mar”, “Apr”, “May”, “Jun”, “Jul”, “Aug”, “Sep”, “Oct”, “Nov”, “Dec”)<br /> 小时 ＝ 取小时 (时间)<br /> 返回 (格式化文本 (“%s %02d, %04d %02.0f:%02d:%02d %s”, 月份, 取日 (时间), 取年份 (时间), 选择 (小时 － 12 ≤ 0, 小时, 小时 － 12), 取分钟 (时间), 取秒 (时间), 选择 (小时 － 12 ＜ 0, “AM”, “PM”)))

阿顺

阿顺

685543

阿顺 发表于 2021-2-24 01:35

这个GMT返回的不是标准的GMT时间格式，无法用 时间_GMT转为时间（）

qq793359277

分割再组合成标准格式后再转

大司命

  

子程序名	返回值类型	公开	备 注
时间_转为AM格式	文本型		将日期时间型 数 据 转换为AM格式 Greenwich Mean Time
参数名	类 型	参考	可空	数组	备 注
待转换时间	日期时间型

变量名	类 型	静态	数组	备 注
整数容器	整数型
AM时间	文本型

待转换时间 ＝ 增减时间 (待转换时间, #小时, -16)
整数容器 ＝ 取月份 (待转换时间)
判断 (整数容器 ＝ 1)
AM时间 ＝ AM时间 ＋ “Jan” ＋ “ ”
判断 (整数容器 ＝ 2)
AM时间 ＝ AM时间 ＋ “Feb” ＋ “ ”
判断 (整数容器 ＝ 3)
AM时间 ＝ AM时间 ＋ “Mar” ＋ “ ”
判断 (整数容器 ＝ 4)
AM时间 ＝ AM时间 ＋ “Apr” ＋ “ ”
判断 (整数容器 ＝ 5)
AM时间 ＝ AM时间 ＋ “May” ＋ “ ”
判断 (整数容器 ＝ 6)
AM时间 ＝ AM时间 ＋ “Jun” ＋ “ ”
判断 (整数容器 ＝ 7)
AM时间 ＝ AM时间 ＋ “Jul” ＋ “ ”
判断 (整数容器 ＝ 8)
AM时间 ＝ AM时间 ＋ “Aug” ＋ “ ”
判断 (整数容器 ＝ 9)
AM时间 ＝ AM时间 ＋ “Sep” ＋ “ ”
判断 (整数容器 ＝ 10)
AM时间 ＝ AM时间 ＋ “Oct” ＋ “ ”
判断 (整数容器 ＝ 11)
AM时间 ＝ AM时间 ＋ “Nov” ＋ “ ”
判断 (整数容器 ＝ 12)
AM时间 ＝ AM时间 ＋ “Dec” ＋ “ ”
AM时间 ＝ AM时间 ＋ 到文本 (取日 (待转换时间)) ＋ “,”
AM时间 ＝ AM时间 ＋ 到文本 (取年份 (待转换时间)) ＋ “ ” ＋ 到文本 (内部_补全 (取小时 (待转换时间))) ＋ “:” ＋ 到文本 (内部_补全 (取分钟 (待转换时间))) ＋ “:” ＋ 到文本 (内部_补全 (取秒 (待转换时间))) ＋ “ AM”
返回 (AM时间)

.版本 2<br /> .子程序 时间_转为AM格式, 文本型, 公开, 将日期时间型 数 据 转换为AM格式 Greenwich Mean Time<br /> .参数 待转换时间, 日期时间型<br /> .局部变量 整数容器, 整数型<br /> .局部变量 AM时间, 文本型<br /> 待转换时间 ＝ 增减时间 (待转换时间, #小时, -16)<br /> 整数容器 ＝ 取月份 (待转换时间)<br /> .判断开始 (整数容器 ＝ 1)<br />     AM时间 ＝ AM时间 ＋ “Jan” ＋ “ ”<br /> .判断 (整数容器 ＝ 2)<br />     AM时间 ＝ AM时间 ＋ “Feb” ＋ “ ”<br /> .判断 (整数容器 ＝ 3)<br />     AM时间 ＝ AM时间 ＋ “Mar” ＋ “ ”<br /> .判断 (整数容器 ＝ 4)<br />     AM时间 ＝ AM时间 ＋ “Apr” ＋ “ ”<br /> .判断 (整数容器 ＝ 5)<br />     AM时间 ＝ AM时间 ＋ “May” ＋ “ ”<br /> .判断 (整数容器 ＝ 6)<br />     AM时间 ＝ AM时间 ＋ “Jun” ＋ “ ”<br /> .判断 (整数容器 ＝ 7)<br />     AM时间 ＝ AM时间 ＋ “Jul” ＋ “ ”<br /> .判断 (整数容器 ＝ 8)<br />     AM时间 ＝ AM时间 ＋ “Aug” ＋ “ ”<br /> .判断 (整数容器 ＝ 9)<br />     AM时间 ＝ AM时间 ＋ “Sep” ＋ “ ”<br /> .判断 (整数容器 ＝ 10)<br />     AM时间 ＝ AM时间 ＋ “Oct” ＋ “ ”<br /> .判断 (整数容器 ＝ 11)<br />     AM时间 ＝ AM时间 ＋ “Nov” ＋ “ ”<br /> .判断 (整数容器 ＝ 12)<br />     AM时间 ＝ AM时间 ＋ “Dec” ＋ “ ”<br /> .默认<br /> .判断结束<br /> AM时间 ＝ AM时间 ＋ 到文本 (取日 (待转换时间)) ＋ “,”<br /> AM时间 ＝ AM时间 ＋ 到文本 (取年份 (待转换时间)) ＋ “ ” ＋ 到文本 (内部_补全 (取小时 (待转换时间))) ＋ “:” ＋ 到文本 (内部_补全 (取分钟 (待转换时间))) ＋ “:” ＋ 到文本 (内部_补全 (取秒 (待转换时间))) ＋ “ AM”<br /> 返回 (AM时间)

把模块里的代码改下就完事啦~