GET SYSTEM FORMAT

4D v15.4

GET SYSTEM FORMAT


GET SYSTEM FORMAT ( format ; valeur )

Paramètre	Type	Description
format	Entier long	Formatage système à lire
valeur	Chaîne	Valeur de formatage définie dans le système

Description

La commande GET SYSTEM FORMAT retourne la valeur courante de plusieurs paramètres régionaux définis dans le système d’exploitation. Cette commande permet de construire des formats personnalisés “automatiques” basés sur les préférences système.

Passez dans le paramètre format le type de paramètre dont vous souhaitez connaître la valeur. Le résultat est retourné directement par le système dans le paramètre valeur sous forme de chaîne de caractères. Vous devez passer dans format une des constantes du thème “Formatages système”. Voici le descriptif de ces constantes :

Constante	Type	Valeur
Libellé AM heure système	Entier long	18
Libellé PM heure système	Entier long	19
Motif date abrégé	Entier long	7
Motif date court	Entier long	6
Motif date long	Entier long	8
Motif heure abrégé	Entier long	4
Motif heure court	Entier long	3
Motif heure long	Entier long	5
Position année date courte	Entier long	17
Position jour date courte	Entier long	15
Position mois date courte	Entier long	16
Séparateur date	Entier long	13
Séparateur de milliers	Entier long	1
Séparateur décimal	Entier long	0
Séparateur heure	Entier long	14
Symbole monétaire	Entier long	2

Exemple

Sur un chèque rempli mécaniquement, les sommes inscrites sont généralement précédées de “*” afin d’empêcher les fraudes. Si le format d’affichage système standard pour la monnaie est “$ 5,422.33”, le format pour les chèques devrait, lui, être du type “$***5432.33” : pas de virgule entre les milliers et pas d’espace entre le symbole $ et le premier chiffre. Le format à utiliser avec la fonction String doit être “$*******.**”. Pour le construire par programmation il est nécessaire de connaître le symbole monétaire et le séparateur décimal :

 GET SYSTEM FORMAT(Currency symbol;$vSymbMon)

 GET SYSTEM FORMAT(Decimal separator;$vSepDec)

 $MonFormat:="###"+$vSymbMon+"*******"+$vSepDec+"**"

 $Résultat:=String(montant;$MonFormat)

Voir aussi

OBJECT SET FORMAT