VB: Modifier l'heure de l'ordinateur

Résolu/Fermé

Anonyme209 Messages postés 678 Date d'inscription samedi 6 octobre 2012 Statut Membre Dernière intervention 22 décembre 2020 - Modifié par Anonyme209 le 26/11/2014 à 18:34
Anonyme209 Messages postés 678 Date d'inscription samedi 6 octobre 2012 Statut Membre Dernière intervention 22 décembre 2020 - 30 nov. 2014 à 16:20

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.

A voir également:

VB: Modifier l'heure de l'ordinateur
Vb cable - Télécharger - Audio & Musique
Vb - Télécharger - Langages
Vb editor - Télécharger - Langages
Vb runtime - Télécharger - Divers Utilitaires
Vb 2008 - Télécharger - Langages

13 réponses

Réponse 1 / 13

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
26 nov. 2014 à 19:58

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

Réponse 2 / 13

Anonyme209 Messages postés 678 Date d'inscription samedi 6 octobre 2012 Statut Membre Dernière intervention 22 décembre 2020 15
Modifié par Anonyme209 le 27/11/2014 à 09:51

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.

Réponse 3 / 13

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
27 nov. 2014 à 11:15

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

Réponse 4 / 13

Anonyme209 Messages postés 678 Date d'inscription samedi 6 octobre 2012 Statut Membre Dernière intervention 22 décembre 2020 15
Modifié par Anonyme209 le 27/11/2014 à 16:03

  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

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
27 nov. 2014 à 21:20

Et avec Label1.Caption au lieu de Label4.Text ?

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 13

Anonyme209 Messages postés 678 Date d'inscription samedi 6 octobre 2012 Statut Membre Dernière intervention 22 décembre 2020 15
Modifié par Anonyme209 le 28/11/2014 à 15:55

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

Réponse 6 / 13

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
28 nov. 2014 à 16:16

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

Réponse 7 / 13

Anonyme209 Messages postés 678 Date d'inscription samedi 6 octobre 2012 Statut Membre Dernière intervention 22 décembre 2020 15
28 nov. 2014 à 20:05

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.

Réponse 8 / 13

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
28 nov. 2014 à 20:46

Et comme cela :

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

Réponse 9 / 13

Anonyme209 Messages postés 678 Date d'inscription samedi 6 octobre 2012 Statut Membre Dernière intervention 22 décembre 2020 15
29 nov. 2014 à 13:52

        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.

Réponse 10 / 13

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
30 nov. 2014 à 11:11

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

Réponse 11 / 13

Anonyme209 Messages postés 678 Date d'inscription samedi 6 octobre 2012 Statut Membre Dernière intervention 22 décembre 2020 15
Modifié par Anonyme209 le 30/11/2014 à 12:24

Bonjour,

ça marche pour la date, mais l'heure n'est pas modifiée.

Today = CDate(Label1.Text)

Réponse 12 / 13

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
30 nov. 2014 à 14:11

Essaie ceci:

 TimeOfDay = #10:15:00 PM#

Réponse 13 / 13

Anonyme209 Messages postés 678 Date d'inscription samedi 6 octobre 2012 Statut Membre Dernière intervention 22 décembre 2020 15
30 nov. 2014 à 16:20

Sujet résolu:

Today = CDate(MaskedTextBox2.Text)
TimeOfDay = CDate(MaskedTextBox2.Text)

Merci à tous pour votre aide.

Discussions similaires

Impossibilité enregistrement macro Excel 2010

fonction substring en vb

virus Win32/VB.DG

Visual Basic avec Visual Studio Code

Enregistrement Fichier Excel avec des Macros

Discussions similaires

Newsletters