Afficher date en arabe

function MoisEnArabe(moi: word): string;

·  var MLA:string;

·  begin //donner les mois en Arabe de janvier à décembre dans le même ordre

·  case moi of

·  1:MLA :='ÌÇäÝí' ; 7 :MLA :='ÌæíáíÉ' ;

·  2:MLA :='ÝíÝÑí' ; 8 :MLA :='ÃæÊ' ;

·  3:MLA :='ãÇÑÓ' ; 9 :MLA :='ÓÈÊãÈÑ' ;

·  4:MLA :='ÃÝÑíá' ; 10:MLA :='ÃßÊæÈÑ' ;

·  5:MLA :='ãÇí' ; 11:MLA :='äæÝãÈÑ' ;

·  6:MLA :='ÌæÇä' ; 12:MLA :='ÏíÓãÈÑ' ;

·  end;// case

·  Result:= MLA ;

·  end;

·  function JourEnArabe(j: word): string;

·  var JLA:string;

·  days: array[1..7] of string;

·  begin // donner les jours en Arabe

·  days[1] := 'ÇáÃÍÏ'; //dimanche

·  days[2] := 'ÇáÇËäíä'; // lundi

·  days[3] := 'ÇáËáÇËÇÁ'; // mardi

·  days[4] := 'ÇáÃÑÈÚÇÁ'; // mercredi

·  days[5] := 'ÇáÎãíÓ'; // jeudi

·  days[6] := 'ÇáÌãÚÉ'; // vendredi

·  days[7] := 'ÇáÓÈÊ'; // samedi

·  JLA:=days[DayOfWeek(date)] ;

·  Result:= JLA ;

·  end;

·  function DateEnArabe():string;

·  var annee,mois,jour :word;

·  begin

·  DecodeDate(Date,annee,mois,jour);// decoder la date du jour

·  DateEnArabe:='íæã '+JourEnArabe(jour)+' '+inttostr(jour)+' '+MoisEnArabe(mois)+' '+inttostr(annee);

·  // DateEnArabe reçoit la date jour en Arabe

·  end;

·  procedure TForm1.Button1Click(Sender: TObject);

·  begin

·  label1.Caption:=DateEnArabe;

·  end;