Format de date et d'heure

Version imprimable

30/07/2012, 10h44
hwarangouze

Format de date et d'heure

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 !
30/07/2012, 16h47
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 ?

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

Code:

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"

31/07/2012, 09h41
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 !
31/07/2012, 10h57
hackoofr

:salut:
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 :mouarf:

A la volée, on peut faire ceci :

Code:

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

31/07/2012, 16h16
hwarangouze

Merci bien pour vos réponses !
Effectivement ta réponse fonctionne L_autodidacte, je l'ai réalisé sans même avoir lu ta réponse ^^

Passé en tant que Résolu