Windows - Algun ejemplo de GetSystemDate

   
Vista:

Algun ejemplo de GetSystemDate

Publicado por Daniel (16 intervenciones) el 20/11/2008 02:50:43
Hola
Alguien puede ayudarme posteando algún ejemplo de esta sentencia,
o donde puedo encontrar alguna documentación.-

Desde ya muchas gracias.-
Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Algun ejemplo de GetSystemDate

Publicado por igor (8 intervenciones) el 22/11/2008 15:05:29
Dim T As SYSTEMTIME
Dim Semana As String
Dim Fecha As String
GetSystemTime T
Select Case T.wDayOfWeek
Case 1
Semana = "Lunes "
Case 2
Semana = "Martes "
Case 3
Semana = "Miércoles "
Case 4
Semana = "Jueves "
Case 5
Semana = "Viernes "
Case 6
Semana = "Sábado "
Case 7
Semana = "Domingo"
End Select
Fecha = Semana & _
Format$(T.wDay, "00") & "" & _
Format$(T.wMonth, "00") & "" & _
Format$(T.wYear, "0000") & " " & _
Format$(T.wHour, "00") & ":" & _
Format$(T.wMinute, "00") & ":" & _
Format$(T.wSecond, "00") & "," & _
Format$(T.wMilliseconds, "000")
MsgBox Fecha
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar