ICode9

精准搜索请尝试: 精确搜索
首页 > 其他分享> 文章详细

[转载]vb 时间戳与时间互转

2019-03-27 15:37:36  阅读:839  来源: 互联网

标签:vb ToUnixTime FromUnixTime intTime intTimeZone 时间 互转 strTime


转自:https://blog.csdn.net/boys1999/article/details/23298415

vb 时间戳与时间互转

2014年04月09日 21:13:47  阅读数:5272  

在线测试时间戳与时间:http://tool.chinaz.com/Tools/unixtime.aspx

 

 

'参数:strTime:要转换的时间;intTimeZone:该时间对应的时区
'返回值:strTime相对于1970年1月1日午夜0点经过的秒数
'示例:ToUnixTime("2008-5-23 10:51:0", +8),返回值为1211511060
Function ToUnixTime(strTime, intTimeZone)
If IsEmpty(strTime) Or Not IsDate(strTime) Then strTime = Now
If IsEmpty(intTimeZone) Or Not IsNumeric(intTimeZone) Then intTimeZone = 0
ToUnixTime = DateAdd("h", -intTimeZone, strTime)
ToUnixTime = DateDiff("s", "1970-1-1 0:0:0", ToUnixTime)
End Function

'把UNIX时间戳转换为标准时间
'参数:intTime:要转换的UNIX时间戳;intTimeZone:该时间戳对应的时区
'返回值:intTime所代表的标准时间
'示例:FromUnixTime("1211511060", +8),返回值2008-5-23 10:51:0
Function FromUnixTime(intTime, intTimeZone)
If IsEmpty(intTime) Or Not IsNumeric(intTime) Then
FromUnixTime = Now()
Exit Function
End If
If IsEmpty(intTime) Or Not IsNumeric(intTimeZone) Then intTimeZone = 0
FromUnixTime = DateAdd("s", intTime, "1970-1-1 0:0:0")
FromUnixTime = DateAdd("h", intTimeZone, FromUnixTime)
End Function
---------------------
作者:boys1999
来源:CSDN
原文:https://blog.csdn.net/boys1999/article/details/23298415
版权声明:本文为博主原创文章,转载请附上博文链接!

标签:vb,ToUnixTime,FromUnixTime,intTime,intTimeZone,时间,互转,strTime
来源: https://www.cnblogs.com/workingdiary/p/10607961.html

本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享;
2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关;
3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关;
4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除;
5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

专注分享技术,共同学习,共同进步。侵权联系[81616952@qq.com]

Copyright (C)ICode9.com, All Rights Reserved.

ICode9版权所有