VB: Modificar la hora del ordenador

Resuelto
Anonyme209 Mensajes publicados 761 Estado Miembro -  
Anonyme209 Mensajes publicados 761 Estado Miembro -
Hola,
estoy buscando cómo modificar la hora del ordenador en vb.net.

Por ejemplo, mi Label1.Text = "25/04/2014 14:45:59"
He encontrado:
DateString = CDate(Format(CDate(Label1.Text), "dd/MM/yyyy")) TimeString = CDate(Format(CDate(Label1.Text), "HH:mm:ss"))

Pero aparece un mensaje de error que dice que no es una fecha válida...
(La conversión de la cadena "25/04/2014" al tipo 'Date' no es válida.)
Sin embargo, no veo por qué no es una fecha válida.

Gracias por tu ayuda.

13 respuestas

Patrice33740 Mensajes publicados 8400 Fecha de registro   Estado Miembro Última intervención   1 783
 
En VBA, esto funciona:
Private Sub CommandButton1_Click() Dim Datestring As Date Dim Timestring As Date Label1.Caption = "27/04/2014 14:52:02" Datestring = CDate(Format(CDate(Label1.Caption), "dd/MM/yyyy")) Timestring = CDate(Format(CDate(Label1.Caption), "HH:mm:ss")) MsgBox Datestring & " " & Timestring End Sub 


--
Atentamente
Patrice
0
Anonyme209 Mensajes publicados 761 Estado Miembro 19
 
Label1.Text = fecha y hora de Internet

Dim Datestring1 As Date Dim Timestring1 As Date Datestring1 = CDate(Format(CDate(Label1.Text), "dd/MM/yyyy")) Timestring1 = CDate(Format(CDate(Label1.Text), "HH:mm:ss")) DateString = Datestring1 TimeString = Timestring1


Línea 5:
La conversión de la cadena "27/11/2014" al tipo 'Date' no es válida.
0
michel_m Mensajes publicados 18903 Fecha de registro   Estado Colaborador Última intervención   3 320
 
Hola

Transformas en string (formato) y pones en fecha (cdate) 25/4/14 no es una fecha (notación inglesa) ya que está traducido al formato m/D:Y es decir, el 4/25/14
--
Michel
0
Anonyme209 Mensajes publicados 761 Estado Miembro 19
 
 Dim Datestring1 As Date Dim Timestring1 As Date Datestring1 = CDate(Format(CDate(Label4.Text), "d/M/yyyy")) Timestring1 = CDate(Format(CDate(Label4.Text), "H:m:s")) DateString = Datestring1 TimeString = Timestring1


Ligne 3:
La conversion de la chaîne "27/11/2014" en type 'Date' n'est pas valide.

MsgBox(IsDate(Datestring1))

Vrai
0
Patrice33740 Mensajes publicados 8400 Fecha de registro   Estado Miembro Última intervención   1 783
 
¿Y con Label1.Caption en lugar de Label4.Text?
0
Anonyme209 Mensajes publicados 761 Estado Miembro 19
 
En VB.NET, no existe la propiedad 'Caption' (al menos para las etiquetas, cuadros de texto...).
0
cs_Le Pivert Mensajes publicados 8437 Estado Colaborador 730
 
Hola,

 Dim nuevafecha As New System.DateTime(2014, 11, 25, 22, 15, 0) Label1.Text = nuevafecha


a consultar para las fechas

https://plasserre.developpez.com/cours/vb-net/?page=langage-vb8#LV-AB-2

--
@+ El Pivert
0
Anonyme209 Mensajes publicados 761 Estado Miembro 19
 
Hola,

Dim nouvelledate As New System.DateTime(2014, 11, 25, 22, 15, 0) DateString = nouvelledate


Línea 2:
La conversión de la cadena "25/11/2014 22:15:00" al tipo 'Date' no es válida.
0
cs_Le Pivert Mensajes publicados 8437 Estado Colaborador 730
 


 Dim Datestring As Date Dim nouvelledate As New System.DateTime(2014, 11, 25, 22, 15, 0) Datestring = nouvelledate MsgBox(DateString)


--
@+ El Pájaro Carpintero
0
Anonyme209 Mensajes publicados 761 Estado Miembro 19
 
 Dim Datestring As Date Dim nouvelledate As New System.DateTime(2014, 11, 25, 22, 15, 0) Datestring = nouvelledate MsgBox(Datestring)


La MsgBox retorna "25/11/2014 22:15:00"
pero la fecha y la hora no se modifican.
0
cs_Le Pivert Mensajes publicados 8437 Estado Colaborador 730
 
Aquí está tu solicitud, ¡creo que he respondido!

Pero aparece un mensaje de error que dice que no es una fecha válida...
(La conversión de la cadena "25/04/2014" al tipo 'Fecha' no es válida.)
Sin embargo, no veo por qué no es una fecha válida


pero la fecha y la hora no se modifican.

Naturalmente, no veo ningún código que lo haga.

En cuanto a cambiar la fecha y la hora del PC, mira esto:

https://www.vbforums.com/showthread.php?584028-how-to-PROPERLY-change-SetLocaltime

'puedes usar la palabra clave hoy:

Hoy = #1/1/2005#

'tu programa deberá tener privilegios de administrador para modificar la fecha del sistema

--
@+ El Pico
0
Anonyme209 Mensajes publicados 761 Estado Miembro 19
 
Hola,

funciona para la fecha, pero la hora no está modificada.

Hoy = CDate(Label1.Text)
0
cs_Le Pivert Mensajes publicados 8437 Estado Colaborador 730
 


 HoraDelDía = #10:15:00 PM#


--
@+ El Pájaro Carpintero
0
Anonyme209 Mensajes publicados 761 Estado Miembro 19
 
Tema resuelto:

Hoy = CDate(MaskedTextBox2.Text) HoraDelDía = CDate(MaskedTextBox2.Text)


Gracias a todos por su ayuda.
0