Discussion :

[hwarangouze]

Bonjour à tous,

Je me tourne vers vous aujourd'hui afin d'obtenir un petit renseignement ...
Voila dans mon script VBS, j'ai une variable strTime qui contient une date et une heure du genre : 20120730115338.796191-000

Pour vous expliquer, la date représente le 30/07/2012 à 11:53:38 .

Tout d'abord je voulais savoir comment faire pour supprimer le reste de la chaîne (en l'occurrence aprés le 5338)

D'autre part j'aimerais récuperer cette première partie de date pour la convertir au format JJ:MM:YYYY HH:MM:SS

Quelqu'un peut-il m'aider siouplez ?

Merci d'avance !

[hwarangouze]

Bon mon problème avance petit à petit...

Maintenant tout ce dont j'ai besoin c'est de passer du format de date / heure YYYYMMDDHHMMSS en YYYY-MM-DD HH:MM:SS ...

Any idea ?

[hackoofr]

La réponse se trouve dans la Comment récupérer la date et l'heure courante ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
MsgBox Day(Now)& "-"& Month(Now)& "-" & Year(Now)& " "& Hour(Now)& ":"& Minute(Now)& ":"& Second(Now),64,"Format date heure"
 
MsgBox "la date du jour est : " &Day(Now)& "-"& Month(Now)& "-" & Year(Now) &vbcr&_
 "L'heure maintenant est  " & Hour(Now)& ":"& Minute(Now)& ":"& Second(Now),64,"Format date heure"

[hwarangouze]

Merci d'avoir répondu,

Cependant ta réponse ne résout pas mon problème ^^
Peut être me suis-je mal exprimé ... En réalité ce n'est pas l'heure actuelle dont j'ai besoin, en fait je récupère une valeur du style 20120730115338 Qui n'est pas l'heure actuelle mais celle qui représente l'ouverture d'une session dans un fichier de log. Utiliser "Now" serait donc inutile ^^ Tout ce dont j'ai besoin c'est de passer de cette valeur à 30/07/2012 11:53:38 !

[hackoofr]

Donc il va falloir regarder dans votre script et modifier la façon de récupérer la date et l'heure dans votre variable strTime

[l_autodidacte]

A la volée, on peut faire ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Dim Temps
 
Temps = 20120730115338
MsgBox ModifTemps(Temps)
'========================
Function ModifTemps(strTemps)
  ModifTemps= Mid(strTemps,7,2) & "/" & Mid(strTemps,5,2) & "/" & Mid(strTemps,1,4) & " " &  _
              Mid(strTemps,9,2) & ":"  & Mid(strTemps,11,2) & ":" & Right(strTemps,2)
End Function