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>