DATE EN ARABE

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
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;

end.