优化 时间_取现行时间戳 时间_时间戳转文本 时间_转为GMT格式1

shituo

  

子程序名	返回值类型	公开	备 注
取当前时间戳	长整数型		感谢：shituo 提供优化代码 生成一个13位或者10位的现行时间戳，默认生成13位时间戳。13位：1325252169718，10位：1325252169 北京时间
参数名	类 型	参考	可空	数组	备 注
十位时间戳	逻辑型				本参数为真时，将生成10位时间戳返回

变量名	类 型	静态	数组	备 注
time	SYSTEMTIME
欲取的时间	日期时间型

_取当前现行时间_GetLocalTime (time)
_系统时间到易时间_VariantTimeToSystemTime (time, 欲取的时间)
判断 (十位时间戳)
返回 (取时间间隔 (欲取的时间, [1970年1月1日8时], #秒 ))
返回 (取时间间隔 (欲取的时间, [1970年1月1日8时], #秒 ) × 1000 ＋ time.毫秒)

子程序名	返回值类型	公开	备 注
时间_时间戳转文本	文本型		感谢：shituo 提供优化代码  把一个13位的时间戳，如：1325252169718 转成 2011-12-30 21:36:09
参数名	类 型	参考	可空	数组	备 注
时间戳	长整数型
参数格式	整数型

变量名	类 型	静态	数组	备 注
时间文本	文本型
现行时间	日期时间型
时间	文本型
日期	文本型
Time	SYSTEMTIME

现行时间 ＝ 增减时间 ([1970年1月1日8时], #秒, 时间戳 ÷ 1000)
_易时间到系统时间_VariantTimeToSystemTime (现行时间 , Time)
判断 (参数格式 ＝ 0)  ' 8 1973-01-05 12:00:02
时间 ＝ 取空白文本 (15)
_取格式化日期_GetDateFormatA (0, 0, Time, “yyyy-MM-dd”, 年, 15)
日期 ＝ 取空白文本 (15)
_取格式化时间_GetTimeFormatA (0, 0, Time, “HH:mm:ss”, 日期, 15)
时间文本 ＝ 时间 ＋ “ ” ＋ 日期
判断 (参数格式 ＝ 1)  ' 10 、2014-05-02
时间文本 ＝ 取空白文本 (15)
_取格式化日期_GetDateFormatA (0, 0, Time, “yyyy-MM-dd”, 时间文本, 15)
判断 (参数格式 ＝ 2)  ' 10 、12:00:02
时间文本 ＝ 取空白文本 (15)
_取格式化时间_GetTimeFormatA (0, 0, Time, “HH:mm:ss”, 时间文本, 15)


返回 (时间文本)

子程序名	返回值类型	公开	备 注
时间_转GMT格式	文本型		感谢：shituo 提供优化代码  将日期时间型数据转换为GMT格式 Greenwich Mean Time
参数名	类 型	参考	可空	数组	备 注
待转换时间	日期时间型

变量名	类 型	静态	数组	备 注
GMT时间	文本型
time	SYSTEMTIME

GMT时间 ＝ 取空白文本 (30)
判断 (是否为空 (待转换时间))
_取当前现行时间_GetLocalTime (time)
_系统时间到易时间_VariantTimeToSystemTime (待转换时间, time)
InternetTimeFromSystemTime (time, 0, GMT时间, 30)
返回 (GMT时间)

.版本 2<br /> <br /> .子程序 取当前时间戳, 长整数型, 公开, 感谢：shituo 提供优化代码 生成一个13位或者10位的现行时间戳，默认生成13位时间戳。13位：1325252169718，10位：1325252169 北京时间 <br /> .参数 十位时间戳, 逻辑型, 可空, 本参数为真时，将生成10位时间戳返回<br /> .局部变量 time, SYSTEMTIME<br /> .局部变量 欲取的时间, 日期时间型<br /> <br /> _取当前现行时间_GetLocalTime (time)<br /> _系统时间到易时间_VariantTimeToSystemTime (time, 欲取的时间)<br /> .判断开始 (十位时间戳)<br />     返回 (取时间间隔 (欲取的时间, [1970年1月1日8时], #秒))<br /> .默认<br />     返回 (取时间间隔 (欲取的时间, [1970年1月1日8时], #秒) × 1000 ＋ time.毫秒)<br /> <br /> .版本 2<br /> <br /> .子程序 时间_时间戳转文本, 文本型, 公开, 感谢：shituo 提供优化代码  把一个13位的时间戳，如：1325252169718 转成 2011-12-30 21:36:09<br /> .参数 时间戳, 长整数型<br /> .参数 参数格式, 整数型<br /> .局部变量 时间文本, 文本型<br /> .局部变量 现行时间, 日期时间型<br /> .局部变量 时间, 文本型<br /> .局部变量 日期, 文本型<br /> .局部变量 Time, SYSTEMTIME<br /> <br /> 现行时间 ＝ 增减时间 ([1970年1月1日8时], #秒, 时间戳 ÷ 1000)<br /> _易时间到系统时间_VariantTimeToSystemTime (现行时间 , Time)<br /> .判断开始 (参数格式 ＝ 0)  ' 8 1973-01-05 12:00:02<br />     时间 ＝ 取空白文本 (15)<br />     _取格式化日期_GetDateFormatA (0, 0, Time, “yyyy-MM-dd”, 年, 15)<br />     日期 ＝ 取空白文本 (15)<br />     _取格式化时间_GetTimeFormatA (0, 0, Time, “HH:mm:ss”, 日期, 15)<br />     时间文本 ＝ 时间 ＋ “ ” ＋ 日期<br /> .判断 (参数格式 ＝ 1)  ' 10 、2014-05-02<br />     时间文本 ＝ 取空白文本 (15)<br />     _取格式化日期_GetDateFormatA (0, 0, Time, “yyyy-MM-dd”, 时间文本, 15)<br /> .判断 (参数格式 ＝ 2)  ' 10 、12:00:02<br />     时间文本 ＝ 取空白文本 (15)<br />     _取格式化时间_GetTimeFormatA (0, 0, Time, “HH:mm:ss”, 时间文本, 15)<br /> .默认<br /> <br /> .判断结束<br /> 返回 (时间文本)<br /> .版本 2<br /> <br /> .子程序 时间_转GMT格式, 文本型, 公开, 感谢：shituo 提供优化代码  将日期时间型数据转换为GMT格式 Greenwich Mean Time<br /> .参数 待转换时间, 日期时间型, 可空<br /> .局部变量 GMT时间, 文本型<br /> .局部变量 time, SYSTEMTIME<br /> <br /> GMT时间 ＝ 取空白文本 (30)<br /> .判断开始 (是否为空 (待转换时间))<br />     _取当前现行时间_GetLocalTime (time)<br /> .默认<br />     _系统时间到易时间_VariantTimeToSystemTime (待转换时间, time)<br /> .判断结束<br /> InternetTimeFromSystemTime (time, 0, GMT时间, 30)<br /> 返回 (GMT时间)

shituo

  

子程序名	返回值类型	公开	备 注
时间戳到时间_整数	日期时间型		感谢会员 shituo 提供代码
参数名	类 型	参考	可空	数组	备 注
时间戳	长整数型

判断 (时间戳 ＞ 9999999999)
返回 (增减时间 ([1970年1月1日8时], #秒, 时间戳 ÷ 1000))
返回 (增减时间 ([1970年1月1日8时], #秒, 时间戳))

.版本 2<br /> <br /> .子程序 时间戳到时间_整数, 日期时间型, 公开, 感谢会员 shituo 提供代码<br /> .参数 时间戳, 长整数型<br /> <br /> .判断开始 (时间戳 ＞ 9999999999)<br />     返回 (增减时间 ([1970年1月1日8时], #秒, 时间戳 ÷ 1000))<br /> .默认<br />     返回 (增减时间 ([1970年1月1日8时], #秒, 时间戳))