18-06-15, 06:57 PM
سلام
احتمال كبير يكون هو هذا الكود
موفقين
احتمال كبير يكون هو هذا الكود
كود :
' http://www.unixtimestamp.com/
'http://stackoverflow.com/questions/13108574/converting-datetime-to-number-of-seconds-in-vb-net
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(FromUnix(540378875, True))
End Sub
Public Function FromUnix(ByVal seconds As Integer, ByVal local As Boolean) As DateTime
Dim dt = Epoch.AddSeconds(seconds)
If local Then dt = dt.ToLocalTime
Return dt
End Function
Public Function ToUnix(ByVal dt As DateTime) As Integer
If dt.Kind = DateTimeKind.Local Then dt = dt.ToUniversalTime
Return CInt((dt - Epoch).TotalSeconds)
End Function
Public ReadOnly Property Epoch() As DateTime
Get
Return New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc)
End Get
End Propertyموفقين
متغيب
