Bueno, estaba aburrido y decidi hacer este code, que lo que hace es conectarse a una web y obtener la fecha de hoy ;D
Util para cuando por ejemplo quieres hacer una bomba logica, y no sabes si fiarte de la fecha del PC :xD
El inconveniente es que si no hay Internet poco haces :xD, pero eso se arregla con un If ;)
Esto es solo la idea, vosotros ya la desarrollais ;D ;D
'---------------------------------------------------------------------------------------
' 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 ;D
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?
Cita de: & eDu & en 27 Enero 2009, 20:39 PM
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 ;D
Saludos ;)