Formats d’affichages de la date et de l’heure actuelle du système en vbscript

La variable globale « % CurrentDate% » de PowerDesigner retourne la date et l’heure actuelles du système en fonction des paramètres locaux du PC.

Je vous présente comment générer, dans le langage GTL (Generation Template Language), une chaîne avec la date/heure du système dans un format indépendant des paramètres régionaux.

Le script VB ci-dessous permet de présenter différentes façons d’afficher la date et l’heure actuelle du système.

 '****************************************************************************** 
 '* Nom du fichier : FMTDATETIME.vbs 
 '* Définition : Formats d'affichages de la date et de l'heure actuelle du système  
 '* Auteur: Benoît Le Nabec 
 '* URL : http://www.Powerd911.guru
 '* Créé: 2018-04-20 
 '* Version: 1.0 
 '****************************************************************************** 

   Dim Mydate, MyTime, d, m, y, hh, mm, myDateFormat

   MyDate = Date 

   MyTime = Time 

   ' DD
   d = MyFormat(Day(MyDate))
   output d

   ' MM
   m = MyFormat(Month(MyDate)) 
   output m

   ' Year
   y = Year(MyDate)
   output y

   ' avril
   result = MonthName(m, FALSE) 
   output result
   
   ' avr.
   result = MonthName(m, TRUE) 
   output result
   
   ' YYYY-MM-DD HH24:MM:SS
   result = Now
   output result

   ' 1
   w = Weekday(MyDate, vbUseSystemDayOfWeek)
   output w

   ' dimanche
   ' abbreviate
   ' Boolean value that indicates if the weekday name is to be abbreviated. 
   result = WeekdayName(w, FALSE)
   output result
   
   ' dim.
   result = WeekdayName(w, TRUE)
   output result
   
   ' dim.
   ' The firstdayofweek argument can have the following values:
   ' vbUseSystemDayOfWeek 0 Use National Language Support (NLS) API setting.
   ' vbSunday 1 Sunday (default)
   ' vbMonday 2 Monday
   ' vbTuesday 3 Tuesday
   ' vbWednesday 4 Wednesday
   ' vbThursday 5 Thursday
   ' vbFriday 6 Friday
   ' vbSaturday 7 Saturday
   result = WeekdayName(w, TRUE, vbSaturday)
   output result

   'HH24
   hh = MyFormat(Hour(MyTime))
   output hh

   'mm
   mm = MyFormat(Minute(MyTime))
   output mm
   
   'ss
   ss = MyFormat(Second(MyTime))   
   output ss

   myDateFormat= y & "/" & m & "/" & d & " " & hh & ":" & mm & ":" & ss
   
   output myDateFormat

   Function MyFormat(num)
      If(Len(num)=1) Then
         MyFormat="0"&num
      Else
        MyFormat=num
      End If
   End Function

<span id="mce_marker" data-mce-type="bookmark" data-mce-fragment="1">​</span><span id="mce_marker" data-mce-type="bookmark" data-mce-fragment="1">​</span>