[الطالب]

سلام

احتمال كبير يكون هو هذا الكود

كود :

' 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

موفقين