ISO 8601转北京时间(日期时间型)

nicewell · 发表于 2025-3-31 20:32:35

最近因为需要对接一下国外得邮箱，因为需要根据邮件时间来判断是否是最新得，发现用得时间格式是 ISO 8601格式得，不得已在论坛遨游中
在这个贴子
https://bbs.125.la/forum.php?mod ... ighlight=ISO%2B8601
中得沙发位置，发现大佬【帅气与大侠】写得转换源码，因为没有做时区增减，所以自己写得就简单做了下时区得处理，免费发出来分享给各位。

iso8601时间转换测试.rar (1.66 KB, 下载次数: 30)

歆冉忆梦 · 发表于 2025-11-4 19:29:57

本帖最后由歆冉忆梦于 2025-11-4 19:38 编辑

楼主写的不是北京时间，以下是转到北京时间的修改版，调用了精易模块。

.版本 2

.子程序时间_ISO8601到北京时间, 日期时间型
.参数 ISO8601时间, 文本型
.局部变量时间文本, 文本型
.局部变量返回位置, 整数型
.局部变量时区文本, 文本型
.局部变量时区文本_小时, 文本型
.局部变量时区文本_分钟, 文本型
.局部变量时区差距_小时, 整数型
.局部变量时区差距_分钟, 整数型
.局部变量局_时区正负, 逻辑型, , , 真为+时区，假为-时区
.局部变量局_当钱时间, 日期时间型

时间文本＝子文本替换 (到大写 (ISO8601时间), “T”, “ ”, , , 真)
返回位置＝取文本长度 (时间文本) － 5
时间文本＝取文本左边 (时间文本, 返回位置－ 1)
.判断开始 (文本_取某位置文本 (ISO8601时间, 取文本长度 (ISO8601时间) － 5, ) ＝ “+”)
局_时区正负＝真
.判断 (文本_取某位置文本 (ISO8601时间, 取文本长度 (ISO8601时间) － 5, ) ＝ “-”)
局_时区正负＝假
.默认
返回 (到时间 (时间文本))
.判断结束

' 过滤时区文本
时区文本＝取文本右边 (ISO8601时间, 5)
' 分割时区文本
时区文本_小时＝取文本左边 (时区文本, 2)
时区文本_分钟＝取文本右边 (时区文本, 2)

.如果 (局_时区正负＝真)
' 正时区
时区差距_小时＝ 8 －到整数 (时区文本_小时)
时区差距_分钟＝ 0 －到整数 (时区文本_分钟)
.否则
' 负时区
时区差距_小时＝ 8 ＋到整数 (时区文本_小时)
时区差距_分钟＝ 0 ＋到整数 (时区文本_分钟)
.如果结束

局_当钱时间＝到时间 (时间文本)
局_当钱时间＝增减时间 (局_当钱时间, #小时, 到整数 (时区差距_小时))
局_当钱时间＝增减时间 (局_当钱时间, #分钟, 到整数 (时区差距_分钟))

返回 (局_当钱时间)

voaikey · 发表于 2025-5-16 09:28:06

感谢分享

nicewell · 发表于 2025-4-16 15:34:01

b0y 发表于 2025-3-31 23:13
这种时间后面的偏移量是相当于UTC的. UTC+时区偏移=所在时区
所以
2024-11-14T22:58:31.624+0910

我查得资料是 +后面得0910 前两位09代表小时后面得10 代表分钟，+ 代表增加 -代表减少。所以就按照这个说明处理了。

Sadlg · 发表于 2025-4-4 22:03:05

支持一下

please · 发表于 2025-4-4 09:38:51

感谢分享，支持开源！！！

胖子葛格 · 发表于 2025-4-3 09:16:41

感谢大神分享~！

wh1234567 · 发表于 2025-4-3 08:46:25

感谢分享，牛逼

查过 · 发表于 2025-4-3 07:11:13

全都是大佬~

豆豆灰常开心 · 发表于 2025-4-3 07:06:54

下个学习一下

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

[易语言纯源码] ISO 8601转北京时间(日期时间型)

评分