VB6.0 系统时间转换成时间戳
来源:互联网 发布:mac itunes资料库在哪 编辑:程序博客网 时间:2024/05/22 12:26
'参数:strTime:要转换的时间;intTimeZone:该时间对应的时区
'返回值:strTime相对于1970年1月1日午夜0点经过的秒数
'示例:ToUnixTime("2008-5-23 10:51:0", +8),返回值为1211511060
Dim ToUnixTime As String
Dim strTime As Date
Dim intTimeZone As String
strTime = Now
intTimeZone = 0
ToUnixTime = DateAdd("h", -intTimeZone, strTime)
ToUnixTime = DateDiff("s", "1970-1-1 0:0:0", ToUnixTime)
'示例: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
'返回值:strTime相对于1970年1月1日午夜0点经过的秒数
'示例:ToUnixTime("2008-5-23 10:51:0", +8),返回值为1211511060
Dim ToUnixTime As String
Dim strTime As Date
Dim intTimeZone As String
strTime = Now
intTimeZone = 0
ToUnixTime = DateAdd("h", -intTimeZone, strTime)
ToUnixTime = DateDiff("s", "1970-1-1 0:0:0", ToUnixTime)
'把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
阅读全文
0 0
- VB6.0 系统时间转换成时间戳
- unix时间转换成系统时间
- 获取系统时间以及将时间戳转换成字符串,将字符串转换成时间戳
- 时间戳转换成时间
- 时间戳转换成时间
- 时间戳转换成时间
- 将系统时间转换成UTC时间,大整数时间
- C++ 将当前系统时间转换成标准格式的时间和时间戳
- 时间戳转换时间
- 时间戳转换时间
- android 系统时间转换
- 系统时间格式转换
- unix时间戳转换成java时间
- 根据时间转换成时间戳
- 时间戳转换成时间格式字符串
- iOS 时间戳转换成标准时间
- ios 时间戳转换成时间
- Java 时间转换成unix时间戳
- js赋值html
- cordova Statusbar状态栏插件的使用
- Android json解析(FastJson Gson 对比)
- vim多窗口操作-------改变窗口布局
- python 对 Excel 的文件操作
- VB6.0 系统时间转换成时间戳
- 如何为码云(oschina)设置多个ssh key并配置
- 阿里专家为你讲解分布式数据库技术与实现
- 大数据在智能交通行业的应用
- 单例及double check lock
- VA01销售订单增强MV45AFZZ注意点
- CSS:制作三角形的原理
- 细说数字货币区块链技术的应用
- RSA和AES加密解密