Ver Mensaje Individual
  #8 (permalink)  
Antiguo 19/09/2005, 15:31
Avatar de David
David
Moderador
 
Fecha de Ingreso: abril-2005
Ubicación: In this planet
Mensajes: 15.720
Antigüedad: 19 años
Puntos: 839
De acuerdo

Cita:
Iniciado por aldo1982
okis gracias david, sino lo encontras avisade todas formas asi busco por otro lado

salu2
Encontré
Código:
 
Private Declare Function SetSystemTime Lib "kernel32.dll" (lpSystemTime As SYSTEMTIME) As Long
Private 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
Private Sub 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
End Sub
Nos ...
__________________
Por favor, antes de preguntar, revisa la Guía para realizar preguntas.