BiR_Date

N°	Fonction	Catégorie	Version
BIR 01	BiR_Date	Fonction de requête	1.0 - Janvier 2007

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"

 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.