VB: Modifier l'heure de l'ordinateur Résolu/Fermé

Question

Bonjour,
je cherche comment modifier l'heure de l'ordinateur en vb.net.

Par exemple, mon Label1.Text = "25/04/2014 14:45:59"
J'ai trouvé:
DateString = CDate(Format(CDate(Label1.Text), "dd/MM/yyyy"))
TimeString = CDate(Format(CDate(Label1.Text), "HH:mm:ss"))
Mais un message d'erreur me disant que ce n'est pas une date valide s'affiche...
(Conversion from string "25/04/2014" to type 'Date' is not valid.)
Pourtant, je ne vois pas en quoi ce n'est pas une date valide

Merci de votre aide.

Patrice33740 · Answer

En VBA, ceci fonctionne :
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

Anonyme209 · Answer

Label1.Text = date et heure d'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

Ligne 5:
Conversion from string "27/11/2014" to type 'Date' is not valid.

michel_m · Answer

Bonjour

Tu transformes en string (format) et tu remet en date (cdate) 25/4/14 n'est pas une date (notation anglaise) car c'est traduit au format m/D:Y soit le 4/25/14

Anonyme209 · Answer

Dim Datestring1 As Date
Dim Timestring1 As Date
Datestring1 = CDate(Format(CDate(Label4.Text), "M/d/y"))
Timestring1 = CDate(Format(CDate(Label4.Text), "H:m:s"))
DateString = Datestring1
TimeString = Timestring1

Ligne 3:
Conversion from string "11/27/14" to type 'Date' is not valid.
  Dim Datestring1 As Date
Dim Timestring1 As Date
Datestring1 = CDate(Format(CDate(Label4.Text), "M/d/yyyy"))
Timestring1 = CDate(Format(CDate(Label4.Text), "H:m:s"))
DateString = Datestring1
TimeString = Timestring1

Ligne 3:
Conversion from string "11/27/2014" to type 'Date' is not valid.


MsgBox(IsDate(Datestring1))
True

Anonyme209 · Answer

En VB.NET, il n'y a pas la propriété 'Caption' (du moins pour les labels, zones de texte...)

cs_Le Pivert · Answer

Bonjour,

 Dim nouvelledate As New System.DateTime(2014, 11, 25, 22, 15, 0)
        Label1.Text = nouvelledate 

a consulter pour les dates

https://plasserre.developpez.com/cours/vb-net/?page=langage-vb8#LV-AB-2

Anonyme209 · Answer

Bonjour,

Dim nouvelledate As New System.DateTime(2014, 11, 25, 22, 15, 0)
DateString = nouvelledate

Ligne 2:
Conversion from string "25/11/2014 22:15:00" to type 'Date' is not valid.

cs_Le Pivert · Answer

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

Anonyme209 · Answer

Dim Datestring As Date
        Dim nouvelledate As New System.DateTime(2014, 11, 25, 22, 15, 0)
        Datestring = nouvelledate
        MsgBox(Datestring)

La MsgBox retourne "25/11/2014 22:15:00"
mais la date et l'heure ne sont pas modifiées.

cs_Le Pivert · Answer

Voici ta demande, je crois y avoir répondu!

Mais un message d'erreur me disant que ce n'est pas une date valide s'affiche... 
(Conversion from string "25/04/2014" to type 'Date' is not valid.) 
Pourtant, je ne vois pas en quoi ce n'est pas une date valide 



mais la date et l'heure ne sont pas modifiées.

Naturellement, je ne vois aucun code qui le fait!

Pour ce qui est de changer la date et l'heure du pc, voir ceci:

 https://www.vbforums.com/showthread.php?584028-how-to-PROPERLY-change-SetLocaltime

        'vous pouvez utiliser le mot clé aujourd'hui:

        Today = #1/1/2005#

        'votre programme devra avoir le privilège d'administrateur pour modifier la date du système

Anonyme209 · Answer

Bonjour,

ça marche pour la date, mais l'heure n'est pas modifiée.

Today = CDate(Label1.Text)

cs_Le Pivert · Answer

Essaie ceci:

 TimeOfDay = #10:15:00 PM#

Anonyme209 · Answer

Sujet résolu: 

Today = CDate(MaskedTextBox2.Text)
TimeOfDay = CDate(MaskedTextBox2.Text)

Merci à tous pour votre aide.

VB: Modifier l'heure de l'ordinateur

13 réponses

Discussions similaires