Ver originales (Francés)

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

  1.
    Patrice33740 Mensajes publicados 8400 Fecha de registro   Estado Miembro Última intervención   1 785
     
    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
  2. 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
  3. 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
  4. 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
    1. Patrice33740 Mensajes publicados 8400 Fecha de registro   Estado Miembro Última intervención   1 785
       
      ¿Y con Label1.Caption en lugar de Label4.Text?
      0
  6. Anonyme209 Mensajes publicados 761 Estado Miembro 19
     
    En VB.NET, no existe la propiedad 'Caption' (al menos para las etiquetas, cuadros de texto...).
    0
  8. 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
  9. 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
  10. 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
  11. 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
  12. Anonyme209 Mensajes publicados 761 Estado Miembro 19
     
    Hola,

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

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


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


    --
    @+ El Pájaro Carpintero
    0
  14. 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