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

'---------------------------------------------------------------------------------------
' 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

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