VB: Modifier l'heure de l'ordinateur

Résolu
Anonyme209 Messages postés 761 Statut Membre -  
Anonyme209 Messages postés 761 Statut Membre -
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.

13 réponses

  1.
    Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 784
     
    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

    0
  2. Anonyme209 Messages postés 761 Statut Membre 19
     
    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.
    0
  3. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    0
  4. Anonyme209 Messages postés 761 Statut Membre 19
     
      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
    0
    1. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 784
       
      Et avec Label1.Caption au lieu de Label4.Text ?
      0

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

    Posez votre question
  6. Anonyme209 Messages postés 761 Statut Membre 19
     
    En VB.NET, il n'y a pas la propriété 'Caption' (du moins pour les labels, zones de texte...)
    0
  8. Anonyme209 Messages postés 761 Statut Membre 19
     
    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.
    0
  9. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Et comme cela : 

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

    0
  10. Anonyme209 Messages postés 761 Statut Membre 19
     
            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.
    0
  11. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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
    0
  12. Anonyme209 Messages postés 761 Statut Membre 19
     
    Bonjour,

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

    Today = CDate(Label1.Text)
    0
  13. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Essaie ceci: 

     TimeOfDay = #10:15:00 PM#

    0
  14. Anonyme209 Messages postés 761 Statut Membre 19
     
    Sujet résolu: 

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


    Merci à tous pour votre aide.
    0

Discussions similaires

[Visual Basic] MSFlexGrid
klowlead -
wokerm -

9 réponses
MSFLEXGRID avec VB6
beaf -
msflexgrid to bd -

5 réponses
comment ajouter le contrôle MSFlexGrid??
lindap -
yannel777 -

3 réponses
Vider une listbox en VB.NET
Lh -
arion320 -

8 réponses
Sauver MSFlex Grid VB6
jctgt -
jctgt -

7 réponses