VB: Récupérer l'heure sur un serveur de temps.

 Dim s As String = texte
   'manipulation des chaines de caractères    
        Dim separateur As Char = CChar("T")
        Dim nom() As String
        nom = s.Split(separateur)
        lbldate.Text = nom(0)

 If  lbldate.Text = 26/10/2014 Then'il faudra voir le format Date et corriger si besoin
  adress = "http://www.Heure.com/heure-fr.php?timezone=1&size=36"
End If

Option Strict On
Public Class Form1
    'http://codes-sources.commentcamarche.net/source/24735-calcul-du-decalage-heure-ete-hiver-en-fonction-d-une-date
    Dim seuilete As Date
    Dim seuilhiver As Date
    Dim dteData As Date
    Dim iddate As String
    Dim jour As Integer
    Dim uneDateC As Decimal 'nombre jour depuis début année
    Dim seuileteC As Decimal 'jour debut année heure ete
    Dim seuilhiverC As Decimal 'jour debut année heure d'hiver 
    Dim DateS As String
    Dim DateD As DateTime
    Dim Annee As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'mis à jour des dates
        dteData = Now 'today
        Annee = (dteData.ToString("yyyy")) 'année en cours
        'uneDate = CDate(TextBox1.Text)
        iddate = "25/03/" & Annee & " 02:00:00"
        'on est le 25 mars de la même année
        seuilete = CDate(iddate)
        jour = Weekday(seuilete, vbMonday)
        'combien de jours avant d'atteindre le prochain dimanche?
        iddate = (32 - jour) & "/03/" & Annee & " 02:00:00"
        seuilete = CDate(iddate)
        Label1.Text = "heure d'ete: " & Format(seuilete, "dddd d MMM yyyy")
        '----------------------------------------------------------------------
        'idem mais pour l'heure d'hiver
        'on est le 25 Octobre de la même année
        iddate = "25/10/" & Annee & " 02:00:00"
        seuilhiver = CDate(iddate)
        jour = Weekday(seuilhiver, vbMonday)
        'combien de jours avant d'atteindre le prochain dimanche?
        iddate = (32 - jour) & "/10/" & Annee & " 02:00:00"
        seuilhiver = CDate(iddate)
        Label2.Text = "heure d'hiver: " & Format(seuilhiver, "dddd d MMM yyyy")
        '--------------------------------------------------------------------
        'une petite comparaison
        DateS = ("01/01/" & Annee) 'Saisir une date : on récupère une string
        DateD = CDate(DateS) 'Conversion de la string en DateTime
        uneDateC = DateDiff(DateInterval.Day, DateD, Now)
        MsgBox("Aujourd'hui " & uneDateC & " jours depuis le début de l'année")
        seuileteC = DateDiff(DateInterval.Day, DateD, seuilete) 'différence en jours à partir debut d'année a l'heure d'été
        MsgBox("L'heure d'été est à " & seuileteC & " jours depuis le début de l'année")
        seuilhiverC = DateDiff(DateInterval.Day, DateD, seuilhiver) 'différence en jours  heure d'hiver à la fin de l'année
        MsgBox("L'heure d'hiver est à " & seuilhiverC & " jours depuis le début de l'année")
        If (seuileteC < uneDateC) And (uneDateC < seuilhiverC) Then
            MsgBox("Nous sommes en heure été")
        Else
            MsgBox("Nous sommes en heure hiver")
        End If
    End Sub
End Class