convertir un code est ce possible??

[fradouan]

bonsoir a toutes et a tous, je cherche à convertir une date arabe en toutes lettre et j'ai trouvé un code est ce possible de le convertir en code vba
merci


* using System;
* using System.Collections.Generic;
* using System.Text;
*
* namespace Tools
* {
* public class LesDates
* {
* static public string DateEnLettre(DateTime LaDate)
* {
* string Resultat = "";
* string[] Journees = new string[32] { "ÕÝÑ",
* "ÇáÃæá", "ÇáËÇäí", "ÇáËÇáË", "ÇáÑÇÈÚ", "ÇáÎÇãÓ", "ÇáÓÇÏÓ", "ÇáÓÇÈÚ", "ÇáËÇãä", "ÇáÊÇÓÚ", "ÇáÚÇÔÑ",
* "ÇáÍÇÏí ÚÔÑ","ÇáËÇäí ÚÔÑ","ÇáËÇáË ÚÔÑ", "ÇáÑÇÈÚ ÚÔÑ", "ÇáÎÇãÓ ÚÔÑ", "ÇáÓÇÏÓ ÚÔÑ", "ÇáÓÇÈÚ ÚÔÑ", "ÇáËÇãä ÚÔÑ", "ÇáÊÇÓÚ ÚÔÑ",
* "ÇáÚÔÑíä","ÇáÍÇÏí æ ÇáÚÔÑíä", "ÇáËÇäí æ ÇáÚÔÑíä", "ÇáËÇáË æ ÇáÚÔÑíä", "ÇáÑÇÈÚ æ ÇáÚÔÑíä", "ÇáÎÇãÓ æ ÇáÚÔÑíä", "ÇáÓÇÏÓ æ ÇáÚÔÑíä", "ÇáÓÇÈÚ æ ÇáÚÔÑíä", "ÇáËÇãä æ ÇáÚÔÑíä", "ÇáÊÇÓÚ æ ÇáÚÔÑíä",
* "ÇáËáÇËíä","ÇáÍÇÏí æ ÇáËáÇËíä"
* };
* string[] NomsMois = new string[13] { "", "ÍÇäÝí", "ÝíÝÑí", "ãÇÑÓ", "ÃÝÑíá", "ãÇí", "ÌæÇä", "ÌæíáíÉ", "ÃæÊ", "ÓÈÊãÈÑ", "ÃßÊæÈÑ", "äæÝãÈÑ", "ÏíÓãÈÑ" };
* string[] Annees = new string[100] {"","æÇÍÏ","ÇËäÇä","ËáÇËÉ","ÃÑÈÚÉ","ÎãÓÉ","ÓÊÉ","ÓÈÚÉ","ËãÇäíÉ","ÊÓÚÉ",
* "ÚÔÑÉ","ÇÍÏì ÚÔÑ","ÇËäì ÚÔÑ","ËáÇËÉ ÚÔÑ","ÃÑÈÚÉ ÚÔÑ","ÎãÓÉ ÚÔÑ","ÓÊÉ ÚÔÑ","ÓÈÚÉ ÚÔÑ","ËãÇäíÉ ÚÔÑ","ÊÓÚÉ ÚÔÑ",
* "ÚÔÑíä","æÇÍÏ æ ÚÔÑíä","ÇËäÇä æ ÚÔÑíä","ËáÇËÉ æ ÚÔÑíä","ÃÑÈÚÉ æ ÚÔÑíä","ÎãÓÉ æ ÚÔÑíä","ÓÊÉ æ ÚÔÑíä","ÓÈÚÉ æ ÚÔÑíä","ËãÇäíÉ æ ÚÔÑíä","ÊÓÚÉ æ ÚÔÑíä",
* "ËáÇËíä","æÇÍÏ æ ËáÇËíä","ÇËäÇä æ ËáÇËíä","ËáÇËÉ æ ËáÇËíä","ÃÑÈÚÉ æ ËáÇËíä","ÎãÓÉ æ ËáÇËíä","ÓÊÉ æ ËáÇËíä","ÓÈÚÉ æ ËáÇËíä","ËãÇäíÉ æ ËáÇËíä","ÊÓÚÉ æ ËáÇËíä",
* "ÃÑÈÚíä","æÇÍÏ æ ÃÑÈÚíä","ÇËäÇä æ ÃÑÈÚíä","ËáÇËÉ æ ÃÑÈÚíä","ÃÑÈÚÉ æ ÃÑÈÚíä","ÎãÓÉ æ ÃÑÈÚíä","ÓÊÉ æ ÃÑÈÚíä","ÓÈÚÉ æ ÃÑÈÚíä","ËãÇäíÉ æ ÃÑÈÚíä","ÊÓÚÉ æ ÃÑÈÚíä",
* "ÎãÓíä","æÇÍÏ æ ÎãÓíä","ÇËäÇä æ ÎãÓíä","ËáÇËÉ æ ÎãÓíä","ÃÑÈÚÉ æ ÎãÓíä","ÎãÓÉ æ ÎãÓíä","ÓÊÉ æ ÎãÓíä","ÓÈÚÉ æ ÎãÓíä","ËãÇäíÉ æ ÎãÓíä","ÊÓÚÉ æ ÎãÓíä",
* "ÓÊíä","æÇÍÏ æ ÓÊíä","ÇËäÇä æ ÓÊíä","ËáÇËÉ æ ÓÊíä","ÃÑÈÚÉ æ ÓÊíä","ÎãÓÉ æ ÓÊíä","ÓÊÉ æ ÓÊíä","ÓÈÚÉ æ ÓÊíä","ËãÇäíÉ æ ÓÊíä","ÊÓÚÉ æ ÓÊíä",
* "ÓÈÚíä","æÇÍÏ æ ÓÈÚíä","ÇËäÇä æ ÓÈÚíä","ËáÇËÉ æ ÓÈÚíä","ÃÑÈÚÉ æ ÓÈÚíä","ÎãÓÉ æ ÓÈÚíä","ÓÊÉ æ ÓÈÚíä","ÓÈÚÉ æ ÓÈÚíä","ËãÇäíÉ æ ÓÈÚíä","ÊÓÚÉ æ ÓÈÚíä",
* "ËãÇäíä","æÇÍÏ æ ËãÇäíä","ÇËäÇä æ ËãÇäíä","ËáÇËÉ æ ËãÇäíä","ÃÑÈÚÉ æ ËãÇäíä","ÎãÓÉ æ ËãÇäíä","ÓÊÉ æ ËãÇäíä","ÓÈÚÉ æ ËãÇäíä","ËãÇäíÉ æ ËãÇäíä","ÊÓÚÉ æ ËãÇäíä",
* "ÊÓÚíä","æÇÍÏ æ ÊÓÚíä","ÇËäÇä æ ÊÓÚíä","ËáÇËÉ æ ÊÓÚíä","ÃÑÈÚÉ æ ÊÓÚíä","ÎãÓÉ æ ÊÓÚíä","ÓÊÉ æ ÊÓÚíä","ÓÈÚÉ æ ÊÓÚíä","ËãÇäíÉ æ ÊÓÚíä","ÊÓÚÉ æ ÊÓÚíä",
* };
* string[] Siecles = new string[6] { "ÃáÝ æ ËãÇäãÇÆÉ æ ", "ÃáÝ æ ÊÓÚãÇÆÉ æ ", "ÃáÝíä æ ", "ÃáÝ æ ËãÇäãÇÆÉ", "ÃáÝ æ ÊÓÚãÇÆÉ", "ÃáÝíä" };
*
* int jour = LaDate.Day;
* int mois = LaDate.Month; ;
* int annee = LaDate.Year % 100;
* int siecle = LaDate.Year / 100;
*
* Resultat = Journees[jour] + " ãä ÔåÑ " + NomsMois[mois] + " ÓäÉ " + Siecles[siecle - 18 + (annee == 0 ? 3 : 0)] + Annees[annee];
*
* return Resultat;
* }
* }
* }

voici le lien ou je l'ai trouvé
Code source de DATE EN TOUTE LETTRE (ARABE)

 

[fradouan]

une date arabe en toutes lettres

hi,
toute aide serai la bienvenue
merci