[SRC] Obtener la fecha real !

[Karcrack]

Bueno, estaba aburrido y decidi hacer este code, que lo que hace es conectarse a una web y obtener la fecha de hoy

Util para cuando por ejemplo quieres hacer una bomba logica, y no sabes si fiarte de la fecha del PC
El inconveniente es que si no hay Internet poco haces , pero eso se arregla con un If

Esto es solo la idea, vosotros ya la desarrollais

Código (vb) [Seleccionar] Expandir

'---------------------------------------------------------------------------------------
' Module    : mGetRealDay
' Author    : Karcrack
' DateTime  : 20/01/2009  17:15
' Purpose   : Obtener la fecha actual...
'---------------------------------------------------------------------------------------

Option Explicit

Public Function GetDate(Optional ByVal sFormat As String = "DD-MM-YYYY") As String
    Dim oHttp       As Object 'New WinHttp.WinHttpRequest
    Dim sData       As String
   
    'Cargamos el WinHttp
    Set oHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    With oHttp
        'Establecemos el metodo de conexion y la URL
        .Open "GET", "http://www.larazon.es/"
        'Enviamos la peticion
        .Send
        'Obtenemos el resultado
        sData = .ResponseText
    End With
    'Descargamos el WinHttp
    Set oHttp = Nothing
    'Obtenemos la fecha
    sData = Split(Split(sData, Replace$("<p class='fecha_actualizacion'><span>", "'", Chr$(34)))(1), " </span>")(0)
    'Y le damos formato =D
    GetDate = Format$(sData, sFormat)
End Function

Saludos

[& eDu &]

Te lo curraste bastante... creo que es un poco más fácil.

¿Esa hora es solo de españa o depende de donde entras?

[Karcrack]

Te lo curraste bastante... creo que es un poco más fácil.

¿Esa hora es solo de españa o depende de donde entras?

En realidad esta app solo coje la fecha...

Pero bueno, ese periodico (La Raz0n) es un periodico español...

Si quisieras sacar una hora internacional solo es cuestion de navegar un rato

Saludos