全球任意电脑,计算当前北京时间! - 精易论坛

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

变量名	类型	静态	数组	备注
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结束 )
返回 (局部_时间)

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

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

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

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