全球任意电脑,计算当前北京时间!

兰色的夜晚

有时候有朋友验证需要计算国内服务器时间验证
但是用户全球各地都有那么一些.因为海外国人太多了...

原理很简单,就是根据本机的时区和时间,求出0时区当前时间,然后根据0时区,计算北京当前时间.

  

子程序名	返回值类型	公开	备 注
新时间_取本地与北京时差	整数型		取当前电脑时区与北京时间差,单位分钟

变量名	类 型	静态	数组	备 注
ret	整数型
tzi	时区信息_
dwBias	整数型

置入代码 ( #VM开始 )
ret ＝ GetTimeZoneInformation (tzi)
判断 (ret ＝ 2)
dwBias ＝ tzi.Bias ＋ tzi.DaylightBias
dwBias ＝ tzi.Bias ＋ tzi.StandardBias
返回 (dwBias ＋ 480)
置入代码 ( #VM结束 )

子程序名	返回值类型	公开	备 注
新时间_取现行时间_北京	日期时间型		如国外电脑,有时差,可以取到北京时间

变量名	类 型	静态	数组	备 注
局部_时间	日期时间型

置入代码 ( #VM开始 )
局部_时间 ＝ 增减时间 (取现行时间 (), #分钟, 新时间_取本地与北京时差 ())
返回 (局部_时间)
置入代码 ( #VM结束 )

子程序名	返回值类型	公开	备 注
新时间_转时间	自定义时间time

变量名	类 型	静态	数组	备 注
局部_时间	自定义时间time
局部_时间X	日期时间型

置入代码 ( #VM开始 )
GetSystemTime (局部_时间)
局部_时间X ＝ 新时间_取现行时间_北京 ()
局部_时间.年 ＝ 取年份 (局部_时间X)
局部_时间.月 ＝ 取月份 (局部_时间X)
局部_时间.星期 ＝ 取星期几 (局部_时间X) － 1
局部_时间.日 ＝ 取日 (局部_时间X)
局部_时间.时 ＝ 取小时 (局部_时间X)
局部_时间.分 ＝ 取分钟 (局部_时间X)
局部_时间.秒 ＝ 取秒 (局部_时间X)
置入代码 ( #VM结束 )
返回 (局部_时间)

.版本 2<br /> <br /> .子程序 新时间_取本地与北京时差, 整数型, , 取当前电脑时区与北京时间差,单位分钟<br /> .局部变量 ret, 整数型<br /> .局部变量 tzi, 时区信息_<br /> .局部变量 dwBias, 整数型<br /> <br /> 置入代码 (#VM开始)<br /> ret ＝ GetTimeZoneInformation (tzi)<br /> .判断开始 (ret ＝ 2)<br />     dwBias ＝ tzi.Bias ＋ tzi.DaylightBias<br /> .默认<br />     dwBias ＝ tzi.Bias ＋ tzi.StandardBias<br /> .判断结束<br /> 返回 (dwBias ＋ 480)<br /> 置入代码 (#VM结束)<br /> <br /> .子程序 新时间_取现行时间_北京, 日期时间型, , 如国外电脑,有时差,可以取到北京时间<br /> .局部变量 局部_时间, 日期时间型<br /> <br /> 置入代码 (#VM开始)<br /> 局部_时间 ＝ 增减时间 (取现行时间 (), #分钟, 新时间_取本地与北京时差 ())<br /> 返回 (局部_时间)<br /> 置入代码 (#VM结束)<br /> <br /> .子程序 新时间_转时间, 自定义时间time<br /> .局部变量 局部_时间, 自定义时间time<br /> .局部变量 局部_时间X, 日期时间型<br /> <br /> 置入代码 (#VM开始)<br /> GetSystemTime (局部_时间)<br /> 局部_时间X ＝ 新时间_取现行时间_北京 ()<br /> 局部_时间.年 ＝ 取年份 (局部_时间X)<br /> 局部_时间.月 ＝ 取月份 (局部_时间X)<br /> 局部_时间.星期 ＝ 取星期几 (局部_时间X) － 1<br /> 局部_时间.日 ＝ 取日 (局部_时间X)<br /> 局部_时间.时 ＝ 取小时 (局部_时间X)<br /> 局部_时间.分 ＝ 取分钟 (局部_时间X)<br /> 局部_时间.秒 ＝ 取秒 (局部_时间X)<br /> 置入代码 (#VM结束)<br /> 返回 (局部_时间)

  

DLL命令名	返回值类型	公开	备 注
GetTimeZoneInformation	整数型		取系统时区设置_
DLL库文件名:
kernel32
在DLL库中对应命令名:
GetTimeZoneInformation
参数名	类 型	传址	数组	备 注
时区结构设置	时区信息_

.版本 2<br /> <br /> .DLL命令 GetTimeZoneInformation, 整数型, "kernel32", "GetTimeZoneInformation", , 取系统时区设置_<br />     .参数 时区结构设置, 时区信息_

  

DLL命令名	返回值类型	公开	备 注
GetSystemTime	整数型
DLL库文件名:
kernel32
在DLL库中对应命令名:
GetSystemTime
参数名	类 型	传址	数组	备 注
_参数1	自定义时间time

.版本 2<br /> <br /> .DLL命令 GetSystemTime, 整数型, "kernel32", "GetSystemTime"<br />     .参数 _参数1, 自定义时间time, 传址

  

数据类型名	公开	备 注
自定义时间time
成员名	类 型	传址	数组	备 注
年	短整数型
月	短整数型
星期	短整数型
日	短整数型
时	短整数型
分	短整数型
秒	短整数型
毫	短整数型

.版本 2<br /> <br /> .数据类型 自定义时间time<br />     .成员 年, 短整数型<br />     .成员 月, 短整数型<br />     .成员 星期, 短整数型<br />     .成员 日, 短整数型<br />     .成员 时, 短整数型<br />     .成员 分, 短整数型<br />     .成员 秒, 短整数型<br />     .成员 毫, 短整数型

  

数据类型名	公开	备 注
时区信息_		TIME_ZONE_INFORMATION
成员名	类 型	传址	数组	备 注
Bias	整数型
StandardName	短整数型		32
系统时间年	短整数型
系统时间月	短整数型
系统时间星期	短整数型
系统时间天	短整数型
系统时间时	短整数型
系统时间分	短整数型
系统时间秒	短整数型
系统时间毫秒	短整数型
StandardBias	整数型
DaylightName	短整数型		32
时区时间年	短整数型
时区时间月	短整数型
时区时间星期	短整数型
时区时间天	短整数型
时区时间时	短整数型
时区时间分	短整数型
时区时间秒	短整数型
时区时间毫秒	短整数型
DaylightBias	整数型

.版本 2<br /> <br /> .数据类型 时区信息_, , TIME_ZONE_INFORMATION<br />     .成员 Bias, 整数型<br />     .成员 StandardName, 短整数型, , "32"<br />     .成员 系统时间年, 短整数型<br />     .成员 系统时间月, 短整数型<br />     .成员 系统时间星期, 短整数型<br />     .成员 系统时间天, 短整数型<br />     .成员 系统时间时, 短整数型<br />     .成员 系统时间分, 短整数型<br />     .成员 系统时间秒, 短整数型<br />     .成员 系统时间毫秒, 短整数型<br />     .成员 StandardBias, 整数型<br />     .成员 DaylightName, 短整数型, , "32"<br />     .成员 时区时间年, 短整数型<br />     .成员 时区时间月, 短整数型<br />     .成员 时区时间星期, 短整数型<br />     .成员 时区时间天, 短整数型<br />     .成员 时区时间时, 短整数型<br />     .成员 时区时间分, 短整数型<br />     .成员 时区时间秒, 短整数型<br />     .成员 时区时间毫秒, 短整数型<br />     .成员 DaylightBias, 整数型

凌伤

感谢分享，学习一下

故林

谢谢分享！

lrbf810

使用夏令时的时区，取到的DaylightBias是错误的，咋整？

xjshuaishuai

谢谢分享！

614430887

感谢分享，学习一下

1355301564

大大滴好啊啊

kyo9766

学习一下时区，感谢分享，直接贴代码好评啊

心情贝比

学习一下

zxxiaopi

感谢分享