Index of Functions ------------------ 1: cmonthX Function Name ( 1): cmonthX -------------------------------------------------------------------------------- 'Date Created: 25-Mar-2008 11:43:31 AM 'Last Updated: 30-Mar-2008 05:39:36 PM 'Created By : Ira J. Perlow 'Updated By : Ira J. Perlow FUNCTION cmonthX AS C (date=DATE() as d, Locale_ID=0 as n,Flags="" as C) 'DESCRIPTION: Returns current month's name in current language or with language code '========================================================================= ' Created by Computer Systems Design & Associates ' Copyright 2008 Computer Systems Design & Associates, All Rights Reserved ' http://www.csda1.com ' You may use this code at your own risk in whole or as a part. ' Use in full or part is permitted with proper attributions to the source, ' except it may not be sold as part of any software package that is a ' library of functions '========================================================================= ' cmonthX - Version 1.02 Release Date: 20080330 ' Syntax C cmonthX([D date[,N Locale_ID]]) ' Purpose: Returns current month's name in current language or with language code ' Input: date - The date to return the month value of. Defaults to the current date ' Locale_ID - Language Code ID, default or <=0 uses current Operating System value ' Flags - If it contains an "S", returns short version of name ' Output: Name of current month in current language ' Errors: ' Typical Usage: ' Examples: ' ?cmonthX() ' ?cmonthX({07/04/1776}) ' ?cmonthX({07/04/1776},0,"S") ' ?cmonthX({05/05/1862},1034) ' ?cmonthX({05/05/1862},1034,"S") ' Notes: ' Microsoft link for language ID's - http://www.microsoft.com/globaldev/reference/win2k/setup/lcid.mspx ' Below is a list of languages and codes. ' Those not indented do not translate using standard character set ' Language Language Code ' ========================================= ' Arabic (Saudi Arabia) 1025 ' Arabic (Iraq) 2049 ' Arabic (Egypt) 3073 ' Arabic (Libya) 4097 ' Arabic (Algeria) 5121 ' Arabic (Morocco) 6145 ' Arabic (Tunisia) 7169 ' Arabic (Oman) 8193 ' Arabic (Yemen) 9217 ' Arabic (Syria) 10241 ' Arabic (Jordan) 11265 ' Arabic (Lebanon) 12289 ' Arabic (Kuwait) 13313 ' Arabic (U.A.E.) 14337 ' Arabic (Bahrain) 15361 ' Arabic (Qatar) 16385 ' Bulgarian 1026 ' Catalan 1027 ' Chinese (Taiwan) 1028 ' Chinese (PRC) 2052 ' Chinese (Hong Kong SAR 3076 ' Chinese (Singapore) 4100 ' Czech 1029 ' Danish 1030 ' German (Standard) 1031 ' German (Swiss) 2055 ' German (Austrian) 3079 ' German (Luxembourg) 4103 ' German (Liechtenstein) 127 ' Greek 1032 ' English (United States) 1033 ' English (United Kingdom) 2057 ' English (Australian) 3081 ' English (Canadian) 4105 ' English (New Zealand) 5129 ' English (Ireland) 6153 ' English (South Africa) 7177 ' English (Jamaica) 8201 ' English (Caribbean) 9225 ' English (Belize) 10249 ' English (Trinidad) 11273 ' Spanish (Traditional Sort) 1034 ' Spanish (Mexican) 2058 ' Spanish (Modern Sort) 3082 ' Spanish (Guatemala) 4106 ' Spanish (Costa Rica) 5130 ' Spanish (Panama) 6154 ' Spanish (Dominican Republic) 7178 ' Spanish (Venezuela) 8202 ' Spanish (Colombia) 9226 ' Spanish (Peru) 10250 ' Spanish (Argentina) 11274 ' Spanish (Ecuador) 12298 ' Spanish (Chile) 13322 ' Spanish (Uruguay) 14346 ' Spanish (Paraguay) 15370 ' Spanish (Bolivia) 16394 ' Spanish (El Salvador) 17418 ' Spanish (Honduras) 18442 ' Spanish (Nicaragua) 19466 ' Spanish (Puerto Rico) 20490 ' Finnish 1035 ' French (Standard) 1036 ' French (Belgian) 2060 ' French (Canadian) 3084 ' French (Swiss) 4108 ' French (Luxembourg) 5132 ' Hebrew 1037 ' Hungarian 1038 ' Icelandic 1039 ' Italian (Standard) 1040 ' Italian (Swiss) 2064 ' Japanese 1041 ' Korean 1042 ' Korean (Johab) 2066 ' Dutch (Standard) 1043 ' Dutch (Belgian) 2067 ' Norwegian (Bokmal) 1044 ' Norwegian (Nynorsk) 2068 ' Polish 1045 ' Portuguese (Brazil) 1046 ' Portuguese (Portugal) 2070 ' Romanian 1048 ' Russian 1049 ' Croatian 1050 ' Serbian (Latin) 2074 ' Serbian (Cyrillic) 3098 ' Slovak 1051 ' Albanian 1052 ' Swedish 1053 ' Swedish (Finland) 2077 ' Thai 1054 ' Turkish 1055 ' Indonesian 1057 ' Ukrainian 1058 ' Belarusian 1059 ' Slovenian 1060 ' Estonian 1061 ' Latvian 1062 ' Lithuanian 1063 ' Farsi 1065 ' Vietnamese 1066 ' Basque 1069 ' Afrikaans 1078 ' Faeroese 1080 IF trim(cdate(date))=="" ' return with null if blank date cmonthX="" EXIT FUNCTION END IF ' Get language code dim tmpn as n IF Locale_ID<=0 ' If language code <= 0, then get current language from Operating System declare user32 locale@GetKeyboardLayout LL ' Return low 16 bit value tmpn=locale(0).and.65535 ELSE ' Use Language code given tmpn=Locale_ID END IF dim cod as n IF "S" $ UT(flags) ' Return short Abbreviated name cod=67 ELSE cod=55 END IF cmonthX=a5_get_local_info(tmpn,cod+month(date)) END FUNCTION End Function ( 1)---------------------------------------------------------------