French_Vanilla_Dotted_DateSyntaxeon French_Vanilla_Dotted_Date()
Retourne la date courante au format Français. Le résultat est au format texte.
Adapté de Jeff Baumann.
ExempleFrench_Vanilla_Dotted_Date()
---> "11/09/2001"
Scripton French_Vanilla_Dotted_Date()
set full_Month to 2629728 -- 730.48 * 60 * 60
set half_Month to full_Month div 2 -- 1314864
set current_Date to (current date)
copy current_Date to january_Date
set the month of january_Date to January
set month_Num to (1 + (current_Date - january_Date + half_Month) div full_Month)
set the_month to text -2 thru -1 of (("0" & month_Num) as string)
set the_date to text -2 thru -1 of ("0" & (day of current_Date as string))
return (the_date & "/" & the_month & "/" & (year of current_Date)) as string
end French_Vanilla_Dotted_Date
|