|
本帖最后由 萧阳天 于 2014-5-15 23:07 编辑
星期三 应该是 Wed 看看你们转的是啥
一个API 搞定的事 没必要弄这么长的代码 弄的这么复杂
[e]
.版本 2
.子程序 时间_转GMT格式, 文本型, 公开, 将日期时间型数据转换为GMT格式 Greenwich Mean Time
.参数 待转换时间, 日期时间型
.局部变量 GMT时间, 文本型
.局部变量 time, SystemTime
GMT时间 = 取空白文本 (128)
time.年 = 取年份 (待转换时间)
time.月 = 取月份 (待转换时间)
time.日 = 取日 (待转换时间)
time.小时 = 取小时 (待转换时间)
time.分 = 取分钟 (待转换时间)
time.秒 = 取秒 (待转换时间)
InternetTimeFromSystemTime (time, 0, GMT时间, 128)
返回 (GMT时间)
.子程序 时间_GMT转时间, 日期时间型, 公开, 将GMT文本时间 转换成日期时间型
.参数 GMT时间, 文本型
.局部变量 stime, SystemTime
InternetTimeToSystemTimeA (GMT时间, stime, 0)
返回 (指定时间 (stime.年, stime.月, stime.日, stime.小时, stime.分, stime.秒))
[/e]
|
|