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