- dateFR {
- if ($asctime(mmmm) == January) { /var %m = Janvier | goto j }
- if ($asctime(mmmm) == February) { /var %m = Février | goto j }
- if ($asctime(mmmm) == March) { /var %m = Mars | goto j }
- if ($asctime(mmmm) == April) { /var %m = Avril | goto j }
- if ($asctime(mmmm) == May) { /var %m = Mai | goto j }
- if ($asctime(mmmm) == June) { /var %m = Juin | goto j }
- if ($asctime(mmmm) == July) { /var %m = Juillet | goto j }
- if ($asctime(mmmm) == August) { /var %m = Août | goto j }
- if ($asctime(mmmm) == September) { /var %m = Septembre | goto j }
- if ($asctime(mmmm) == October) { /var %m = Octobre | goto j }
- if ($asctime(mmmm) == November) { /var %m = Novembre | goto j }
- if ($asctime(mmmm) == December) { /var %m = Décembre | goto j }
- :j
- if ($asctime(dddd) == monday) { /var %j = lundi | goto r }
- if ($asctime(dddd) == tuesday) { /var %j = mardi | goto r }
- if ($asctime(dddd) == wednesday) { /var %j = mercredi | goto r }
- if ($asctime(dddd) == thursday) { /var %j = jeudi | goto r }
- if ($asctime(dddd) == friday) { /var %j = vendredi | goto r }
- if ($asctime(dddd) == saturday) { /var %j = samedi | goto r }
- if ($asctime(dddd) == sunday) { /var %j = dimanche | goto r }
- :r
- return %j $asctime(dd) %m $asctime(yyyy)
- }
dateFR {
if ($asctime(mmmm) == January) { /var %m = Janvier | goto j }
if ($asctime(mmmm) == February) { /var %m = Février | goto j }
if ($asctime(mmmm) == March) { /var %m = Mars | goto j }
if ($asctime(mmmm) == April) { /var %m = Avril | goto j }
if ($asctime(mmmm) == May) { /var %m = Mai | goto j }
if ($asctime(mmmm) == June) { /var %m = Juin | goto j }
if ($asctime(mmmm) == July) { /var %m = Juillet | goto j }
if ($asctime(mmmm) == August) { /var %m = Août | goto j }
if ($asctime(mmmm) == September) { /var %m = Septembre | goto j }
if ($asctime(mmmm) == October) { /var %m = Octobre | goto j }
if ($asctime(mmmm) == November) { /var %m = Novembre | goto j }
if ($asctime(mmmm) == December) { /var %m = Décembre | goto j }
:j
if ($asctime(dddd) == monday) { /var %j = lundi | goto r }
if ($asctime(dddd) == tuesday) { /var %j = mardi | goto r }
if ($asctime(dddd) == wednesday) { /var %j = mercredi | goto r }
if ($asctime(dddd) == thursday) { /var %j = jeudi | goto r }
if ($asctime(dddd) == friday) { /var %j = vendredi | goto r }
if ($asctime(dddd) == saturday) { /var %j = samedi | goto r }
if ($asctime(dddd) == sunday) { /var %j = dimanche | goto r }
:r
return %j $asctime(dd) %m $asctime(yyyy)
}