codice:
Stucture SYSTEMTIME 
Public wYear As Int16 
Public wMonth As Int16 
Public wDayOfWeek As Int16 
Public wDay As Int16 
Public wHour As Int16 
Public wMinute As Int16 
Public wSecond As Int16 
Public wMilliseconds As Int16 
End Structure 

Declare Function SetSystemTime Lib "kernel32.dll" (ByRef lpSystemTime As 
SYSTEMTIME) As Int32
Con questa fai quello che vuoi senza preoccuparti del formato