【源码】Fans.net的函数：Mysql数据中的时间戳转换为Access标准时间-FROM_UNIXTIME

fan0217

1. ''' <sumary>
   
2.     ''' 把时间戳转换为标准时间
   
3.     ''' </sumary>
   
4.     ''' <param name="time">要转换的UNIX时间戳</param>
   
5.     ''' <param name="timeZone">该时间戳对应的时区</param>
   
6.     Public Shared Function FromUnixTime(time As Double, timeZone As Integer) As DateTime
   
7.         Dim dtmStart As DateTime = New DateTime(1970, 1, 1, 0, 0, 0)
   
8.         Dim t As DateTime = DateAdd(DateInterval.Second, CDbl(time), dtmStart)
   
9.         Return DateAdd(DateInterval.Hour, timeZone, t)
   
10.     End Function

复制代码

VB.NET

fan0217

admin 发表于 2015-4-13 11:33
vb.net 好像更精简些

是的，语法上比VB更精简。