problema al cambiar la hora del sistema(FAQ)

[antonio2005pe]

Iniciado por David el Grande

Código:

 
Private Declare Function SetSystemTime Lib "kernel32.dll" (lpSystemTime As SYSTEMTIME) As Long
Public Type SYSTEMTIME 
wYear As Integer
		 wMonth As Integer
		 wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Public Function CambiarHora(ByVal Hora As Integer, ByVal Minutos As Integer, Byval Segundos As Integer)
Dim Ahora As SYSTEMTIME 
Ahora.wYear = Year(Date)
Ahora.wMonth = Month(Date)
Ahora.wDay = Day(Date)
Ahora.wHour = Hora
Ahora.wMinute = Minutos
Ahora.wSecond = Segundos
CambiarHora = SetSystemTime(Ahora)
End Function
Public Function CambiarFecha(Byval Año As Integer, Byval Mes As Integer, Byval Dia As Integer)
Dim Hoy As SYSTEMTIME 
Hoy.wYear = Año
Hoy.wMonth = Mes
Hoy.wDay = Dia
Hoy.wHour = Hour(Time)
Hoy.wMinute = Minute(Time)
Hoy.wSecond = Second(Time)
CambiarFecha = SetSystemTime(Hoy)
End Function

Hola encontre esto en las FAQ pero no se que pasa la hora no cambia solo cambia los minutos y segundos :S puse el siguiente codigo para llamar:
x=CambiarHora(5,31,10)
y no se k es lo k pasa :(

[aldo1982]

es sensillo amigo hace asi

pones un datapiker (calculo ke sabras lo ke es,bue e un control de fechas...en style le config el formato de fecha..es como un calendario)

luego en un boton pones

date = datapiker.value

'para ke en el systema te kede la fecha ke keires, tenes ke seleccionar la fecha del datapiker con un par de clicks

salu2

[antonio2005pe]

Iniciado por aldo1982

es sensillo amigo hace asi

pones un datapiker (calculo ke sabras lo ke es,bue e un control de fechas...en style le config el formato de fecha..es como un calendario)

luego en un boton pones


salu2

puse esto y no me cambia la hora no se porque :(...
SetSystemTime(dtpicker.value)

[aldo1982]

Iniciado por antonio2005pe

puse esto y no me cambia la hora no se porque :(...
SetSystemTime(dtpicker.value)

data = dtpicker.value