GetLocalTime

Declaración:
Declare Sub GetLocalTime Lib "kernel32" Alias "GetLocalTime" (lpSystemTime As SYSTEMTIME)
Descripción:
La función GetLocalTime devuelve un valor que contiene la Fecha y Hora de la Maquina.
Parámetros:
lpSystemTime As SYSTEMTIME
Aquí se indica la variable de tipo SYSTEMTIME, que contedra la fecha y hora una vez llamada la función.
Valor de retorno:
No hay valor de retorno.
Uso:
Dim FechaHora As SYSTEMTIME
GetLocalTime FechaHora
'Muesta un mensaje con la fecha actual
MsgBox "La fecha actual es: " & FechaHora.wDay & "/" & FechaHora.wMonth & "/" & FechaHora.wYear
'Muestra un mensaje con la hora actual
MsgBox "La hora actual es: " & FechaHora.wHour & ":" & FechaHora.wMinute & ":" & FechaHora.wSecond