Magic_Doctor
XLDnaute Barbatruc
Renvoie, en différentes langues, le jour de la semaine correspondant à une date.
Si la langue est dans un alphabet abscons (arménien, russe, japonais…), apparaît alors sa transcription en alphabet latinisé avec les diacritiques correspondants (plus facile pour tenter de le prononcer).
Cette fonction, idéalement, devrait être utilisée avec un SpinButton et un ComboBox. C’est ainsi que je l’ai conçue afin de l’exploiter ludiquement, pour les confinés qui désirent "voyager" virtuellement…
En PJ, mon application pour montrer comment cette fonction peut fonctionner.
Dans cette application il y a des APIs (module standard : "modHookWheelMouse"). Elles sont nécessaires pour permettre d’utiliser la molette de la souris quand on parcourt la liste interminable des langues du ComboBox (c’est franchement pratique). Comme je suis en 32-bit (Excel 2007…), j’ai tâché de retranscrire ces APIs pour les versions d’Excel 64-bit. Pour ceux qui ont une de ces versions, il suffit alors de mettre en REM (ou tout simplement virer) les APIs 32-bit et ôter les REM des Apis 64-bit. Normalement ça devrait marcher (pas pu faire le test), mais sait-on jamais…
Si d’aventure patricktoulon passait par là, il s’apercevra que les 2 fonctions (dans le module standard "Fonctions") "Array_Pos" & "MergeArrays" que j’avais proposées sur ce même forum et qu’il avait réécrites ("Array_Pos2" & "MergeArrays2") ne fonctionnent pas dans mon application. Peut-être apportera-t-il une explication à ce mystère existentiel.
PS : le mot de passe est "zaza".
Si vous voulez faire des modifications sur la feuille, pour suspendre le mot de passe, activez la macro "Suspendre_MDP" dans le module standard "Módulo1".
Si la langue est dans un alphabet abscons (arménien, russe, japonais…), apparaît alors sa transcription en alphabet latinisé avec les diacritiques correspondants (plus facile pour tenter de le prononcer).
Cette fonction, idéalement, devrait être utilisée avec un SpinButton et un ComboBox. C’est ainsi que je l’ai conçue afin de l’exploiter ludiquement, pour les confinés qui désirent "voyager" virtuellement…
En PJ, mon application pour montrer comment cette fonction peut fonctionner.
Dans cette application il y a des APIs (module standard : "modHookWheelMouse"). Elles sont nécessaires pour permettre d’utiliser la molette de la souris quand on parcourt la liste interminable des langues du ComboBox (c’est franchement pratique). Comme je suis en 32-bit (Excel 2007…), j’ai tâché de retranscrire ces APIs pour les versions d’Excel 64-bit. Pour ceux qui ont une de ces versions, il suffit alors de mettre en REM (ou tout simplement virer) les APIs 32-bit et ôter les REM des Apis 64-bit. Normalement ça devrait marcher (pas pu faire le test), mais sait-on jamais…
Si d’aventure patricktoulon passait par là, il s’apercevra que les 2 fonctions (dans le module standard "Fonctions") "Array_Pos" & "MergeArrays" que j’avais proposées sur ce même forum et qu’il avait réécrites ("Array_Pos2" & "MergeArrays2") ne fonctionnent pas dans mon application. Peut-être apportera-t-il une explication à ce mystère existentiel.
PS : le mot de passe est "zaza".
Si vous voulez faire des modifications sur la feuille, pour suspendre le mot de passe, activez la macro "Suspendre_MDP" dans le module standard "Módulo1".
VB:
Function NomJourSemaineTrip$(Optional fecha As Date, Optional ChxLangue%, Optional NomLangue As Byte, Optional NbItems As Boolean = False, Optional transcription As Boolean = False, Optional LangueBase As Byte)
'********************************************************************************
'Renvoie, en différentes langues, le jour de la semaine correspondant à une date
'PART I
'Magic_Doctor
'********************************************************************************
'Inséparable des fonctions "BlocLangues1" & "BlocLangues2"
'- fecha : une date
'- ChxLangue : choix de la langue. Ex : 1 --> Abkhaze | 2 --> Afrikaans | 3 --> Alabama |...
'- NomLangue : 1 --> nom de la langue choisie dans la matrice "langue"
' 2 --> jour de la semaine, correspondant á la date "fecha", dans la matrice "LangueRef"
' 3 --> nom de la langue compréhensible dans la matrice "LangueRef"
'- NbItems : si True --> nombre de langues répertoriées dams la fonction
'- transcription : si True --> vérifie si la langue choisie est dans un alphabet ésotérique (grec, cyrillique...) et recherche sa transcription latinisée
'- LangueBase : 1 --> matrice "LangueRef" pour français | 2 --> matrice "LangueRef" pour espagnol |...
If ChxLangue <= 150 Then
NomJourSemaineTrip = BlocLangues1(fecha, ChxLangue, NomLangue, NbItems, transcription, LangueBase)
Else
ChxLangue = ChxLangue - 150
NomJourSemaineTrip = BlocLangues2(fecha, ChxLangue, NomLangue, NbItems, transcription, LangueBase)
End If
End Function
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Function BlocLangues1$(Optional fecha As Date, Optional ChxLangue%, Optional NomLangue As Byte, Optional NbItems As Boolean = False, Optional transcription As Boolean = False, Optional LangueBase As Byte)
'********************************************************************************
'Renvoie, en différentes langues, le jour de la semaine correspondant à une date
'PART II
'Magic_Doctor
'********************************************************************************
'Limité à 150 langues
'- fecha : une date
'- ChxLangue : choix de la langue. Ex : 1 --> Abkhaze | 2 --> Afrikaans | 3 --> Alabama |...
'- NomLangue : 1 --> nom de la langue choisie dans la matrice "langue"
' 2 --> jour de la semaine, correspondant á la date "fecha", dans la matrice "LangueRef"
' 3 --> nom de la langue compréhensible dans la matrice "LangueRef"
'- NbItems : si True --> nombre de langues répertoriées dams la fonction
'- transcription : si True --> vérifie si la langue choisie est dans un alphabet ésotérique (grec, cyrillique...) et recherche sa transcription latinisée
'- LangueBase : 1 --> matrice "LangueRef" pour français | 2 --> matrice "LangueRef" pour espagnol |...
'ATTENTION ! Après toute modification, ne pas oublier de mettre à jour "NbLangues" & les "Case" de "latinisation"
Dim langue, NbLangues As Byte, latinisation, LangueRef
'Les langues de base (compréhensibles)
Select Case LangueBase
Case 1: LangueRef = Array("Dimanche", "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Français")
Case 2: LangueRef = Array("Domingo", "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado", "Espagnol")
Case 3: LangueRef = Array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Anglais")
Case 4: LangueRef = Array("Domingo", "Segunda-feira", "Terça-feira", "Quarta-feira", "Quinta-feira", "Sexta-feira", "Sábado", "Portugais")
Case 5: LangueRef = Array("Domenica", "Lunedì", "Martedì", "Mercoledì", "Giovedì", "Venerdì", "Sabato", "Italien")
End Select
'Ensemble des langues avec lesquelles on veut indiquer les noms des jours de la semaine (quel que soit leur alphabet)
Select Case ChxLangue
Case 1: langue = Array(ChrW(1040) & ChrW(1084) & ChrW(1213) & ChrW(1100) & ChrW(1231) & ChrW(1096), _
ChrW(1040) & ChrW(1096) & ChrW(1241) & ChrW(1072) & ChrW(1093) & ChrW(1100), _
ChrW(1040) & ChrW(1193) & ChrW(1072) & ChrW(1096), _
ChrW(1040) & ChrW(1093) & ChrW(1072) & ChrW(1096), _
ChrW(1040) & ChrW(1191) & ChrW(1096) & ChrW(1100) & ChrW(1072) & ChrW(1096), _
ChrW(1040) & ChrW(1093) & ChrW(1241) & ChrW(1072) & ChrW(1096), _
ChrW(1040) & ChrW(1089) & ChrW(1072) & ChrW(1073) & ChrW(1096), "Abkhaze")
Case 2: langue = Array("Sonndag", "Maandag", "Dinsdag", "Woensdag", "Donderdag", "Vrydag", "Saterdag", "Afrikaans")
Case 3: langue = Array("Nihtahollo", "Nihta a" & ChrW(620) & ChrW(620) & "ámmòona", "Nihta atòkla", "Nihta atótchìina", "Nihta istóstàaka", "Nihta istá" & ChrW(620) & ChrW(620) & "àapi", "Nihtahollosi", "Alabama")
Case 4: langue = Array("E diel", "E hënë", "E martë", "E mërkurë", "E enjte", "E premte", "E shtunë", "Albanais")
Case 5: langue = Array("Sonntag", "Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag", "Samstag", "Allemand")
Case 6: langue = Array("Sonndich", "Mendich", "Denschdich", "Mittich", "Donnerschtich", "Fraidich", "Samschdich", "Allemand (Bavarois)")
Case 7: langue = Array("Sunntig", "Määntig", "Ziischtig", "Mittwuch", "Dunschtig", "Friitig", "Samschtig", "Allemand (Suisse)")
Case 8: langue = Array("Sunndi", "Mandi", "Zischdi", "Mittwuch", "Dunnerschdi", "Fridi", "Sàmschdi", "Alsacien")
Case 9: langue = Array(ChrW(&H12A5) & ChrW(&H1211) & ChrW(&H12F5), _
ChrW(&H1230) & ChrW(&H129E), _
ChrW(&H121B) & ChrW(&H12AD) & ChrW(&H1230) & ChrW(&H129E), _
ChrW(&H1228) & ChrW(&H1261) & ChrW(&H12D5), _
ChrW(&H1210) & ChrW(&H1219) & ChrW(&H1230), _
ChrW(&H12D3) & ChrW(&H122D) & ChrW(&H1265), _
ChrW(&H1245) & ChrW(&H12F3) & ChrW(&H121C), "Amharique")
Case 10: langue = Array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Anglais")
Case 11: langue = Array("Sunnandæg", "M" & ChrW(333) & "nandæg", "T" & ChrW(299) & "wesdæg", "W" & ChrW(333) & "dnesdæg", ChrW(222) & "unresdæg", "Fr" & ChrW(299) & "gedæg", "Sæternesdæg", "Anglo-Saxon")
Case 12: langue = Array("Domingo", "Luns", "Martes", "Miércols", "Chuebes", "Biernes", "Sabado", "Aragonais")
Case 13: langue = Array(ChrW(1343) & ChrW(&H56B) & ChrW(&H580) & ChrW(&H561) & ChrW(&H56F) & ChrW(&H56B), _
ChrW(&H535) & ChrW(&H580) & ChrW(&H56F) & ChrW(&H578) & ChrW(&H582) & ChrW(&H577) & ChrW(&H561) & ChrW(&H562) & ChrW(&H569) & ChrW(&H56B), _
ChrW(&H535) & ChrW(&H580) & ChrW(&H565) & ChrW(&H584) & ChrW(&H577) & ChrW(&H561) & ChrW(&H562) & ChrW(&H569) & ChrW(&H56B), _
ChrW(&H549) & ChrW(&H578) & ChrW(&H580) & ChrW(&H565) & ChrW(&H584) & ChrW(&H577) & ChrW(&H561) & ChrW(&H562) & ChrW(&H569) & ChrW(&H56B), _
ChrW(&H540) & ChrW(&H56B) & ChrW(&H56F) & ChrW(&H563) & ChrW(&H577) & ChrW(&H561) & ChrW(&H562) & ChrW(&H569) & ChrW(&H56B), _
ChrW(&H548) & ChrW(&H56C) & ChrW(&H580) & ChrW(&H562) & ChrW(&H561) & ChrW(&H569), _
ChrW(&H547) & ChrW(&H561) & ChrW(&H562) & ChrW(&H561) & ChrW(&H569), "Arménien")
Case 14: langue = Array("Demenge", "Delon", "Demars", "Demécro", "Dejo", "Devendro", "Dessando", "Arpitan")
Case 15: langue = Array("Domingu", "Llunes", "Martes", "Miércols", "Xueves", "Vienres", "Sábadu", "Asturien")
Case 16: langue = Array("Manactakaniwon", "Ockorkananiwon", "Nicw kicikaw", "Nicto kicikaw", "New kicikaw", "Tcipaiatikw kicikaw", "Mari kicikaw", "Atikamekw")
Case 17: langue = Array("Bazar", "Bazar ert" & ChrW(&H259) & "si", "Ç" & ChrW(&H259) & "r" & ChrW(&H15F) & ChrW(&H259) & "nb" & ChrW(&H259) & " ax" & ChrW(&H15F) & "ami", _
"Ç" & ChrW(&H259) & "r" & ChrW(&H15F) & ChrW(&H259) & "nb" & ChrW(&H259), "Cüm" & ChrW(&H259) & " ax" & ChrW(&H15F) & "ami", _
"Cüm" & ChrW(&H259), ChrW(&H15E) & ChrW(&H259) & "nb" & ChrW(&H259), "Azéri")
Case 18: langue = Array(ChrW(1049) & ChrW(1241) & ChrW(1082) & ChrW(1096) & ChrW(1241) & ChrW(1084) & ChrW(1073) & ChrW(1241), _
ChrW(1044) & ChrW(1199) & ChrW(1096) & ChrW(1241) & ChrW(1084) & ChrW(1073) & ChrW(1241), _
ChrW(1064) & ChrW(1080) & ChrW(1096) & ChrW(1241) & ChrW(1084) & ChrW(1073) & ChrW(1241), _
ChrW(1064) & ChrW(1072) & ChrW(1088) & ChrW(1096) & ChrW(1072) & ChrW(1084) & ChrW(1073) & ChrW(1099), _
ChrW(1050) & ChrW(1077) & ChrW(1089) & ChrW(1077) & " " & ChrW(1072) & ChrW(1177) & ChrW(1072), _
ChrW(1049) & ChrW(1086) & ChrW(1084) & ChrW(1072), _
ChrW(1064) & ChrW(1241) & ChrW(1084) & ChrW(1073) & ChrW(1077), "Bachkir")
Case 19: langue = Array("Kari", "Nt" & ChrW(&H25B) & "n" & ChrW(&H25B) & "n", "Tarata", "Araba", "Alamisa", "Juma", "Sibiri", "Bambara")
Case 20: langue = Array("Sinndag", "Moondag", "Dinjsdag", "Meddweakj", "Donnadag", "Friedag", "Sinnovend", "Bas-Prussien")
Case 21: langue = Array("Igande", "Astelehen", "Astearte", "Asteazken", "Ortzegun", "Ortziral", "Larunbat", "Basque")
Case 22: langue = Array("Sande", "Mande", "Tusde", "Wenesde", "Tosde", "Fraede", "Sarede", "Bichelamar")
Case 23: langue = Array(ChrW(1053) & ChrW(1103) & ChrW(1076) & ChrW(1079) & ChrW(1077) & ChrW(1083) & ChrW(1103), _
ChrW(1055) & ChrW(1072) & ChrW(1085) & ChrW(1103) & ChrW(1076) & ChrW(1079) & ChrW(1077) & ChrW(1083) & ChrW(1072) & ChrW(1082), _
ChrW(1040) & ChrW(1118) & ChrW(1090) & ChrW(1086) & ChrW(1088) & ChrW(1072) & ChrW(1082), _
ChrW(1057) & ChrW(1077) & ChrW(1088) & ChrW(1072) & ChrW(1076) & ChrW(1072), _
ChrW(1063) & ChrW(1072) & ChrW(1094) & ChrW(1100) & ChrW(1074) & ChrW(1077) & ChrW(1088), _
ChrW(1055) & ChrW(1103) & ChrW(1090) & ChrW(1085) & ChrW(1110) & ChrW(1094) & ChrW(1072), _
ChrW(1057) & ChrW(1099) & ChrW(1073) & ChrW(1086) & ChrW(1090) & ChrW(1072), "Biélorusse")
Case 24: langue = Array("Nedjelja", "Ponedeljak", "Utorak", "Srijeda", "Cxetvrtak", "Petak", "Subota", "Bosniaque")
Case 25: langue = Array("Dimainge", "Lundi", "Maurdi", "Mércredi", "Jeudi", "Vanredi", "Samedi", "Bourguignon")
Case 26: langue = Array("Disul", "Dilun", "Dimeurzh", "Dimerc'her", "Diriaou", "Digwener", "Disadorn", "Breton")
Case 27: langue = Array(ChrW(1053) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1103), _
ChrW(1055) & ChrW(1086) & ChrW(1085) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1085) & ChrW(1080) & ChrW(1082), _
ChrW(1042) & ChrW(1090) & ChrW(1086) & ChrW(1088) & ChrW(1085) & ChrW(1080) & ChrW(1082), _
ChrW(1057) & ChrW(1088) & ChrW(1103) & ChrW(1076) & ChrW(1072), _
ChrW(1063) & ChrW(1077) & ChrW(1090) & ChrW(1074) & ChrW(1098) & ChrW(1090) & ChrW(1074) & ChrW(1098) & ChrW(1082), _
ChrW(1055) & ChrW(1077) & ChrW(1090) & ChrW(1098) & ChrW(1082), _
ChrW(1057) & ChrW(1098) & ChrW(1073) & ChrW(1086) & ChrW(1090) & ChrW(1072), "Bulgare")
Case 28: langue = Array("Niedzela", "Pòniedzô" & ChrW(322) & "k", "Wtórk", "Strzoda", "Czwiôrtk", "Pi" & ChrW(261) & "tk", "Sobòta", "Cachoube")
Case 29: langue = Array("Pyhäpäivy", "Enzimäinargi", "Toinargi", "Kolmaspäivy", "Nelläspäivy", "Piätteni" & ChrW(269) & ChrW(269) & "y", "Suovattu", "Carélien")
Case 30: langue = Array("Diumenge", "Dilluns", "Dimarts", "Dimecres", "Dijous", "Divendres", "Dissabte", "Catalan")
Case 31: langue = Array("Dominggo", "Lunes", "Martes", "Miyerkoles", "Huwebes", "Biyernes", "Sabado", "Cebuano")
Case 32: langue = Array("Tadau Koturu", "Tadau Koiso", "Tadau Koduo", "Tadau Kotolu", "Tadau Kaapat", "Tadau Kolimo", "Tadau Koonom", "Central Dusun")
Case 33: langue = Array("Unododaquasgvi", "Unadodaquonvi", "Taline iga", "Tsoine iga", "Nvgine iga", "Tsungilosdi", "Unadodawidena", "Cherokee")
Case 34: langue = Array("Ma'heóne É" & ChrW(353) & "eeva", "No'ka É" & ChrW(353) & "eeva", "Nexa É" & ChrW(353) & "eeva", "Na'ha É" & ChrW(353) & "eeva", _
"Neva É" & ChrW(353) & "eeva", "Nóhona É" & ChrW(353) & "eeva", "T" & ChrW(353) & "ê" & ChrW(353) & "ke'ma'heóne É" & ChrW(353) & "eeva", "Cheyenne (Montana)")
Case 35: langue = Array("Ma'heóne É" & ChrW(353) & "eeva", "Éénema'heóne É" & ChrW(353) & "eeva", "No'ka É" & ChrW(353) & "eeva", "Nexa É" & ChrW(353) & "eeva", _
"Na'ha É" & ChrW(353) & "eeva", "Neva É" & ChrW(353) & "eeva", "T" & ChrW(353) & "ê" & ChrW(353) & "ke'ma'heóne É" & ChrW(353) & "eeva", "Cheyenne (Oklahoma)")
Case 36: langue = Array(ChrW(&H661F) & ChrW(&H671F) & ChrW(&H65E5), _
ChrW(&H661F) & ChrW(&H671F) & ChrW(&H4E00), _
ChrW(&H661F) & ChrW(&H671F) & ChrW(&H4E8C), _
ChrW(&H661F) & ChrW(&H671F) & ChrW(&H4E09), _
ChrW(&H661F) & ChrW(&H671F) & ChrW(&H56DB), _
ChrW(&H661F) & ChrW(&H671F) & ChrW(&H4E94), _
ChrW(&H661F) & ChrW(&H671F) & ChrW(&H516D), "Chinois (Cantonais)")
Case 37: langue = Array("Diminche", "Lundi", "Mardi", "Mékerdi", "Judi", "Verdi", "Sinmdi", "Ch'ti")
Case 38: langue = Array(ChrW(&HC77C) & ChrW(&HC694) & ChrW(&HC77C), _
ChrW(&HC6D4) & ChrW(&HC694) & ChrW(&HC77C), _
ChrW(&HD654) & ChrW(&HC694) & ChrW(&HC77C), _
ChrW(&HC218) & ChrW(&HC694) & ChrW(&HC77C), _
ChrW(&HBAA9) & ChrW(&HC694) & ChrW(&HC77C), _
ChrW(&HAE08) & ChrW(&HC694) & ChrW(&HC77C), _
ChrW(&HD1A0) & ChrW(&HC694) & ChrW(&HC77C), "Coréen")
Case 39: langue = Array("Dy' Sul", "Dy' Lun", "Dy' Meurth", "Dy' Mergher", "Dy' Yow", "Dy' Gwener", "Dy' Sadorn", "Cornique")
Case 40: langue = Array("Dumenica", "Luni", "Martì", "Mercurì", "Ghjovi", "Venneri", "Sabatu", "Corse")
Case 41: langue = Array("Svêdiens", "Pirmedien", "Uoatirdien", "Tre" & ChrW(353) & "edien", ChrW(268) & "etirdien", "Piegdien", "Pussvêts", "Couronien")
Case 42: langue = Array("Dimanch", "Lendi", "Madi", "Mèkredi", "Jedi", "Vandredi", "Samdi", "Créole (Haïti)")
Case 43: langue = Array("Dimanch", "Lendi", "Mardi", "Merkrèdì", "Jédi", "Vantrèdi", "Sanmdi", "Créole (Martinique)")
Case 44: langue = Array("Dimans", "Lïndi", "Mardi", "Merkrëdi", "Zhëdi", "Vandrëdi", "Samedi", "Créole (Maurice)")
Case 45: langue = Array("Dimansh", "Lïndi", "Mardi", "Mëkredi", "Zhëdi", "Vandrëdi", "Samedi", "Créole (Réunion)")
Case 46: langue = Array("Dimanch", "Lendi", "Mandi", "Mèkwèdi", "Jendi", "Vandwèdi", "Samdi", "Créole (Sainte-Lucie)")
Case 47: langue = Array("Dimans", "Lendi", "Mardi", "Merkredi", "Zedi", "Vandredi", "Sanmdi", "Créole (Seychelles)")
Case 48: langue = Array(ChrW(&H140A) & ChrW(&H1526) & ChrW(&H14A5) & ChrW(&H1405) & ChrW(&H146D) & ChrW(&H1526) & ChrW(&H1472), _
ChrW(&H140A) & ChrW(&H14C4) & ChrW(&H146D) & ChrW(&H1403) & ChrW(&H146D) & ChrW(&H146D) & ChrW(&H1472), _
ChrW(&H146D) & ChrW(&H148B) & ChrW(&H140A) & ChrW(&H14C4) & ChrW(&H146D) & ChrW(&H1403) & ChrW(&H146D) & ChrW(&H146D) & ChrW(&H1472), _
ChrW(&H140A) & ChrW(&H1431) & ChrW(&H1455) & ChrW(&H1418) & ChrW(&H1423), _
ChrW(&H146D) & ChrW(&H148B) & ChrW(&H140A) & ChrW(&H1431) & ChrW(&H1455) & ChrW(&H1418) & ChrW(&H1423), _
ChrW(&H1438) & ChrW(&H1526) & ChrW(&H1531) & ChrW(&H1472) & ChrW(&H14C2) & ChrW(&H146D) & ChrW(&H1528) & ChrW(&H1472), _
ChrW(&H14AA) & ChrW(&H144E) & ChrW(&H14C7) & ChrW(&H1405) & ChrW(&H1476) & ChrW(&H1528) & ChrW(&H1472), "Cri")
Case 49: langue = Array("S" & ChrW(248) & "ndag", "Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "L" & ChrW(248) & "rdag", "Danois")
Case 50: langue = Array("Q'unodle dranh", "Ge" & ChrW(322) & "ix nixinithdo" & ChrW(322) & "di", "Nodi nixinithdo" & ChrW(322) & "di", "Toxdi nixinithdo" & ChrW(322) & "di", _
"Diniyhdi nixinithdo" & ChrW(322) & "di", "Nelang tr'ithondi", "Ttha" & ChrW(322) & "ghun' tonxalyaxdi dranh", "Deg Xinag")
Case 51: langue = Array("Chieng Nyasaye", "Mok tich", "Tich ariyo", "Tich adek", "Tich angwen", "Tich a bich", "Chieng’ Ngeso", "Dholuo")
Case 52: langue = Array("Drai hmitrötr", "Thupene hmi", "Drai ange dic", "Drai menu", "Drai kaco", "Drai katru", "Drai meci xen", "Drehu")
Case 53: langue = Array("Didòmhnaich", "Diluain", "Dimàirt", "Diciadain", "Diardaoin", "Dihaoine", "Disathairne", "Écossais")
Case 54: langue = Array("Domingo", "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado", "Espagnol")
Case 55: langue = Array("Doman" & ChrW(265) & "o", "Lundo", "Mardo", "Merkredo", ChrW(308) & "a" & ChrW(365) & "do", "Vendredo", "Sabato", "Espéranto " & ChrW(9775))
Case 56: langue = Array("Pühapäev", "Esmaspäev", "Teisipäev", "Kolmapäev", "Nejapäev", "Reede", "Laupäev", "Estonien")
Case 57: langue = Array("Domingu", "Lunis", "Martis", "Miércuris", "Huevis", "Vienris", "Sabau", "Estrémadurien")
Case 58: langue = Array("Sunnudagur", "Mánadagur", "Týsdagur", "Mikudagur", "Hósdagur", "Fríggjadagur", "Leygardagur", "Féroïen")
Case 59: langue = Array("Sunnudagur", "Mánadagur", "Týsdagur", "Mikudagur", "Hósdagur", "Fríggjadagur", "Leygardagur", "Ferrara")
Case 60: langue = Array("Sigatabu", "M" & ChrW(333) & "niti", "T" & ChrW(363) & "siti", "Vukelulu", "Lotulevu", "Vakaraubuka", "Vakarauwai", "Fidjien")
Case 61: langue = Array("Sunnuntai", "Maanantai", "Tiistai", "Keskiviikko", "Torstai", "Perjantai", "Lauantai", "Finnois")
Case 62: langue = Array("Saandag", "Maandag", "Densdag", "Midwich", "Dorsdag", "Freidag", "Samstag", "Folkspraak " & ChrW(9775))
Case 63: langue = Array("Dimanche", "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Français")
Case 64: langue = Array("Dûemoinne", "Yundi", "Maîdgi", "Métieudgi", "Djûdi", "Vardi", "Sainm’di", "Franc-comtois")
Case 65: langue = Array("Domenie", "Lunis", "Martars", "Miercus", "Joibe", "Vinars", "Sàbide", "Frioulan")
Case 66: langue = Array("Sennedei", "Monnendei", "Tirsdei", "Winsdei", "Türsdei", "Frideisennin", "Sennin", "Frisien (Nord)")
Case 67: langue = Array("Sundai", "Moundai", "Täisdai", "Midwiek", "Tuunsdai", "Fräindai", "Snäiwende", "Frisien (Saterland)")
Case 68: langue = Array("Snein", "Moandei", "Tiisdei", "Woansdei", "Tongersdei", "Freed", "Sneon", "Frisien (Ouest)")
Case 69: langue = Array(ChrW(1055) & ChrW(1072) & ChrW(1079) & ChrW(1072) & ChrW(1088), _
ChrW(1055) & ChrW(1072) & ChrW(1079) & ChrW(1077) & ChrW(1088) & ChrW(1090) & ChrW(1077) & ChrW(1089) & ChrW(1080), _
ChrW(1057) & ChrW(1072) & ChrW(1083) & ChrW(1080), _
ChrW(1063) & ChrW(1072) & ChrW(1088) & ChrW(1096) & ChrW(1072) & ChrW(1084) & ChrW(1073) & ChrW(1072), _
ChrW(1055) & ChrW(1077) & ChrW(1088) & ChrW(1096) & ChrW(1077) & ChrW(1084) & ChrW(1073) & ChrW(1235), _
ChrW(1217) & ChrW(1091) & ChrW(1084) & ChrW(1072) & ChrW(1072), _
ChrW(1217) & ChrW(1091) & ChrW(1084) & ChrW(1077) & ChrW(1088) & ChrW(1090) & ChrW(1077) & ChrW(1089) & ChrW(1080), "Gagaouze")
Case 70: langue = Array("Domingo", "Luns", "Martes", "Mércores", "Xoves", "Venres", "Sábado", "Galicien")
Case 71: langue = Array("Dydd Sul", "Dydd Llun", "Dydd Mawrth", "Dydd Mercher", "Dydd Iau", "Dydd Gwener", "Dydd Sadwrn", "Gallois")
Case 72: langue = Array("Dimenge", "Diluns", "Dimarc", "Dimèrcs", "Dijaus", "Diveis", "Dissabte", "Gascon")
Case 73: langue = Array(ChrW(4313) & ChrW(4309) & ChrW(4312) & ChrW(4320) & ChrW(4304), _
ChrW(4317) & ChrW(4320) & ChrW(4328) & ChrW(4304) & ChrW(4306) & ChrW(4304) & ChrW(4311) & ChrW(4312), _
ChrW(4321) & ChrW(4304) & ChrW(4315) & ChrW(4328) & ChrW(4304) & ChrW(4306) & ChrW(4304) & ChrW(4311) & ChrW(4312), _
ChrW(4317) & ChrW(4311) & ChrW(4334) & ChrW(4328) & ChrW(4304) & ChrW(4306) & ChrW(4304) & ChrW(4311) & ChrW(4312), _
ChrW(4334) & ChrW(4323) & ChrW(4311) & ChrW(4328) & ChrW(4304) & ChrW(4306) & ChrW(4304) & ChrW(4311) & ChrW(4312), _
ChrW(4318) & ChrW(4304) & ChrW(4320) & ChrW(4304) & ChrW(4321) & ChrW(4313) & ChrW(4308) & ChrW(4309) & ChrW(4312), _
ChrW(4328) & ChrW(4304) & ChrW(4306) & ChrW(4304) & ChrW(4311) & ChrW(4312), "Géorgien")
Case 74: langue = Array(ChrW(922) & ChrW(965) & ChrW(961) & ChrW(953) & ChrW(945) & ChrW(954) & ChrW(942), _
ChrW(916) & ChrW(949) & ChrW(965) & ChrW(964) & ChrW(941) & ChrW(961) & ChrW(945), _
ChrW(932) & ChrW(961) & ChrW(943) & ChrW(964) & ChrW(951), _
ChrW(932) & ChrW(949) & ChrW(964) & ChrW(940) & ChrW(961) & ChrW(964) & ChrW(951), _
ChrW(928) & ChrW(941) & ChrW(956) & ChrW(960) & ChrW(964) & ChrW(951), _
ChrW(928) & ChrW(945) & ChrW(961) & ChrW(945) & ChrW(963) & ChrW(954) & ChrW(949) & ChrW(965) & ChrW(942), _
ChrW(931) & ChrW(940) & ChrW(946) & ChrW(946) & ChrW(945) & ChrW(964) & ChrW(959), "Grec")
Case 75: langue = Array("Sapaat", "Ataasinngorneq", "Marlunngorneq", "Pingasunngorneq", "Sisamanngorneq", "Tallimanngorneq", "Arfininngorneq", "Groenlandais")
Case 76: langue = Array("Zundag", "Moandag", "Dingsdag", "Wonsdag", "Dunderdag", "Vraaidag", "Zoaterdag", "Groningois")
Case 77: langue = Array("Arateî", "Arakôi", "Araapy", "Ararundy", "Arapo", "Arapoteî", "Arapokôi", "Guaraní")
Case 78: langue = Array("Dinmanche", "Lundi", "Mardi", "Méquerdi", "Jeudi", "Venderdi", "Samedi", "Guernésiais")
Case 79: langue = Array("Lahadi", "Litinin", "Talata", "Laraba", "Alhamis", "Juma'a", "Asabar", "Hausa")
Case 80: langue = Array("Njed" & ChrW(378) & "ela", "Pónd" & ChrW(378) & "ela", "Wutora", "Srjeda", ChrW(352) & "twórtk", "Pjatk", "Sobota", "Haut-sorabe")
Case 81: langue = Array("Lapule", "Po'akahi", "Po'alua", "Po'akolu", "Po'aha", "Po'alima", "Po'aono", "Hawaiien")
Case 82: langue = Array(ChrW(1497) & ChrW(1493) & ChrW(1501) & " " & ChrW(1512) & ChrW(1488) & ChrW(1513) & ChrW(1493) & ChrW(1503), _
ChrW(1497) & ChrW(1493) & ChrW(1501) & " " & ChrW(1513) & ChrW(1504) & ChrW(1497), _
ChrW(1497) & ChrW(1493) & ChrW(1501) & " " & ChrW(1513) & ChrW(1500) & ChrW(1497) & ChrW(1513) & ChrW(1497), _
ChrW(1497) & ChrW(1493) & ChrW(1501) & " " & ChrW(1512) & ChrW(1489) & ChrW(1497) & ChrW(1506) & ChrW(1497), _
ChrW(1497) & ChrW(1493) & ChrW(1501) & " " & ChrW(1514) & ChrW(1502) & ChrW(1497) & ChrW(1513) & ChrW(1497), _
ChrW(1497) & ChrW(1493) & ChrW(1501) & " " & ChrW(1513) & ChrW(1497) & ChrW(1513) & ChrW(1497), _
ChrW(1497) & ChrW(1493) & ChrW(1501) & " " & ChrW(1513) & ChrW(1489) & ChrW(1514), "Hébreu")
Case 83: langue = Array("Vasárnap", "Hétf" & ChrW(337), "Kedd", "Szerda", "Csütörtök", "Péntek", "Szombat", "Hongrois")
Case 84: langue = Array("Sundio", "Lundio", "Mardio", "Merkurdio", "Jovdio", "Venerdio", "Saturdio", "Ido " & ChrW(9775))
Case 85: langue = Array(ChrW(1050) & ChrW(1231) & ChrW(1080) & ChrW(1088) & ChrW(1072) & ChrW(1085) & ChrW(1076) & ChrW(1080), _
ChrW(1054) & ChrW(1088) & ChrW(1096) & ChrW(1086) & ChrW(1090), _
ChrW(1064) & ChrW(1080) & ChrW(1085) & ChrW(1072) & ChrW(1088) & ChrW(1072), _
ChrW(1050) & ChrW(1093) & ChrW(1072) & ChrW(1100) & ChrW(1088) & ChrW(1072), _
ChrW(1045) & ChrW(1088) & ChrW(1072), _
ChrW(1055) & ChrW(1231) & ChrW(1072) & ChrW(1100) & ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1082) & ChrW(1072), _
ChrW(1064) & ChrW(1086) & ChrW(1072) & ChrW(1090) & ChrW(1090) & ChrW(1072), "Ingouche")
Case 86: langue = Array("Sapaat", "Ataasinngorneq", "Marlunngorneq", "Pingasunngorneq", "Sisamanngorneq", "Tallimanngorneq", "Arfininngorneq", "Inuit")
Case 87: langue = Array("Dé Domhnaigh", "Dé Luan", "Dé Mairt", "Dé Céadaoin", "Déardaoin", "Dé h-Aoine", "Dé Sathairn", "Irlandais (Gaélique)")
Case 88: langue = Array("Di mo", "Di bi", "Di tri", "Di tetra", "Di penta", "Di sixa", "Di seti", "Interglossa " & ChrW(9775))
Case 89: langue = Array("Dominique", "Lundi", "Mardi", "Mercuridi", "Jovedi", "Vendredi", "Sabbato", "Interlingua " & ChrW(9775))
Case 90: langue = Array("Sunnudagur", "Mánudagur", ChrW(222) & "ri" & ChrW(240) & "judagur", "Mi" & ChrW(240) & "vikudagur", "Fimmtudagur", "Föstudagur", "Laugardagur", "Islandais")
Case 91: langue = Array("Domenica", "Lunedì", "Martedì", "Mercoledì", "Giovedì", "Venerdì", "Sabato", "Italien")
Case 92: langue = Array(ChrW(&H65E5) & ChrW(&H66DC) & ChrW(&H65E5), _
ChrW(&H6708) & ChrW(&H66DC) & ChrW(&H65E5), _
ChrW(&H706B) & ChrW(&H66DC) & ChrW(&H65E5), _
ChrW(&H6C34) & ChrW(&H66DC) & ChrW(&H65E5), _
ChrW(&H6728) & ChrW(&H66DC) & ChrW(&H65E5), _
ChrW(&H91D1) & ChrW(&H66DC) & ChrW(&H65E5), _
ChrW(&H571F) & ChrW(&H66DC) & ChrW(&H65E5), "Japonais")
Case 93: langue = Array("Dînmanche", "Lundi", "Mardi", "Mêcrédi", "Jeudi", "Vendrédi", "Sanm’di", "Jersiais")
Case 94: langue = Array("Niedzela", "Pòniedzô" & ChrW(322) & "k", "Wtórk", "Strzoda", "Czwiôrtk", "Pi" & ChrW(261) & "tk", "Sobòta", "Kachoube")
Case 95: langue = Array("Kotisap", "Kotaai", "Koaeng’", "Kosomok", "Koang’wan", "Komuut", "Kolo", "Kalendjin")
Case 96: langue = Array("Jechkiun", "Jechbaszkiun", "Ortakiun", "Chankiun", "Kiczibaraski", "Baraski", "Szabbatkiun", "Karaïm")
Case 97: langue = Array(ChrW(1046) & ChrW(1077) & ChrW(1082) & ChrW(1089) & ChrW(1077) & ChrW(1085) & ChrW(1073) & ChrW(1110), _
ChrW(1044) & ChrW(1091) & ChrW(1081) & ChrW(1089) & ChrW(1077) & ChrW(1085) & ChrW(1073) & ChrW(1110), _
ChrW(1057) & ChrW(1077) & ChrW(1081) & ChrW(1089) & ChrW(1077) & ChrW(1085) & ChrW(1073) & ChrW(1110), _
ChrW(1057) & ChrW(1241) & ChrW(1088) & ChrW(1089) & ChrW(1077) & ChrW(1085) & ChrW(1073) & ChrW(1110), _
ChrW(1041) & ChrW(1077) & ChrW(1081) & ChrW(1089) & ChrW(1077) & ChrW(1085) & ChrW(1073) & ChrW(1110), _
ChrW(1046) & ChrW(1201) & ChrW(1081) & ChrW(1072), _
ChrW(1057) & ChrW(1077) & ChrW(1085) & ChrW(1073) & ChrW(1110), "Kazakh")
Case 98: langue = Array("Sontaxtses hû" & ChrW(&H1C1) & "îtses", "Mantaxtses " & ChrW(&H1C2) & "gurotses", "Denstaxtses " & ChrW(&H1C0) & "gam" & ChrW(&H1C0) & "îtses", _
"Wunstaxtses !nona" & ChrW(&H1C1) & "îtses", "Donertaxtses haka" & ChrW(&H1C1) & "îtses", "Fraitaxtse koro" & ChrW(&H1C1) & "îtses", _
"Satertaxtses !nani" & ChrW(&H1C1) & "îtses", "Khoïkhoï")
Case 99: langue = Array(ChrW(1046) & ChrW(1077) & ChrW(1082) & ChrW(1096) & ChrW(1077) & ChrW(1084) & ChrW(1073) & ChrW(1080), _
ChrW(1044) & ChrW(1199) & ChrW(1096) & ChrW(&H4E9) & ChrW(1084) & ChrW(1073) & ChrW(1199), _
ChrW(1064) & ChrW(1077) & ChrW(1081) & ChrW(1096) & ChrW(1077) & ChrW(1084) & ChrW(1073) & ChrW(1080), _
ChrW(1064) & ChrW(1072) & ChrW(1088) & ChrW(1096) & ChrW(1077) & ChrW(1084) & ChrW(1073) & ChrW(1080), _
ChrW(1041) & ChrW(1077) & ChrW(1081) & ChrW(1096) & ChrW(1077) & ChrW(1084) & ChrW(1073) & ChrW(1080), _
ChrW(1046) & ChrW(1091) & ChrW(1084) & ChrW(1072), _
ChrW(1048) & ChrW(1096) & ChrW(1077) & ChrW(1084) & ChrW(1073) & ChrW(1080), "Kirghize")
Case 100: langue = Array("Kuwamungu", "Kuwambwere", "Kuwakabiri", "Kuwagatatu", "Kuwakane", "Kuwagatanu", "Kuwagatandatu", "Kirundi")
Case 101: langue = Array("N" & ChrW(477) & "má sk" & ChrW(&H2B7) & "á" & ChrW(269) & "i", "S" & ChrW(269) & "i" & ChrW(660) & "ik" & ChrW(&H2B7) & ChrW(620) & "nát", _
"Sc" & ChrW(477) & ChrW(331) & ChrW(477) & "nát", "S" & ChrW(620) & "x" & ChrW(&H2B7) & ChrW(620) & "nát", "S" & ChrW(331) & ChrW(477) & "s" & ChrW(620) & "nát", _
"S" & ChrW(331) & "q'" & ChrW(269) & ChrW(353) & ChrW(620) & "nát", "Q'" & ChrW(477) & "m'" & ChrW(660) & ChrW(477) + ChrW(&H301) & "t" & ChrW(477) & ChrW(331), "Klallam")
Case 102: langue = Array("Yek" & ChrW(&H15F) & "emme", "Dû" & ChrW(&H15F) & "emme", "Sê" & ChrW(&H15F) & "emme", "Çiwar" & ChrW(&H15F) & "emme", "Pênc" & ChrW(&H15F) & "emme", "Heynî", ChrW(&H15E) & "emme", "Kurde (Soranî)")
Case 103: langue = Array("Sunnuntai", "Maanantai", "Tiistai", "Keskiviikko", "Tuorestai", "Perjantai", "Lauvantai", "Kvène")
Case 104: langue = Array("Dumënia", "Lunesc", "Merdi", "Mierculdi", "Juebia", "Ven", "Sada", "Ladin")
Case 105: langue = Array(ChrW(&HFB4F) & ChrW(&H5D4) & ChrW(&H5D0) & ChrW(&H5D3), _
ChrW(&H5DC) & ChrW(&H5D5) & ChrW(&H5E0) & ChrW(&H5D9) & ChrW(&H5E1), _
ChrW(&H5DE) & ChrW(&H5D0) & ChrW(&H5E8) & ChrW(&H5D8) & ChrW(&H5D9) & ChrW(&H5E1), _
ChrW(&H5DE) & ChrW(&H5D9) & ChrW(&H5D9) & ChrW(&H5E8) & ChrW(&H5E7) & ChrW(&H5D5) & ChrW(&H5DC) & ChrW(&H5D9) & ChrW(&H5E1), _
ChrW(&H5D2) & ChrW(&H27) & ChrW(&H5D5) & ChrW(&H5D0) & ChrW(&H5D9) & ChrW(&H5D1) & ChrW(&H27) & ChrW(&H5D9) & ChrW(&H5E1), _
ChrW(&H5D1) & ChrW(&H27) & ChrW(&H5D9) & ChrW(&H5D9) & ChrW(&H5E8) & ChrW(&H5E0) & ChrW(&H5D9) & ChrW(&H5E1), _
ChrW(&H5E9) & ChrW(&H5D1) & ChrW(&H5EA), "Ladino")
Case 106: langue = Array(ChrW(1040) & ChrW(1083) & ChrW(1093) & ChrW(1231) & ChrW(1072) & ChrW(1090), _
ChrW(1048) & ChrW(1090) & ChrW(1085) & ChrW(1080), _
ChrW(1058) & ChrW(1090) & ChrW(1072) & ChrW(1083) & ChrW(1072) & ChrW(1090), _
ChrW(1040) & ChrW(1088) & ChrW(1074) & ChrW(1072) & ChrW(1093) & ChrW(1231), _
ChrW(1061) & ChrW(1072) & ChrW(1084) & ChrW(1080) & ChrW(1089), _
ChrW(1053) & ChrW(1102) & ChrW(1078) & ChrW(1084) & ChrW(1072) & ChrW(1088), _
ChrW(1061) & ChrW(1093) & ChrW(1091) & ChrW(1083) & ChrW(1083) & ChrW(1091) & ChrW(1085), "Lak")
Case 107: langue = Array("A" & ChrW(331) & "pétu wak" & ChrW(543) & "á" & ChrW(331), "A" & ChrW(331) & "pétu t" & ChrW(543) & "okáhe", "A" & ChrW(331) & "pétu nú" & ChrW(331) & "pa", _
"A" & ChrW(331) & "pétu yámni", "A" & ChrW(331) & "pétu tópa", "A" & ChrW(331) & "pétu zápta" & ChrW(331), _
"Owá" & ChrW(331) & "gyu" & ChrW(382) & "a" & ChrW(382) & "api", "Lakota")
Case 108: langue = Array("Sv" & ChrW(257) & "td" & ChrW(299) & "ne", "Pyrm" & ChrW(363) & "d" & ChrW(299) & "ne", ChrW(362) & "tard" & ChrW(299) & "ne", "Tre" & ChrW(353) & "d" & ChrW(299) & "ne", _
"Cat" & ChrW(363) & "rd" & ChrW(299) & "ne", "P" & ChrW(299) & "ktd" & ChrW(299) & "ne", "Sastd" & ChrW(299) & "ne", "Latgale")
Case 109: langue = Array("Di" & ChrW(275) & "s solis", "Di" & ChrW(275) & "s l" & ChrW(363) & "nae", "Di" & ChrW(275) & "s martis", "Di" & ChrW(275) & "s mercur" & ChrW(299), _
"Di" & ChrW(275) & "s iovis", "Di" & ChrW(275) & "s veneris", "Di" & ChrW(275) & "s saturn" & ChrW(299), "Latin")
Case 110: langue = Array("Dominica", "Secunda feria", "Tertia feria", "Quarta feria", "Quinta feria", "Sexta feria", "Sabbatum", "Latin (Curé)")
Case 111: langue = Array("Dominicus", "Lun" & ChrW(230) & " dies", "Martis dies", "Mercurii dies", "Iovis dies", "Veneris dies", "Sabbatum", "Latin (POP)")
Case 112: langue = Array("Sv" & ChrW(275) & "tdiena", "Pirmdiena", "Otrdiena", "Tre" & ChrW(353) & "diena", "Ceturtdiena", "Piektdiena", "Sestdiena", "Latvian")
Case 113: langue = Array("Sv" & ChrW(257) & "td" & ChrW(299) & "ne", "Pyrm" & ChrW(363) & "d" & ChrW(299) & "ne", ChrW(362) & "tard" & ChrW(299) & "ne", "Tre" & ChrW(353) & "d" & ChrW(299) & "ne", _
"Cat" & ChrW(363) & "rtd" & ChrW(299) & "ne", "P" & ChrW(299) & "ktd" & ChrW(299) & "ne", "Sastd" & ChrW(299) & "ne", "Letgallo")
Case 114: langue = Array("Sv" & ChrW(275) & "tdiena", "Pirmdiena", "Otrdiena", "Tre" & ChrW(353) & "diena", "Ceturtdiena", "Piektdiena", "Sestdiena", "Letton")
Case 115: langue = Array("Duménnega", "Lûnedí", "Martedí", "Merculedí", "Zœggia", "Venardí", "Sabbu", "Ligurien")
Case 116: langue = Array("Zóndig", "Maondig", "Daensdig", "Goonsdig", "Dónderdig", "Vriedig", "Zaoterdig", "Limbourgeois")
Case 117: langue = Array("Argent", "Lundi", "Mardi", "Mercurdi", "Jovedi", "Vendredi", "Saturdi", "Lingua franca nova " & ChrW(9775))
Case 118: langue = Array("Lomíngo", "Mok" & ChrW(&H254) & "l" & ChrW(&H254) & " ya libosó", "Mok" & ChrW(&H254) & "l" & ChrW(&H254) & " ya míbalé", _
"Mok" & ChrW(&H254) & "l" & ChrW(&H254) & " ya mísáto", "Mok" & ChrW(&H254) & "l" & ChrW(&H254) & " ya mínéi", _
"Mok" & ChrW(&H254) & "l" & ChrW(&H254) & " ya mítáno", "Mp" & ChrW(&H254) + ChrW(&H301) & "s" & ChrW(&H254), "Lingala")
Case 119: langue = Array("Sekmadienis", "Pirmadienis", "Antradienis", "Tre" & ChrW(269) & "iadienis", "Ketvirtadienis", "Penktadienis", ChrW(352) & "e" & ChrW(353) & "tadienis", "Lituanien")
Case 120: langue = Array("Piv" & ChrW(257) & "p" & ChrW(479) & "va", "E" & ChrW(382) & ChrW(382) & ChrW(245) & "mp" & ChrW(479) & "va", "Tuoiznap" & ChrW(479) & "va", _
"Kuolm" & ChrW(245) & "ndp" & ChrW(479) & "va", "Ne" & ChrW(316) & ChrW(316) & ChrW(245) & "ndp" & ChrW(479) & "va", _
"Br" & ChrW(275) & ChrW(263) & "ig", "P" & ChrW(363) & "olp" & ChrW(479) & "va", "Livonien")
Case 121: langue = Array("Soldei", "Lurdei", "Fagdei", "Jaurdei", "Mudydei", "Jemdei", "Tedydei", "Lojban " & ChrW(9775))
Case 122: langue = Array("Domenega", "Lundesdì", "Mardi", "Mercoldi", "Gioeubia", "Venardi", "Sabet", "Lombard (occidental)")
Case 123: langue = Array("Ssande", "Olwokusooka", "Olwokubiri", "Olwokusatu", "Olwokuna", "Olwokutaano", "Olwomukaaga", "Luganda")
Case 124: langue = Array("Chieng'-odira", "Wuok-tich", "Tich-ariyo", "Tich-adek", "Tich-ang'wen", "Tich-abich", "Chieng' ngeso", "Luo")
Case 125: langue = Array("Sonndeg", "Méindeg", "Dënschdeg", "Mëttwoch", "Donneschdeg", "Freideg", "Samschdeg", "Luxembourgeois")
Case 126: langue = Array("Il-" & ChrW(295) & "add", "It-tnejn", "It-tlieta", "L-erbg" & ChrW(295) & "a", "Il-" & ChrW(295) & "amis", "Il-" & ChrW(289) & "img" & ChrW(295) & "a", "Is-sibt", "Maltais")
Case 127: langue = Array("Nedela", "Ponedelnik", "Vtornik", "Sreda", "Chetvrtok", "Petok", "Sabota", "Macédonien")
Case 128: langue = Array("Ahad", "Isnin", "Selasa", "Rabu", "Khamis", "Jumaat", "Sabtu", "Malais")
Case 129: langue = Array("Alahady", "Alatsinainy", "Talata", "Alarobia", "Alakamisy", "Zoma", "Sabotsy", "Malgache")
Case 130: langue = Array("Jedoonee", "Jelhune", "Jemayrt", "Jecrean", "Jerdein", "Jeheiney", "Jesarn", "Manxois")
Case 131: langue = Array("R" & ChrW(257) & "tapu", "R" & ChrW(257) & "hine", "R" & ChrW(257) & "t" & ChrW(363), "R" & ChrW(257) & "apa", "R" & ChrW(257) & "pare", "R" & ChrW(257) & "mere", _
"R" & ChrW(257) & "horoi", "Maori")
Case 132: langue = Array("Domingku", "Lune", "Marte", "Myerkole", "Kwefe", "Fyerne", "Safado", "Mapuche")
Case 133: langue = Array("J" & ChrW(257) & "dede", "Jab" & ChrW(333) & "t", "M" & ChrW(&H327) & "ande", "Juje", "W" & ChrW(333) & "nje", "Taije", "B" & ChrW(333) & "raide", "Marshallais")
Case 134: langue = Array("Kazi navishana", "Kazi nabo", "Kazi are", "kazi uni", "Kazi ogwuan", "Kazi emiete", "Kazi Eile", "Masaï")
Case 135: langue = Array("Aqantie'umg", "Elugutimg", "Ta'puowei", "Si'stewei", "Ne'wowei", "Weltamultimg", "Gesp'teg", "Micmac")
Case 136: langue = Array(ChrW(1044) & ChrW(1091) & ChrW(1084) & ChrW(1080) & ChrW(1085) & ChrW(1080) & ChrW(1082) & ChrW(1101), _
ChrW(1051) & ChrW(1091) & ChrW(1085) & ChrW(1100), _
ChrW(1052) & ChrW(1072) & ChrW(1088) & ChrW(1094) & ChrW(1100), _
ChrW(1052) & ChrW(1077) & ChrW(1088) & ChrW(1082) & ChrW(1091) & ChrW(1088) & ChrW(1100), _
ChrW(1046) & ChrW(1086) & ChrW(1081), _
ChrW(1042) & ChrW(1080) & ChrW(1085) & ChrW(1077) & ChrW(1088) & ChrW(1100), _
ChrW(1057) & ChrW(1100) & ChrW(1231) & ChrW(1084) & ChrW(1073) & ChrW(1101) & ChrW(1090) & ChrW(1101), "Moldave")
Case 137: langue = Array("Dumenëga", "Lünesdi", "Metesdi", "Mercuredi", "Zœgia", "Venardi", "Sabu", "Monégasque")
Case 138: langue = Array(ChrW(1053) & ChrW(1103) & ChrW(1084), _
ChrW(1044) & ChrW(1072) & ChrW(1074) & ChrW(1072) & ChrW(1072), _
ChrW(1052) & ChrW(1103) & ChrW(1075) & ChrW(1084) & ChrW(1072) & ChrW(1088), _
ChrW(1051) & ChrW(1093) & ChrW(1072) & ChrW(1075) & ChrW(1074) & ChrW(1072), _
ChrW(1055) & ChrW(1199) & ChrW(1088) & ChrW(1101) & ChrW(1074), _
ChrW(1041) & ChrW(1072) & ChrW(1072) & ChrW(1089) & ChrW(1072) & ChrW(1085), _
ChrW(1041) & ChrW(1103) & ChrW(1084) & ChrW(1073) & ChrW(1072), "Mongol")
Case 139: langue = Array("Tonatiuhtonal", "Metztlitonal", "Huitzilopochtonal", "Yacatlipotonal", "Tezcatlipotonal", "Quetzalcoatonal", "Tlaloctitonal", "Nahuatl")
Case 140: langue = Array("Dummeneca", "Lunnerì", "Marterì", "Miercurì", "Gioverì", "Viernarì", "Sàbbato", "Napolitain")
Case 141: langue = Array("uSonto", "uMvulo", "uLesibili", "uLesithathu", "uLesine", "uLesihlanu", "uMgqibelo", "Ndebele du Sud")
Case 142: langue = Array("Zondag", "Maandag", "Dinsdag", "Woensdag", "Donderdag", "Vrijdag", "Zaterdag", "Néerlandais")
Case 143: langue = Array("Dîmmaunche", "Lundi", "Mardi", "Mercrédi", "Jéeudi", "Vendrédi", "Sammedi", "Normand")
Case 144: langue = Array("Sunnudagr", "Mánadagr", "Týsdagr", ChrW(211) & ChrW(240) & "insdagr", ChrW(222) & ChrW(243) & "rsdagr", "Fr" & ChrW(225) & "dagr", "Laugardagr", "Norrois")
Case 145: langue = Array("S" & ChrW(248) & "ndag", "Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "L" & ChrW(248) & "rdag", "Norvégien Bokm" & ChrW(229) & "l")
Case 146: langue = Array("Sundag", "M" & ChrW(229) & "ndag", "Tysdag", "Onsdag", "Torsdag", "Fredag", "laurdag", "Norvégien Nynorsk")
Case 147: langue = Array("Sundie", "Lundie", "Mardie", "Merkurdie", "Jodie", "Venerdie", "Saturdie", "Novial " & ChrW(9775))
Case 148: langue = Array("Dimenge", "Diluns", "Dimars", "Dimècres", "Dijóus", "Divendres", "Dissabte", "Occitan")
Case 149: langue = Array("Dilbata", "Wiixata", "Qibxata", "Roobii", "Kamiisa", "Jimaata", "Sanbata", "Oromo")
Case 150: langue = Array(ChrW(1061) & ChrW(1091) & ChrW(1099) & ChrW(1094) & ChrW(1072) & ChrW(1091) & ChrW(1073) & ChrW(1086) & ChrW(1085), _
ChrW(1050) + ChrW(1098) & ChrW(1091) & ChrW(1099) + ChrW(1088) & ChrW(1080) & ChrW(1089) & ChrW(230) & ChrW(1088), _
ChrW(1044) + ChrW(1099) & ChrW(1094) & ChrW(1094) & ChrW(230) & ChrW(1088), _
ChrW(198) + ChrW(1088) & ChrW(1090) & ChrW(1099) & ChrW(1094) & ChrW(1094) & ChrW(230) & ChrW(1075), _
ChrW(1062) + ChrW(1099) & ChrW(1087) & ChrW(1087) & ChrW(230) & ChrW(1088) + ChrW(230) & ChrW(1084), _
ChrW(1052) + ChrW(1072) & ChrW(1081) & ChrW(1088) + ChrW(230) & ChrW(1084) & ChrW(1073) & ChrW(1086) & ChrW(1085), _
ChrW(1057) + ChrW(1072) & ChrW(1073) & ChrW(1072) & ChrW(1090), "Ossète")
End Select
'ATTENTION ! si l'on rajoute une nouvelle langue, déplacer dans la "subfonction" "BlocLangues2" la dernière langue pour ne pas dépasser 150 langues
NbLangues = 150 'nombre de langues répertoriées dans la fonction
If transcription Then 'la langue choisie est dans un alphabet abscons
'ATTENTION ! Chaque "Case" doit porter le même numéro que celui de la langue en alphabet ésotérique qui est latinisée
'Ensemble des langues en alphabets abscons qui sont latinisées
Select Case ChxLangue
Case 1: latinisation = Array("Amçy" & ChrW(353), "A" & ChrW(353) & ChrW(1241) & "ax’", "Aoa" & ChrW(353), "Axa" & ChrW(353), "A" & ChrW(&H1E57) & ChrW(353) & "'a" & ChrW(353), "Ax" & ChrW(1241) & "a" & ChrW(353), "Asab" & ChrW(353), "Abkhaze")
Case 9: latinisation = Array("Ehud", "Senyo", "Maksenyo", "Voler", "Hamus", "Aarb", "Kidami", "Amharique")
Case 13: latinisation = Array("Kiraki", "Erku" & ChrW(353) & "abt'i", "Erek'" & ChrW(353) & "abt'i", ChrW(268) & "orek" & ChrW(353) & "abt'i", "Hing" & ChrW(353) & "abt'i", "Urbat '", "Sabat '", "Arménien")
Case 23: latinisation = Array("Njadzielja", "Panjadzielak", "A" & ChrW(365) & "torak", "Sierada", ChrW(268) & "ac'vier", "Pjatnica", "Sybota", "Biélorusse")
Case 27: latinisation = Array("Nedelja", "Ponedelnik", "Vtornik", "Srjadá", ChrW(268) & "etv" & ChrW(259) & "rt" & ChrW(259) & "k", "Pet" & ChrW(259) & "k", "S" & ChrW(259) & "bota", "Bulgare")
Case 36: latinisation = Array("X" & ChrW(299) & "ng q" & ChrW(299) & " rì", "X" & ChrW(299) & "ng q" & ChrW(299) & " y" & ChrW(299), "X" & ChrW(299) & "ng q" & ChrW(299) & " èr", _
"X" & ChrW(299) & "ng q" & ChrW(299) & " s" & ChrW(257) & "n", "X" & ChrW(299) & "ng q" & ChrW(299) & " sì", "X" & ChrW(299) & "ng q" & ChrW(299) & " w" & ChrW(365), _
"X" & ChrW(299) & "ng q" & ChrW(299) & " liù", "Chinois (Cantonais)")
Case 38: latinisation = Array("Ilyoil", "Wolyoil", "Hwayoil", "Suyoil", "Mokyoil", "Geumyoil", "Toyoil", "Coréen")
Case 69: latinisation = Array("Pazar", "Pazertesi", "Sali", "Çar" & ChrW(351) & "amba", "Per" & ChrW(351) & "amb" & ChrW(1235), "Cumaa", "Cumertesi", "Gagaouze")
Case 73: latinisation = Array("Kvira", "Or" & ChrW(353) & "abat'i", "Sam" & ChrW(353) & "abat'i", "Ot'x" & ChrW(353) & "abat'i", "Xut'" & ChrW(353) & "abat'i", "Paraskevi", ChrW(352) & "abat'i", "Géorgien")
Case 74: latinisation = Array("Kyriak" & ChrW(7703), "Deytéra", "Trít" & ChrW(275), "Tetárt" & ChrW(275), "Pémpt" & ChrW(275), "Paraskey" & ChrW(7703), "Sávvato", "Grec")
Case 82: latinisation = Array("Yôm ri'" & ChrW(353) & "ôn", "Yôm " & ChrW(353) & "enî", "Yôm " & ChrW(353) & "lî" & ChrW(353) & "î", "Yôm rvî" & ChrW(&H2BF) & "î", "Yôm hamî" & ChrW(353) & "î", "Yôm " & ChrW(353) & "i" & ChrW(353) & "î", "Yôm " & ChrW(353) & "abat", "Hébreu")
Case 85: latinisation = Array("K’irandi", "Orshot", "Shinara", "Qära", "Era", "P’äraska", "Shoatta", "Ingouche")
Case 92: latinisation = Array("Nichiy" & ChrW(333) & "bi", "Getsuy" & ChrW(333) & "bi", "Kay" & ChrW(333) & "bi", "Suiy" & ChrW(333) & "bi", "Mokuy" & ChrW(333) & "bi", "Kiny" & ChrW(333) & "bi", "Doy" & ChrW(333) & "bi", "Japonais")
Case 97: latinisation = Array("Zheksenbe", "Düysenbi", "Seysenbi", "Särsenbi", "Beysenbi", "Juma", "Senbi", "Kazakh")
Case 99: latinisation = Array("Jek" & ChrW(&H219) & "embi", "Dü" & ChrW(&H219) & "ömbü", ChrW(&H218) & "ey" & ChrW(&H219) & "embi", ChrW(&H218) & "ar" & ChrW(&H219) & "embi", "Bey" & ChrW(&H219) & "embi", "Juma", "I" & ChrW(&H219) & "embi", "Kirghize")
Case 105: latinisation = Array("Alhad", "Lunes", "Martes", "Mierkoles", "Djueves", "Viernes", "Shabat", "Ladino")
Case 106: latinisation = Array("Al" & ChrW(&H1E29) & "at", "Itni", "Ttalat", "Arva" & ChrW(&H1E29), "Xamis", "Nju" & ChrW(382) & "mar", "Xxullun", "Lak")
Case 136: latinisation = Array("duminic" & ChrW(259), "Luni", "Mar" & ChrW(355) & "i", "Miercuri", "Joi", "Vineri", "Sâmb" & ChrW(259) & "t" & ChrW(259), "Moldave")
Case 138: latinisation = Array("Nyam", "Davaa", "Myagmar", "Lkhagva", "Pürev", "Baasan", "Byamba", "Mongol")
End Select
On Error Resume Next 'sinon curieusement ça plante
BlocLangues1 = latinisation(WeekDay(fecha) - 1) 'jour de la semaine latinisé (Option Base 0). Si ce n'est pas le cas --> ""
ElseIf NbItems Then
BlocLangues1 = NbLangues 'nombre total de langues répertoriées dans la fonction
ElseIf NomLangue = 1 Then
BlocLangues1 = langue(7) 'nom de la langue choisie
ElseIf NomLangue = 2 Then
BlocLangues1 = LangueRef(WeekDay(fecha) - 1) 'jour de la semaine, correspondant á la date "fecha", dans une langue compréhensible (Option Base 0)
ElseIf NomLangue = 3 Then
BlocLangues1 = LangueRef(7) 'nom de la langue compréhensible
Else
BlocLangues1 = langue(WeekDay(fecha) - 1) 'jour de la semaine, correspondant á la date "fecha", dans la langue choisie (Option Base 0)
End If
End Function
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Function BlocLangues2$(Optional fecha As Date, Optional ChxLangue%, Optional NomLangue As Byte, Optional NbItems As Boolean = False, Optional transcription As Boolean = False, Optional LangueBase As Byte)
'********************************************************************************
'Renvoie, en différentes langues, le jour de la semaine correspondant à une date
'PART III
'Magic_Doctor
'********************************************************************************
'Limité à 150 langues
'- fecha : une date
'- ChxLangue : choix de la langue. Ex : 1 --> Sercquiais | 2 --> Sesotho | 3 --> Shona |...
'- NomLangue : 1 --> nom de la langue choisie dans la matrice "langue"
' 2 --> jour de la semaine, correspondant á la date "fecha", dans la matrice "LangueRef"
' 3 --> nom de la langue compréhensible dans la matrice "LangueRef"
'- NbItems : si True --> nombre de langues répertoriées dams la fonction
'- transcription : si True --> vérifie si la langue choisie est dans un alphabet ésotérique (grec, cyrillique...) et recherche sa transcription latinisée
'- LangueBase : 1 --> matrice "LangueRef" pour français | 2 --> matrice "LangueRef" pour espagnol |...
'ATTENTION ! Après toute modification, ne pas oublier de mettre à jour "NbLangues" & les "Case" de "latinisation"
Dim langue, NbLangues As Byte, latinisation, LangueRef
'Les langues de base (compréhensibles)
Select Case LangueBase
Case 1: LangueRef = Array("Dimanche", "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Français")
Case 2: LangueRef = Array("Domingo", "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado", "Espagnol")
Case 3: LangueRef = Array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Anglais")
Case 4: LangueRef = Array("Domingo", "Segunda-feira", "Terça-feira", "Quarta-feira", "Quinta-feira", "Sexta-feira", "Sábado", "Portugais")
Case 5: LangueRef = Array("Domenica", "Lunedì", "Martedì", "Mercoledì", "Giovedì", "Venerdì", "Sabato", "Italien")
End Select
'Ensemble des langues avec lesquelles on veut indiquer les noms des jours de la semaine (quel que soit leur alphabet)
Select Case ChxLangue
Case 1: langue = Array(ChrW(1071) & ChrW(1082) & ChrW(1096) & ChrW(1072) & ChrW(1085) & ChrW(1073) & ChrW(1072), _
ChrW(1044) + ChrW(1091) & ChrW(1096) & ChrW(1072) + ChrW(1085) & ChrW(1073) & ChrW(1072), _
ChrW(1057) + ChrW(1077) & ChrW(1096) & ChrW(1072) + ChrW(1085) & ChrW(1073) & ChrW(1072), _
ChrW(1063) + ChrW(1086) & ChrW(1088) & ChrW(1096) & ChrW(1072) + ChrW(1085) & ChrW(1073) & ChrW(1072), _
ChrW(1055) + ChrW(1072) & ChrW(1081) & ChrW(1096) & ChrW(1072) + ChrW(1085) & ChrW(1073) & ChrW(1072), _
ChrW(1046) + ChrW(1091) & ChrW(1084) & ChrW(1072), _
ChrW(1064) + ChrW(1072) & ChrW(1085) & ChrW(1073) & ChrW(1072), "Ouzbek")
Case 2: langue = Array("Domingo", "Lunes", "Martes", "Miercules", "Huebes", "Biernes", "Sabado", "Pampangue")
Case 3: langue = Array("Djadomingo", "Djaluna", "Djamars", "Djarason", "Djaweps", "Djabièrna", "Djasabra", "Papiamento")
Case 4: langue = Array("Dumìnica", "Lùnes", "Màrtes", "Mèrcol", "Giòbia", "Vënner", "Saba", "Piémontais")
Case 5: langue = Array("Sinndag", "Moondag", "Dinjsdag", "Meddweakj", "Donnadag", "Friedag", "Sinnovend", "Plautdietsch")
Case 6: langue = Array("Dimenche", "Léndi", "Mardi", "Mécrdi", "Jheùdi", "Vendrdi", "Sémedi", "Poitevin")
Case 7: langue = Array("Niedziela", "Poniedzia" & ChrW(322) & "ek", "Wtorek", ChrW(346) & "roda", "Czwartek", "Pi" & ChrW(261) & "tek", "Sobota", "Polonais")
Case 8: langue = Array("Domingo", "Segunda-feira", "Terça-feira", "Quarta-feira", "Quinta-feira", "Sexta-feira", "Sábado", "Portugais")
Case 9: langue = Array("Dewo", "Aa" & ChrW(595) & "nde", "Mawbaare", "Njeslaare", "Naasaande", "Mawnde", "Hoore-Biir", "Poular")
Case 10: langue = Array("Nedela", "Pondelek", "Tork", "Srejda", ChrW(268) & "etertek", "Petek", "Subota", "Prekmure")
Case 11: langue = Array("Dimanche", "Dilun", "Dimars", "Dimècre", "Dijoù", "Divèndre", "Dissate", "Provençal")
Case 12: langue = Array("Nadîli", "Punadîli", "Wisasîdis", "Pussisawaiti", "Ketwirtiks", "P" & ChrW(275) & "ntniks", "Sabattika", "Prussien")
Case 13: langue = Array("Intichaw", "Killachaw", "Atichaw", "Quyllurchaw", "Illapachaw", "Ch'askachaw", "K'uychichaw", "Quechua")
Case 14: langue = Array("Ra" & ChrW(&H2BB) & ChrW(257) & " p" & ChrW(333) & " hitu", "Ra" & ChrW(&H2BB) & ChrW(257) & " p" & ChrW(333) & " tahi", "Ra" & ChrW(&H2BB) & ChrW(257) & " p" & ChrW(333) & " rua", _
"Ra" & ChrW(&H2BB) & ChrW(257) & " p" & ChrW(333) & " toru", "Ra" & ChrW(&H2BB) & ChrW(257) & " p" & ChrW(333) & " h", "Ra" & ChrW(&H2BB) & ChrW(257) & " p" & ChrW(333) & " rima", _
"Ra" & ChrW(&H2BB) & ChrW(257) & " p" & ChrW(333) & " ono", "Rapanui")
Case 15: langue = Array("Kurkó", "Luiné", "Marciné", "Tetra" & ChrW(382) & "iné", ChrW(381) & "oiné", "Para" & ChrW(&H161) & "tuné", "Sabatoné", "Romani (Kalderash)")
Case 16: langue = Array("Kurkó", "Lemitré", "Gergeré", "Siskundé", "Kaska" & ChrW(&H148) & "é", "Axoró", "Kon" & ChrW(&H10D) & "é", "Romani (Kalé)")
Case 17: langue = Array("Duminic" & ChrW(259), "Luni", "Mar" & ChrW(355) & "ì", "Miercuri", "Joi", "Vineri", "Sâmb" & ChrW(259) & "t" & ChrW(259), "Roumain")
Case 18: langue = Array(ChrW(1042) & ChrW(1086) & ChrW(1089) & ChrW(1082) & ChrW(1088) & ChrW(1077) & ChrW(1089) & ChrW(1077) & ChrW(1085) & ChrW(1100) & ChrW(1077), _
ChrW(1055) & ChrW(1086) & ChrW(1085) & ChrW(1077) & ChrW(1076) & ChrW(1100) & ChrW(1085) & ChrW(1080) & ChrW(1082), _
ChrW(1042) & ChrW(1090) & ChrW(1086) & ChrW(1088) & ChrW(1085) & ChrW(1080) & ChrW(1082), _
ChrW(1057) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1072), _
ChrW(1063) & ChrW(1077) & ChrW(1090) & ChrW(1074) & ChrW(1077) & ChrW(1088) & ChrW(1075), _
ChrW(1055) & ChrW(1103) & ChrW(1090) & ChrW(1085) & ChrW(1080) & ChrW(1094) & ChrW(1072), _
ChrW(1057) & ChrW(1091) & ChrW(1073) & ChrW(1073) & ChrW(1086) & ChrW(1090) & ChrW(1072), "Russe")
Case 19: langue = Array(ChrW(&H58) + ChrW(&H323) & "e" & ChrW(660) & ChrW(&H78) + ChrW(&H323) & ChrW(477) & ChrW(660) & ChrW(620) & "net", _
"S" & ChrW(269) & ChrW(477) & "l" & " " & ChrW(&H313) & "k" & ChrW(&H2B7) & ChrW(620) & "net", "S" & ChrW(&H3B8) & ChrW(477) & ChrW(331) & "nets", _
"S" & ChrW(620) & "ix" & ChrW(&H2B7) & "s", "S" & ChrW(331) & "ass", "S" & ChrW(620) & "q'e" & ChrW(660) & ChrW(269) & ChrW(477) & "ss", _
"Q'" & ChrW(477) + ChrW(&H301) & "m'" & ChrW(477) & "t" & ChrW(477) & ChrW(331), "Saanich")
Case 20: langue = Array("S" & ChrW(229) & "dn" & ChrW(229) & "biejvve", "Lávvodahka", "Mánnodahkaa", "Dijstahka", "Gasskavahkkoò", "Duorastahka", "Bierjjedahka", "Same (de Lule)")
Case 21: langue = Array("Sotnabeaivi", "Vuossárga", "Ma" & ChrW(331) & ChrW(331) & "ebárga", "Gaskavahkku", "Duorastat", "Bearjadat", "Lávvardat", "Same (du Nord)")
Case 22: langue = Array(ChrW(198) & "jlege", "Maanta", "Dæjsta", "Gaskev" & ChrW(229) & "hkoe", "Duarsta", "Bearjadahke", "Laavvardahke", "Same (du Sud)")
Case 23: langue = Array("Pasepeivi", "Vuossargâ", "Majebargâ", "Koskokko", "Tuorâstâh", "Vástuppeivi", "Lávárdâh", "Same (Inari)")
Case 24: langue = Array("Pâ'sspei'vv", "Vu" & ChrW(&HF5) & "ssargg", "Mââi'bargg", "Seärad", "Nelljdpei'vv", "Piâtnâc", "Sue'vet", "Same (Skolt)")
Case 25: langue = Array("Aso S" & ChrW(257), "Aso Gafua", "Aso Lua", "Aso Lulu", "Aso Tofi", "Aso Faraile", "Aso To’ona’i", "Samoan")
Case 26: langue = Array("Nediel" & ChrW(279) & "s d" & ChrW(279) & "ina", "Panedielis", "Oterninks", "Sereda", "Ketvergs", "Perdreau", "Sobata", "Samogitien")
Case 27: langue = Array("Lâyenga", "Bïkua-ôko", "Bïkua-ûse", "Bïkua-otâ", "Bïkua-usïö", "Bïkua-okü", "Lâpôso", "Sängö")
Case 28: langue = Array("Dumíniga", "Lunis", "Martis", "Mèrcuris", "Giòvia", "Chenàbura", "Sàbadu", "Sarde")
Case 29: langue = Array("Sunday", "Monanday", "Tysday", "Wadensday", "Fuirsday", "Friday", "Seturday", "Scots")
Case 30: langue = Array("Sontaga", "Mosupalogo", "Labobedi", "Laboraro", "Labone", "Labohlano", "Mokibelo", "Sepedi")
Case 31: langue = Array(ChrW(1053) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1114) & ChrW(1072), _
ChrW(1055) & ChrW(1086) & ChrW(1085) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1114) & ChrW(1072) & ChrW(1082), _
ChrW(1059) & ChrW(1090) & ChrW(1086) & ChrW(1088) & ChrW(1072) & ChrW(1082), _
ChrW(1057) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1072), _
ChrW(1063) & ChrW(1077) & ChrW(1090) & ChrW(1074) & ChrW(1088) & ChrW(1090) & ChrW(1072) & ChrW(1082), _
ChrW(1055) & ChrW(1077) & ChrW(&H442) & ChrW(1072) & ChrW(1082), _
ChrW(1057) & ChrW(1091) & ChrW(1073) & ChrW(1086) & ChrW(1090) & ChrW(1072), "Serbo-Croate")
Case 32: langue = Array("D" & ChrW(297) & "m" & ChrW(227) & "ch", "L" & ChrW(369) & "di", "Mardi", "Mekrëdi", "Djödi", "V" & ChrW(227) & "drëdi", "Samdi", "Sercquiais")
Case 33: langue = Array("Sontaha", "Mantaha", "Labobedi", "Laboraro", "Labone", "Labohlano", "Moqebelo", "Sesotho")
Case 34: langue = Array("Svondo", "Muvhuro", "Chipiri", "Chitatu", "China", "Chishanu", "Mugobera", "Shona")
Case 35: langue = Array("Nede" & ChrW(318) & "a", "Pondelok", "Utorok", "Streda", ChrW(352) & "tvrtok", "Piatok", "Sobota", "Slovaque")
Case 36: langue = Array("Nedelja", "Ponedeljek", "Torek", "Sreda", ChrW(268) & "etrtek", "Petek", "Sobota", "Slovène")
Case 37: langue = Array("Axad", "Isniin", "Salaaso", "Arbaco", "Khamiis", "Jimco", "Sabti", "Somali")
Case 38: langue = Array("Alhadoo", "Atinno", "Atalaata", "Alarba", "Alhamiisa", "Alzumaa", "Asibtoo", "Songhaï")
Case 39: langue = Array("Njed" & ChrW(378) & "ela", "P" & ChrW(243) & "nd" & ChrW(378) & "ela", "Wutora", "Srjeda", ChrW(352) & "tw" & ChrW(243) & "rtk", "Pjatk", "Sobota", "Sorbian")
Case 40: langue = Array("Söndag", "M" & ChrW(229) & "ndag", "Tisdag", "Onsdag", "Torsdag", "Fredag", "Lördag", "Suédois")
Case 41: langue = Array("Jumapili", "Jumatatu", "Jumanne", "Jumatano", "Alhamisi", "Ijumaa", "Jumamosi", "Swahili")
Case 42: langue = Array("Lisontfo", "uMsombuluko", "Lesibili", "Lesitsatfu", "Lesine", "Lesihlanu", "uMgcibelo", "Swati")
Case 43: langue = Array("Linggo", "Lunes", "Martes", "Miyerkoles", "Huwebes", "Biyernes", "Sabado", "Tagalog")
Case 44: langue = Array("T" & ChrW(257) & "pati", "Monir" & ChrW(275), "Mahana Piti", "Mahana Toru", "Mahana Maha", "Mahana Pae", "Mahana M" & ChrW(257) & "'a", "Tahitien")
Case 45: langue = Array(ChrW(1071) & ChrW(1082) & ChrW(1096) & ChrW(1072) & ChrW(1085) & ChrW(1073) & ChrW(1077), _
ChrW(1044) & ChrW(1091) & ChrW(1096) & ChrW(1072) & ChrW(1085) & ChrW(1073) & ChrW(1077), _
ChrW(1057) & ChrW(1077) & ChrW(1096) & ChrW(1072) & ChrW(1085) & ChrW(1073) & ChrW(1077), _
ChrW(1063) & ChrW(1086) & ChrW(1088) & ChrW(1096) & ChrW(1072) & ChrW(1085) & ChrW(1073) & ChrW(1077), _
ChrW(1055) & ChrW(1072) & ChrW(1085) & ChrW(1095) & ChrW(1096) & ChrW(1072) & ChrW(1085) & ChrW(1073) & ChrW(1077), _
ChrW(1063) & ChrW(1091) & ChrW(1084) & ChrW(1098) & ChrW(1072), _
ChrW(1064) & ChrW(1072) & ChrW(1085) & ChrW(1073) & ChrW(1077), "Tajik")
Case 46: langue = Array("Súladi", "Lúneçi", "Maitzi", "Márcuri", "Xhúadi", "Viénerçi", "Sáturi", "Talossien " & ChrW(9775))
Case 47: langue = Array(ChrW(1055) & ChrW(1072) & ChrW(1079) & ChrW(1072) & ChrW(1088), _
ChrW(1055) & ChrW(1072) & ChrW(1079) & ChrW(1072) & ChrW(1088) & ChrW(1090) & ChrW(1077) & ChrW(1089) & ChrW(1080), _
ChrW(1057) & ChrW(1072) & ChrW(1083) & ChrW(1099), _
ChrW(1063) & ChrW(1072) & ChrW(1088) + ChrW(1096) & ChrW(1072) & ChrW(1084) & ChrW(1073) & ChrW(1072), _
ChrW(1055) & ChrW(1077) & ChrW(1088) & ChrW(1096) & ChrW(1077) & ChrW(1084) & ChrW(1073) & ChrW(1077), _
ChrW(1044) & ChrW(1078) & ChrW(1091) & ChrW(1084) & ChrW(1072), _
ChrW(1044) & ChrW(1078) & ChrW(1091) & ChrW(1084) & ChrW(1072) & ChrW(1088) & ChrW(1090) & ChrW(1077) & ChrW(1089) & ChrW(1080), "Tatar (Crimée)")
Case 48: langue = Array(ChrW(1071) & ChrW(1082) & ChrW(1096) & ChrW(1241) & ChrW(1084) & ChrW(1073) & ChrW(1077), _
ChrW(1044) & ChrW(&H4AF) & ChrW(1096) & ChrW(1241) & ChrW(1084) & ChrW(1073) & ChrW(1077), _
ChrW(1057) & ChrW(1080) & ChrW(1096) & ChrW(1241) & ChrW(1084) & ChrW(1073) & ChrW(1077), _
ChrW(1063) & ChrW(1241) & ChrW(1088) + ChrW(1096) & ChrW(1241) & ChrW(1084) & ChrW(1073) & ChrW(1077), _
ChrW(1055) & ChrW(1241) & ChrW(1085) & ChrW(1175) & ChrW(1077) & ChrW(1096) & ChrW(1241) & ChrW(1084) & ChrW(1073) & ChrW(1077), _
ChrW(1174) & ChrW(1086) & ChrW(1084) & ChrW(1075) & ChrW(1072), _
ChrW(1064) & ChrW(1080) & ChrW(1084) & ChrW(1073) & ChrW(1241), "Tatar (Kazan)")
Case 49: langue = Array("Ned" & ChrW(283) & "le", "Pond" & ChrW(283) & "lí", "Úterý", "St" & ChrW(345) & "da", ChrW(268) & "tvrtek", "Pátek", "Sobota", "Tchèque")
Case 50: langue = Array("Domingu", "Segunda", "Tersa", "Kuarta", "Kinta", "Sesta", "Sábadu", "Tétoum")
Case 51: langue = Array(ChrW(1050) & ChrW(1231) & ChrW(1080) & ChrW(1088) & ChrW(1072) & ChrW(1085) & ChrW(1076) & ChrW(1077), _
ChrW(1054) & ChrW(1088) & ChrW(1096) & ChrW(1088) & ChrW(1090), _
ChrW(1064) & ChrW(1080) & ChrW(1085) & ChrW(1072) & ChrW(1088) & ChrW(1072), _
ChrW(1050) & ChrW(1093) & ChrW(1072) & ChrW(1072) & ChrW(1088) & ChrW(1072), _
ChrW(1045) & ChrW(1072) & ChrW(1088) & ChrW(1072), _
ChrW(1055) & ChrW(1231) & ChrW(1077) & ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1082) & ChrW(1072), _
ChrW(1064) & ChrW(1086) & ChrW(1090), "Tchétchène")
Case 52: langue = Array(ChrW(1042) & ChrW(1099) & ChrW(1088) & ChrW(1089) & ChrW(1072) & ChrW(1088) & ChrW(1085) & ChrW(1080) & " " & ChrW(1082) & ChrW(1091) & ChrW(1085), _
ChrW(1058) & ChrW(1091) & ChrW(1085) & ChrW(1090) & ChrW(1080) & " " & ChrW(1082) & ChrW(1091) & ChrW(1085), _
ChrW(1067) & ChrW(1090) & ChrW(1083) & ChrW(1072) & ChrW(1088) & ChrW(1080) & " " & ChrW(1082) & ChrW(1091) & ChrW(1085), _
ChrW(1070) & ChrW(1085) & " " & ChrW(1082) & ChrW(1091) & ChrW(1085), _
ChrW(1050) & ChrW(&H4D7) & ChrW(&H4AB) & ChrW(1085) & ChrW(1077) & ChrW(1088) & ChrW(1085) & ChrW(1080) & " " & ChrW(1082) & ChrW(1091) & ChrW(1085), _
ChrW(1069) & ChrW(1088) & ChrW(1085) & ChrW(1077) & " " & ChrW(1082) & ChrW(1091) & ChrW(1085), _
ChrW(1064) & ChrW(&H4D1) & ChrW(1084) & ChrW(1072) & ChrW(1090) & " " & ChrW(1082) & ChrW(1091) & ChrW(1085), "Tchouvache")
Case 53: langue = Array(ChrW(&HE27) + ChrW(&HE31) & ChrW(&HE19) & ChrW(&HE2D) & ChrW(&HE32) & ChrW(&HE17) + ChrW(&HE34) & ChrW(&HE15) & ChrW(&HE22) + ChrW(&HE4C), _
ChrW(&HE27) + ChrW(&HE31) & ChrW(&HE19) & ChrW(&HE08) + ChrW(&HE31) & ChrW(&HE19) & ChrW(&HE17) & ChrW(&HE23) + ChrW(&HE4C), _
ChrW(&HE27) + ChrW(&HE31) & ChrW(&HE19) & ChrW(&HE2D) + ChrW(&HE31) & ChrW(&HE07) & ChrW(&HE04) & ChrW(&HE32) & ChrW(&HE23), _
ChrW(&HE27) + ChrW(&HE31) & ChrW(&HE19) & ChrW(&HE1E) + ChrW(&HE38) & ChrW(&HE18), _
ChrW(&HE27) + ChrW(&HE31) & ChrW(&HE19) & ChrW(&HE1E) & ChrW(&HE26) & ChrW(&HE2B) + ChrW(&HE31) & ChrW(&HE2A) & ChrW(&HE1A) & ChrW(&HE04) + ChrW(&HE35), _
ChrW(&HE27) + ChrW(&HE31) & ChrW(&HE19) & ChrW(&HE28) + ChrW(&HE38) & ChrW(&HE01) & ChrW(&HE23) + ChrW(&HE4C), _
ChrW(&HE27) + ChrW(&HE31) & ChrW(&HE19) & ChrW(&HE40) & ChrW(&HE2A) & ChrW(&HE32) & ChrW(&HE23) + ChrW(&HE4C), "Thaï")
Case 54: langue = Array(ChrW(&H12A5) & ChrW(&H1272) & " " & ChrW(&H1230) & ChrW(&H1295) & ChrW(&H1260) & ChrW(&H1275), _
ChrW(&H12A5) & ChrW(&H1272) & " " & ChrW(&H1230) & ChrW(&H1291) & ChrW(&H12ED), _
ChrW(&H12A5) & ChrW(&H1272) & " " & ChrW(&H1230) & ChrW(&H1209) & ChrW(&H1235), _
ChrW(&H12A5) & ChrW(&H1272) & " " & ChrW(&H1228) & ChrW(&H1261) & ChrW(&H12D5), _
ChrW(&H12A5) & ChrW(&H1272) & " " & ChrW(&H1210) & ChrW(&H1219) & ChrW(&H1230), _
ChrW(&H12A5) & ChrW(&H1272) & " " & ChrW(&H12D3) & ChrW(&H122D) & ChrW(&H1265), _
ChrW(&H12A5) & ChrW(&H1272) & " " & ChrW(&H1245) & ChrW(&H12F3) & ChrW(&H121C), "Tigrinya")
Case 55: langue = Array("Sande", "Mande", "Tunde", "Trinde", "Fonde", "Fraide", "Sarere", "Tok Pisin")
Case 56: langue = Array("Sapate", "Monite", "Tusite", "Pulelulu", "Tu'apulelulu", "Falaite", "Tokonaki", "Tongien")
Case 57: langue = Array(ChrW(1059) & ChrW(1083) & ChrW(1091) & ChrW(1075) & " " & ChrW(1093) & ChrW(&H4AF) & ChrW(1085), _
ChrW(1041) & ChrW(1080) & ChrW(1088) & " " & ChrW(1076) & ChrW(1091) & ChrW(1075) & ChrW(1072) & ChrW(1072) & ChrW(1088) & " " & ChrW(1093) & ChrW(&H4AF) & ChrW(1085), _
ChrW(1048) & ChrW(1081) & ChrW(1080) & " " & ChrW(1076) & ChrW(1091) & ChrW(1075) & ChrW(1072) & ChrW(1072) & ChrW(1088) & " " & ChrW(1093) & ChrW(&H4AF) & ChrW(1085), _
ChrW(&H4AE) & ChrW(1096) & " " & ChrW(1076) & ChrW(1091) & ChrW(1075) & ChrW(1072) & ChrW(1072) & ChrW(1088) & " " & ChrW(1093) & ChrW(&H4AF) & ChrW(1085), _
ChrW(1044) & ChrW(&H4E9) & ChrW(1088) & ChrW(1090) & " " & ChrW(1076) & ChrW(1091) & ChrW(1075) & ChrW(1072) & ChrW(1072) & ChrW(1088) & " " & ChrW(1093) & ChrW(&H4AF) & ChrW(1085), _
ChrW(1044) & ChrW(1077) & ChrW(1096) & " " & ChrW(1076) & ChrW(1091) & ChrW(1075) & ChrW(1072) & ChrW(1072) & ChrW(1088) & " " & ChrW(1093) & ChrW(&H4AF) & ChrW(1085), _
ChrW(1063) & ChrW(1072) & ChrW(1088) & ChrW(1090) & ChrW(1099) & ChrW(1082), "Touvain")
Case 58: langue = Array("Sonto", "Musumbhunuku", "Ravumbirhi", "Ravunharhu", "Ravumune", "Ravuntlhanu", "Mugqivela", "Tsonga")
Case 59: langue = Array("Pazar", "Pazartesi", "Sali", ChrW(199) & "ar" & ChrW(351) & "amba", "Per" & ChrW(351) & "embe", "Cuma", "Cumartesi", "Turc")
Case 60: langue = Array("Akwar nangakan-ka-arei", "Akwar naekingaren", "Alomar nangarei", "Akwar nangauni", "Akwar nangomon", "Akwar nangakan", "Akwar nangakan-ka-apei", "Turkana")
Case 61: langue = Array(ChrW(1044) & ChrW(1099) & ChrW(1085) & ChrW(1095) & ChrW(1075) & ChrW(&H4AF) & ChrW(1085), _
ChrW(1041) & ChrW(1072) & ChrW(1096) & ChrW(1075) & ChrW(&H4AF) & ChrW(1085), _
ChrW(1071) & ChrW(1096) & ChrW(1075) & ChrW(&H4AF) & ChrW(1085), _
ChrW(1061) & ChrW(1086) & ChrW(1096) & ChrW(1075) & ChrW(&H4AF) & ChrW(1085), _
ChrW(1057) & ChrW(1086) & ChrW(1075) & ChrW(1072) & ChrW(1087) & ChrW(1075) & ChrW(&H4AF) & ChrW(1085), _
ChrW(1040) & ChrW(1085) & ChrW(1085) & ChrW(1072) & ChrW(1075) & ChrW(&H4AF) & ChrW(1085), _
ChrW(1056) & ChrW(1091) & ChrW(1093) & ChrW(1075) & ChrW(&H4AF) & ChrW(1085), "Turkmène (1)")
Case 62: langue = Array(ChrW(1045) & ChrW(1082) & ChrW(1096) & ChrW(1077) & ChrW(1085) & ChrW(1073) & ChrW(1077), _
ChrW(1044) & ChrW(1091) & ChrW(1096) & ChrW(1077) & ChrW(1085) & ChrW(1073) & ChrW(1077), _
ChrW(1057) & ChrW(1080) & ChrW(1096) & ChrW(1077) & ChrW(1085) & ChrW(1073) & ChrW(1077), _
ChrW(1063) & ChrW(1072) & ChrW(1088) & ChrW(1096) & ChrW(1077) & ChrW(1085) & ChrW(1073) & ChrW(1077), _
ChrW(1055) & ChrW(1077) & ChrW(1085) & ChrW(1096) & ChrW(1077) & ChrW(1085) & ChrW(1073) & ChrW(1077), _
ChrW(1040) & ChrW(1085) & ChrW(1085) & ChrW(1072), _
ChrW(1064) & ChrW(1077) & ChrW(1085) & ChrW(1073) & ChrW(1077), "Turkmène (2)")
Case 63: langue = Array("Aso S" & ChrW(257), "Aso Gafua", "Aso Lua", "Aso Tolu", "Aso F" & ChrW(257), "Aso Lima", "Aso Ono", "Tuvaluan")
Case 64: langue = Array(ChrW(1053) & ChrW(1077) & ChrW(1076) & ChrW(1110) & ChrW(1083) & ChrW(1103), _
ChrW(1055) & ChrW(1086) & ChrW(1085) & ChrW(1077) & ChrW(1076) & ChrW(1110) & ChrW(1083) & ChrW(1086) & ChrW(1082), _
ChrW(1042) & ChrW(1110) & ChrW(1074) & ChrW(1090) & ChrW(1086) & ChrW(1088) & ChrW(1086) & ChrW(1082), _
ChrW(1057) & ChrW(1077) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1072), _
ChrW(1063) & ChrW(1077) & ChrW(1090) & ChrW(1074) & ChrW(1077) & ChrW(1088), _
ChrW(1055) & "'" & ChrW(1103) & ChrW(1090) & ChrW(1085) & ChrW(1080) & ChrW(1094) & ChrW(1103), _
ChrW(1057) & ChrW(1091) & ChrW(1073) & ChrW(1086) & ChrW(1090) & ChrW(1072), "Ukrainien")
Case 65: langue = Array("Soldia", "Lundia", "Mardia", "Mididia", "Zusdia", "Wendia", "Sabadia", "Uropi " & ChrW(9775))
Case 66: langue = Array(ChrW(&HA55E) & ChrW(&HA54C) & ChrW(&HA535), _
ChrW(&HA5F3) & ChrW(&HA5E1) & ChrW(&HA609), _
ChrW(&HA55A) & ChrW(&HA55E) & ChrW(&HA55A), _
ChrW(&HA549) & ChrW(&HA55E) & ChrW(&HA552), _
ChrW(&HA549) & ChrW(&HA524) & ChrW(&HA546) & ChrW(&HA562), _
ChrW(&HA549) & ChrW(&HA524) & ChrW(&HA540) & ChrW(&HA56E), _
ChrW(&HA53B) & ChrW(&HA52C) & ChrW(&HA533), "Vaï")
Case 67: langue = Array("Swondaha", "Musumbuluwo", ChrW(7740) & "avhuvhili", ChrW(7740) & "avhuraru", ChrW(7740) & "avhu" & ChrW(7755) & "a", ChrW(7740) & "avhutanu", "Mugivhela", "Venda")
Case 68: langue = Array("Domieniek", ChrW(321) & "y" & ChrW(324) & "dzej", "Mardzej", "Mrzekierdzej", "Jódzej", "Wnierdzej", "Sobota", "Venedico " & ChrW(9775))
Case 69: langue = Array("Doménega", "Luni", "Marti", "Mercore", "Xioba", "Bande", "Sabo", "Vénitien")
Case 70: langue = Array("Pühäpäiv", "Ezmärg", "Tožnarg", "Koumanz'päiv", "Nellänz'päiv", "Videnz'päiv", "Sobat", "Vepso")
Case 71: langue = Array("Ch" & ChrW(7911) & " Nh" & ChrW(7853) & "t", "Th" & ChrW(7913) & " Hai", "Th" & ChrW(7913) & " Ba", "Th" & ChrW(7913) & " T" & ChrW(7921), _
"Th" & ChrW(7913) & " N" & ChrW(7863) & "m", "Th" & ChrW(7913) & " Sáu", "Th" & ChrW(7913) & " B" & ChrW(7834) & "y", "Vietnamien")
Case 72: langue = Array("Sunnudagr", "Mánadagr", "Týsdagr", "Ó" & ChrW(&HF0) & "insdagr", ChrW(222) & "órsdagr", "Frjádagr", "Laugardagr", "Vieux norrois")
Case 73: langue = Array("Nad" & ChrW(299) & "li", "Panad" & ChrW(299) & "li", "Wisas" & ChrW(299) & "dis", "Pussisawaiti", "Ketwirtiks", "P" & ChrW(275) & "ntniks", "U" & ChrW(353) & "tiks", "Vieux prussien")
Case 74: langue = Array(ChrW(1053) & ChrW(1077) & ChrW(1076) & ChrW(&H463) & ChrW(1083) & ChrW(1103), _
ChrW(1055) & ChrW(1086) & ChrW(1085) & ChrW(1077) & ChrW(1076) & ChrW(&H463) & ChrW(1083) & ChrW(1098) & ChrW(1082) & ChrW(1098), _
ChrW(1042) & ChrW(1098) & ChrW(1090) & ChrW(1086) & ChrW(1088) & ChrW(1098) & ChrW(1082) & ChrW(1098), _
ChrW(1057) & ChrW(1088) & ChrW(&H463) & ChrW(1076) & ChrW(1072), _
ChrW(1063) & ChrW(1077) & ChrW(1090) & ChrW(1074) & ChrW(1088) & ChrW(1100) & ChrW(1090) & ChrW(1098) & ChrW(1082) & ChrW(1098), _
ChrW(1055) & ChrW(&H467) & ChrW(1090) & ChrW(1098) & ChrW(1082) & ChrW(1098), _
ChrW(1057) & ChrW(&H46B) & ChrW(1073) & ChrW(1086) & ChrW(1090) & ChrW(1072), "Vieux slavon")
Case 75: langue = Array("Balüdel", "Telüdel", "Kilüdel", "Folüdel", "Lulüdel", "Mälüdel", "Velüdel", "Volapük " & ChrW(9775))
Case 76: langue = Array("Pühäpäiv", "Iispäiv", "T" & ChrW(245) & ChrW(245) & "s" & ChrW(245) & "päiv", "Kolmapäiv", "Neläpäiv", "Riidi", "Puulpäiv", "V" & ChrW(245) & "ro")
Case 77: langue = Array(ChrW(701) & "Ahotapu", "M" & ChrW(333) & "nite", "Feliatolu", "Feliaf" & ChrW(257), "Felianima", "Feliaono", "Moeaki", "Wallisien")
Case 78: langue = Array("Dimenge", "Londi", "M" & ChrW(229) & "rdi", "Mierkidi", "Djudi", "Vénrdi", "Semdi", "Wallon")
Case 79: langue = Array("Zuntaog", "Möntaog", "Dynstaog", "Mejtwaoch", "Dunystaog", "Fretaog", "Zynwyt", "Wilamowicien")
Case 80: langue = Array("Dibéer", "Altiné", "Talaata", "Àllarba", "Alxemes", "Àjjuma", "Gaawu", "Wolof")
Case 81: langue = Array("iCawe", "uMvulo", "uLwesibini", "uLwesithathu", "uLwesine", "uLwesihlanu", "uMgqibelo", "Xhosa")
Case 82: langue = Array(ChrW(&H5D6) & ChrW(1493) & ChrW(&H5E0) & ChrW(&H5D8) & ChrW(1497) & ChrW(&H5E7), _
ChrW(&H5DE) & ChrW(&HFB2F) & ChrW(&H5E0) & ChrW(&H5D8) & ChrW(1497) & ChrW(&H5E7), _
ChrW(&H5D3) & ChrW(1497) & ChrW(&H5E0) & ChrW(&H5E1) & ChrW(&H5D8) & ChrW(1497) & ChrW(&H5E7), _
ChrW(&H5DE) & ChrW(1497) & ChrW(&H5D8) & ChrW(1493) & ChrW(1493) & ChrW(&HFB2F) & ChrW(&H5DA), _
ChrW(&H5D3) & ChrW(&HFB2F) & ChrW(&H5E0) & ChrW(&H5E2) & ChrW(&H5E8) & ChrW(&H5E9) & ChrW(&H5D8) & ChrW(1497) & ChrW(&H5E7), _
ChrW(&HFB4E) & ChrW(&H5E8) & ChrW(&HFB1F) & ChrW(&H5D8) & ChrW(1497) & ChrW(&H5E7), _
ChrW(&H5E9) & ChrW(&H5D1) & ChrW(&H5EA), "Yiddsh")
Case 83: langue = Array(ChrW(7884) & "j" & ChrW(&H1ECD) + ChrW(&H301) & " Àìkú", ChrW(7884) & "j" & ChrW(&H1ECD) + ChrW(&H301) & " Ajé", ChrW(7884) & "j" & ChrW(&H1ECD) + ChrW(&H301) & " Ì" & ChrW(7779) & ChrW(7865) + ChrW(&H301) & "gun", _
ChrW(7884) & "j" & ChrW(&H1ECD) + ChrW(&H301) & "-rírú", ChrW(7884) & "j" & ChrW(&H1ECD) + ChrW(&H301) & "b" & ChrW(&H1ECD) + ChrW(&H300), ChrW(7884) & "j" & ChrW(&H1ECD) + ChrW(&H301) & " " & ChrW(7864) & "tì", _
ChrW(7884) & "j" & ChrW(&H1ECD) + ChrW(&H301) & " Àbá M" & ChrW(7865) & "ta", "Yoruba")
Case 84: langue = Array("Alhadi", "Atinni", "Atalata", "Alarba", "Alamisi", "Alzuma", "Asibiti", "Zarma")
Case 85: langue = Array("Yew" & ChrW(&H15F) & "eme", "Di" & ChrW(&H15F) & "eme", "Sê" & ChrW(&H15F) & "eme", "Çar" & ChrW(&H15F) & "eme", "Pan" & ChrW(&H15F) & "eme", "Îne", ChrW(&H15E) & "eme", "Zazaki")
Case 86: langue = Array("iSonto", "uMombuluko", "uLwesibili", "uLwesithathu", "uLwesine", "uLewishlanu", "uMgqibelo", "Zoulou")
Case 87: langue = Array("Sælldé", "Lúnidé", "Mærturdé", "Mjörkridé", "Hordes", "Ýnirrdé", "Sætnidé", ChrW(&HDE) & "rjótrunn " & ChrW(9775))
End Select
'ATTENTION ! Bien actualiser la variable "NbLangues" si l'on rajoute une nouvelle langue
NbLangues = 87 'nombre de langues répertoriées dans la fonction
If transcription Then 'la langue choisie est dans un alphabet abscons
'ATTENTION ! Chaque "Case" doit porter le même numéro que celui de la langue en alphabet ésotérique qui est latinisée
'Ensemble des langues en alphabets abscons qui sont latinisées
Select Case ChxLangue
Case 1: latinisation = Array("Yakshanba", "Dushanba", "Seshanba", "Chorshanba", "Payshanba", "Juma", "Shanba", "Ouzbek")
Case 18: latinisation = Array("Voskresen’ye", "Ponedel’nik", "Vtornik", "Sreda", "Chetverk", "Pyatnitsa", "Subbota", "Russe")
Case 31: latinisation = Array("Nedelja", "Ponedeljak", "Utorak", "Srijeda", ChrW(268) & "etvrtak", "Petak", "Subota", "Serbo-Croate")
Case 45: latinisation = Array("Âk" & ChrW(353) & "anbe", "Du" & ChrW(353) & "anbe", "Se" & ChrW(353) & "anbe", ChrW(268) & "or" & ChrW(353) & "anbe", "Panç" & ChrW(353) & "anbe", "Çum’a", ChrW(352) & "anbe", "Tajik")
Case 47: latinisation = Array("Pazar", "Pazartesi", "Sali", "Çar" & ChrW(351) & "amba", "Per" & ChrW(351) & "embe", "Cuma", "Cumartesi", "Tatar (Crimée)")
Case 48: latinisation = Array("Yäk" & ChrW(353) & "ämbe", "Dü" & ChrW(353) & "ämbe", "Si" & ChrW(353) & "ämbe", "Çär" & ChrW(353) & "ämbe", "Pänce" & ChrW(353) & "ämbe", "Com" & ChrW(287) & "a", ChrW(350) & "imbä", "Tatar (Kazan)")
Case 51: latinisation = Array("K’irande", "Orshot", "Shinara", "Qaara", "Eara", "P’eraska", "Shot", "Tchétchène")
Case 53: latinisation = Array("Wan a-tit", "Wan chan", "Wan angk" & ChrW(257) & "n", "Wan phut", "Wan paruhat", "Wan suk", "Wan sao", "Thaï")
Case 54: latinisation = Array("It" & ChrW(299) & " senibeti", "It" & ChrW(299) & " senuyi", "It" & ChrW(299) & " selusi", "It" & ChrW(299) & " rebu‘i", "It" & ChrW(299) & " " & ChrW(7717) & "amusi", "It" & ChrW(299) & " ‘arib" & ChrW(299), "It" & ChrW(299) & " k'edami", "Tigrinya")
Case 61: latinisation = Array("Dynçgün", "Ba" & ChrW(351) & "gün", ChrW(221) & "a" & ChrW(351) & "gün", "Ho" & ChrW(351) & "gün", "Sogapgün", "Annagün", "Ruhgün", "Turkmène (1)")
Case 62: latinisation = Array(ChrW(221) & "ek" & ChrW(351) & "enbe", "Du" & ChrW(351) & "enbe", "Si" & ChrW(351) & "enbe", "Çar" & ChrW(351) & "enbe", "Pen" & ChrW(351) & "enbe", "Anna", ChrW(350) & "enbe", "Turkmène (2)")
Case 64: latinisation = Array("Nedilya", "Ponedilok", "Vivtorok", "Sereda", "Chetver", "P'jatnycja", "Subota", "Ukrainien")
Case 66: latinisation = Array("Laha" & ChrW(&H257) & "i", "T" & ChrW(&H25B) & ChrW(&H25B) & "n" & ChrW(&H25B), "Talata", "Alaba", "Aimisa", "Ai" & ChrW(&H25F) & "ima", "Si" & ChrW(&H253) & "iti", "Vaï")
Case 82: latinisation = Array("Zuntik", "Montik", "Dinstik", "Mitvokh", "Donershtik", "Fraytik", "Shabes", "Yiddsh")
End Select
On Error Resume Next 'sinon curieusement ça plante
BlocLangues2 = latinisation(WeekDay(fecha) - 1) 'jour de la semaine latinisé (Option Base 0). Si ce n'est pas le cas --> ""
ElseIf NbItems Then
BlocLangues2 = NbLangues 'nombre total de langues répertoriées dans la fonction
ElseIf NomLangue = 1 Then
BlocLangues2 = langue(7) 'nom de la langue choisie
ElseIf NomLangue = 2 Then
BlocLangues2 = LangueRef(WeekDay(fecha) - 1) 'jour de la semaine, correspondant á la date "fecha", dans une langue compréhensible (Option Base 0)
ElseIf NomLangue = 3 Then
BlocLangues2 = LangueRef(7) 'nom de la langue compréhensible
Else
BlocLangues2 = langue(WeekDay(fecha) - 1) 'jour de la semaine, correspondant á la date "fecha", dans la langue choisie (Option Base 0)
End If
End Function
), même si certainement il peut être amélioré, simplifié, tout en conservant évidemment le même résultat.
??
