Дата и время из интернета

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Label1.Text = GetDateTime().ToString
    End Sub
 
 
    Public Shared Function GetDateTime() As DateTime
        Dim dateTime As DateTime = Date.MinValue
        Dim request As System.Net.HttpWebRequest = DirectCast(System.Net.WebRequest.Create("http://www.microsoft.com"), System.Net.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 System.Net.Cache.RequestCachePolicy(System.Net.Cache.RequestCacheLevel.NoCacheNoStore)
        Dim response As System.Net.HttpWebResponse = DirectCast(request.GetResponse(), System.Net.HttpWebResponse)
        If response.StatusCode = System.Net.HttpStatusCode.OK Then
            Dim todaysDates As String = response.Headers("date")
            dateTime = Date.ParseExact(todaysDates, "ddd, dd MMM yyyy HH:mm:ss 'GMT'", System.Globalization.CultureInfo.InvariantCulture.DateTimeFormat, System.Globalization.DateTimeStyles.AssumeUniversal)
        End If
 
        Return dateTime
    End Function

Function GetNetworkTime() As DateTime
    Const ntpServer As String = "pool.ntp.org"
    Dim ntpData = New Byte(47) {}
    ntpData(0) = &H1B
    Dim addresses = Dns.GetHostEntry(ntpServer).AddressList
    Dim ipEndPoint = New IPEndPoint(addresses(0), 123)
    Dim socket = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
    socket.Connect(ipEndPoint)
    socket.Send(ntpData)
    socket.Receive(ntpData)
    socket.Close()
    Dim intPart As ULong = CLng(ntpData(40)) << 24 Or CLng(ntpData(41)) << 16 Or CLng(ntpData(42)) << 8 Or CLng(ntpData(43))
    Dim fractPart As ULong = CLng(ntpData(44)) << 24 Or CLng(ntpData(45)) << 16 Or CLng(ntpData(46)) << 8 Or CLng(ntpData(47))
    Dim milliseconds As Long = intPart * 1000 + ((fractPart * 1000) / &H100000000L)
    Return New DateTime(1900, 1, 1).AddMilliseconds(milliseconds)
End Function

Dim dt As DateTime = GetNetworkTime()
Dim year As Integer = dt.Year
Dim month As Integer = dt.Month
Dim day As Integer = dt.Day