N° |
Fonction |
Catégorie |
Version |
BIR 01 |
BiR_Date |
Fonction de requête |
1.0 - Janvier 2007 |
Description
But
|
Formate la date système renvoyée par AutoCAD
|
Prototype
|
(BiR_Date )
|
Argument
|
Néant
|
Retours
|
La date du jour - Chaîne -
|
Var. globales
|
Néant
|
Description
|
Récupère la date courante de la variable CDATE, et la retourne formatée
à la manière en usage en France -- 31/05/2007 Jour/Mois/Année.
|
Notes
|
|
Exemples
|
Commande: (BiR_Date) retourne
"13/02/2007"
|
La fonction
1- (defun BiR_Date ( / Dat1)
2- (setq Dat1 (rtos (getvar "cdate") 2 0))
3- (strcat (substr Dat1 7 2)
4- "/"
5- (substr Dat1 5 2)
6- "/"
7- (substr Dat1 1 4)
8- )
9- )
Exemple : 3 mai 2007
(getvar "cdate") retourne 2.00705e+007 (20070503.1652)
(rtos (getvar "cdate") 2 0) retourne "20070503"
(substr Dat1 7 2) retourne 03
(substr Dat1 5 2) retourne 05
(substr Dat1 1 4) retourne 2007
Ligne 2 : Stocke en Dat1 la partie non décimale de la variable système
Cdate transformée en chaîne.
Lignes 3-8 : Retourne le résultat de la concaténation des portions de Dat1
Rtos : Convertit un nombre en chaîne. Ici, 2 définit le mode décimal et 0 aucun chiffre après la virgule.
Getvar : Renvoie la valeur de la variable système AutoCAD, ici, "CDATE" qui indique la date et l'heure du
moment, donné par l'horloge de la machine.
Strcat : Renvoie une chaîne résultant de la concaténation des éléments qui suivent.
Substr : Ici, extrait de la chaîne Dat1 les caractères correspondant au rang du 1er nombre donné et de
longueur égale au 2ème nombre.