Current date
Current date {( * )} -> Résultat
| Paramètre | Type | Description | |
|---|---|---|---|
| * | Op érateur | → | Retourne la date du jour du serveur |
| Résultat | Date | ← | Date du jour |
Description
Current date retourne la date courante telle que définie dans l'horloge système de la machine.
4D Server : Si vous passez le paramètre astérisque (*) — lors d'une exécution sur un poste 4D Client —, la fonction retourne la date du jour telle que définie dans l'horloge du poste serveur.
Exemple 1
L'exemple suivant fait apparaître une boîte de dialogue d'alerte affichant la date du jour :
ALERT("Nous sommes le "+String(Date du jour)+".")
Exemple 2
Vous développez une application pour le marché international. Vous souhaitez savoir si la version de 4D avec laquelle votre application est exécutée fonctionne avec des dates formatées en MM/JJ/AAAA (version US) ou JJ/MM/AAAA (version française). Cette information est nécessaire pour vous permettre, par exemple, de personnaliser correctement les zones de saisie.
La méthode projet suivante vous permet de traiter cette question :
// Méthode projet (fonction) Format date système
// Format date système -> Chaine
// Format date système -> Format de données 4D par défaut
C_STRING(31;$0;$vsDate;$vsMJA;$vsMois;$vsJour;$vsAnnée)
var $1;$vlPos : Integer
var $vdDate : Date
// Récupérer une date dans laquelle les valeurs de mois, de jour et d'année sont toutes différentes
$vdDate:=Current date
Repeat
$vsMois:=String(Mois de($vdDate))
$vsJour:=String(Jour de($vdDate))
$vsAnnée:=String(Annee de($vdDate)%100)
If(($vsMois=$vsJour) | ($vsMois=$vsAnnée) | ($vsJour=$vsAnnée))
OK:=0
$vdDate:=$vdDate+1
Else
OK:=1
End if
Until(OK=1)
$0:="" // Initialisation du résultat de la fonction
$vsDate:=String($vdDate)
$vlPos:=Position("/";$vsDate) // Trouver le premier séparateur / dans la chaîne ../../..
$vsMJA:=Substring($vsDate;1;$vlPos-1) // Extraire les premiers chiffres de la date
$vsDate:=Substring($vsDate;$vlPos+1) // Eliminer les premiers chiffres et le premier séparateur /
Case of
:($vsMJA=$vsMois) // Les chiffres expriment le mois
$0:="MM"
:($vsMJA=$vsJour) // Les chiffres expriment le jour
$0:="JJ"
:($vsMJA=$vsAnnée) // Les chiffres expriment l'année
$0:="AAAA"
End case
$0:=$0+"/" // Commencer à construire le résultat de la fonction
$vlPos:=Position("/";$vsDate) // Trouver le deuxième séparateur dans la chaîne ../..
$vsMJA:=Substring($vsDate;1;$vlPos-1) // Extraire les chiffres suivants de la date
$vsDate:=Substring($vsDate;$vlPos+1) // Réduire la chaîne aux derniers chiffres de la date
Case of
:($vsMJA=$vsMois) // Les chiffres expriment le mois
$0:=$0+"MM"
:($vsMJA=$vsJour) // Les chiffres expriment le jour
$0:=$0+"JJ"
:($vsMJA=$vsAnnée) // Les chiffres expriment l'année
$0:=$0+"AAAA"
End case
$0:=$0+"/" // Poursuivre la construction du résultat de la fonction
Case of
:($vsDate=$vsMois) // Les chiffres expriment le mois
$0:=$0+"MM"
:($vsDate=$vsJour) // Les chiffres expriment le jour
$0:=$0+"DD"
:($vsDate=$vsAnnée) // Les chiffres expriment l'année
$0:=$0+"AAAA"
End case
// A ce moment, $0 vaut soit MM/JJ/AAAA soit JJ/MM/AAAA, ou encore...