Date et heure NomJourSemaineTrip

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".

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
 

Pièces jointes

  • Nombre Día Semana.xlsm
    364.7 KB · Affichages: 8

patricktoulon

XLDnaute Barbatruc
pour ces deux fonctions quand je les testes elle fonctionnent
VB:
Function MergeArrays2(arr1, arr2) As Variant
'patricktoulon
    Dim t
    t = Join(arr1, ";") & ";" & Join(arr2, ";")
    MergeArrays2 = Split(t, ";")
End Function

Function Array_Pos2(tableau, recherche)
'patricktoulon
    Dim x&
    x = Application.IfError(Application.Match(recherche, tableau, 0), -1)
    If x > 0 Then x = x - IIf(LBound(tableau) = 0, 1, 0) Else x = -1
    Array_Pos2 = x
End Function

Sub test1()
 Dim aray1, aray2, aray3
 
 aray1 = Split("toto,titi,riri,fifi", ",") '1er array
 aray2 = Split("bidule,machin,chose,truc", ",") '2d array

aray3 = MergeArrays2(aray1, aray2) 'on merge les deux array
texte = texte & "----Information-----" & vbCrLf
texte = texte & "le tableau aray1 est en base (" & LBound(aray1) & ")" & vbCrLf
texte = texte & "le tableau aray2 est en base (" & LBound(aray2) & ")" & vbCrLf
texte = texte & "------------------" & vbCrLf
texte = texte & """machin"" se trouve en position (" & Array_Pos2(aray2, "machin") & ") dans aray2" & vbCrLf
texte = texte & "apres avoir mergé les deux arrays " & vbCrLf
texte = texte & "le tableau aray3 est en base (" & LBound(aray3) & ")" & vbCrLf
texte = texte & """machin se trouve maintenant en position (" & Array_Pos2(aray3, "machin") & ") dans aray3"
MsgBox texte
End Sub
 
Dernière édition:

Magic_Doctor

XLDnaute Barbatruc
Re,

Dans mon truc, ces fonctions n'apparaissent jamais dans le module de l'UF.
Tu auras remarqué qu'il n'y a pas qu'un seul module dans ce truc, comme dans ta cuisine il n'y a pas qu'un seul tiroir où chercher l'économe...
Elles ne sont utilisées qu'une seule fois dans le module "Módulo1" (macro "AssemblageLangues").
Pourquoi ne pas avoir utilisé "xlcountrysetting" dans mon truc ? Tout simplement parce que nombre de langues, dialectes et autres patois (Ch'ti, Mapuche, Novial...) ne sont pas pris en compte par Excel, et je n'en veux pas à Microsoft. Ensuite, comment avec "xlcountrysetting" obtenir la transcription latinisée des langues qui ont un alphabet tout à fait incompréhensible (russe, arménien, yiddish...) ? Il fallait bien trouver un truc.
Mon truc marche très bien (et en plus il est pratique, très joli et très ergonomique 🤩), même si certainement il peut être amélioré, simplifié, tout en conservant évidemment le même résultat.
Comprends bien, c'est un truc sans prétentions destiné uniquement pour le fun, comme l'essentiel des trucs que l'on peut trouver sur ce forum, dont des trucs que tu proposes.
 
Dernière édition:

patricktoulon

XLDnaute Barbatruc
re
ah non moi pour le fun je fait des jeux du style tetris ou jeux de carte et autres
les fonctions que j'ai fait ont une utilité autre que pour le fun
je regarderais toute à l'heure ton fichier pour les deux fonctions
 

patricktoulon

XLDnaute Barbatruc
je constate aussi que tes deux array langues commencent par un item vide 🤔 ??
puisque le join(tonarray,"/") commence par un "/"et c'est valable pour les deux
a mon avis il y a méprise sur la base(1/0)
je regarderais plus en profondeur ce soir a froid
 

Statistiques des forums

Discussions
294 412
Messages
1 938 345
Membres
188 791
dernier inscrit
aloha1234