Los moderadores, MVP y administradores podrán seguir editando, respondiendo o creando nuevos mensajes

Hola buenas!

Puuues eso, me gustaría saber como se puede obtener la fecha actual de internet desde VB.NET.

Saludos y muchas gracias!

He buscado un poquito y he encontrado una posible solucion, te cuento:

Cargas una pagina web, en este ejemplo he cargado "http://quehoraesen.net", en concreto para madrid(tu la puedes modificar). Una vez cargada la metes en un string y busco donde esta almacenada la hora en esta pagina esta en

<div id="horaexacta">12:03:20</div>

, ahora busco la cadena "horaexacta" (Dim posicion As Integer = InStr(s, "horaexacta")), esto me da la posicion de inicio de esta palabra, ahora le sumo a su posicion el tamaño de la palabra mas 2 posiciones una por las comillas y otra por el simbolo mayor (horaexacta">) y hago un substring de la cadena desde la posicion deseada mas 8 que son los caracteres de la hora (Dim hora As String = s.Substring(posicion + 11, 8 ))


Dim MyWebClient As New System.Net.WebClient
Dim ArregloBytes() As Byte
ArregloBytes = MyWebClient.DownloadData("http://quehoraesen.net/madrid")
Dim oUTF8 As New Text.UTF8Encoding
Dim s As String = oUTF8.GetString(ArregloBytes)
Dim posicion As Integer = InStr(s, "horaexacta")
Dim hora As String = s.Substring(posicion + 11, 8 )

a mi me funciona, ahora decide si te sirve o no.

[Editado: junior80, 30/05/2011 10:18:07]
[junior80, 30/05/2011 10:19:41]
[junior80, 30/05/2011 10:20:16]
[junior80, 30/05/2011 13:11:05]

si mi respuesta te sirve marcala por favor!!

DPM!!!

Al final he hecho esto para obtener la fecha:

Private Function ObtenerFechaInternet() As Date

       Dim MyWebClient As New System.Net.WebClient
       Dim ArregloBytes() As Byte
       ArregloBytes = MyWebClient.DownloadData("<a
            href='http://quehoraesen.net/madrid'
            target='externo'>http://quehoraesen.net/madrid</a>")
       Dim oUTF8 As New System.Text.UTF8Encoding
       Dim s As String = oUTF8.GetString(ArregloBytes)
       Dim posicion As Integer = InStr(s, "fechaexacta")
       Dim paraFecha() As String =
            Split(s.Substring(posicion + 12, 40), " ")
       Dim cadena As
            String = paraFecha(1).ToString + "/" + paraFecha(3).ToString + "/" + paraFecha(5).Substring(0, 4)

       Return CDate(cadena).ToShortDateString

   End Function

jaja, me acabo de dar cuenta de que yo te sacaba la hora en vez de la fecha, pero bueno lo has solucionado muy bien.