الحصول على الوقت و التاريخ - نسخة قابلة للطباعة

كود :

   Public Shared Function GetNistTime() As DateTime

        Dim dateTime As DateTime = DateTime.MinValue

        Dim request As HttpWebRequest = CType(WebRequest.Create("http://nist.time.gov/actualtime.cgi?lzbc=siqm9b"), HttpWebRequest)

        request.Method = "GET"

        request.Accept = "text/html, application/xhtml+xml, */*"

        request.UserAgent = "Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; Trident/6.0)"

        request.ContentType = "application/x-www-form-urlencoded"

        request.CachePolicy = New RequestCachePolicy(RequestCacheLevel.NoCacheNoStore)

        Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)

        If response.StatusCode = HttpStatusCode.OK Then

            Dim stream As StreamReader = New StreamReader(response.GetResponseStream())

            Dim html As String = stream.ReadToEnd()

            Dim time As String = Regex.Match(html, "(?<=\btime="")[^""]*").Value

            Dim milliseconds As Double = Convert.ToInt64(time) / 1000

            dateTime = New DateTime(1970, 1, 1).AddMilliseconds(milliseconds).ToLocalTime()

        End If



        Return dateTime

    End Function

PHP كود :

Public Shared Function GetNistTime() As DateTime
    Dim client As New Net.Sockets.TcpClient("time.nist.gov", 13)
    Dim streamReader As New IO.StreamReader(client.GetStream())
    Dim response As String = streamReader.ReadToEnd
    Dim utcDateTimeString As String = response.Substring(7, 17)
    Dim localDateTime As DateTime =
        DateTime.ParseExact(utcDateTimeString, "yy-MM-dd HH:mm:ss",
                            Globalization.CultureInfo.InvariantCulture,
                            Globalization.DateTimeStyles.AssumeUniversal)
    Return localDateTime
End Function 