VBA 64位API声明语句第021讲

跟我学VBA我这里专注VBA, 授人以渔。我98年开始从源码接触VBA已经20余年了随着年龄的增长越来越觉得有必要把这项技能传递给需要这项技术的职场人员。希望职场和数据打交道的朋友都来学习VBA,利用VBA,起码可以提高自己的工作效率可以有时间多陪陪父母多陪陪家人何乐而不为呢我的教程一共九套从入门开始一直讲到程序的分发是学习利用VBA的实用教程。这份API资料是随高级教程赠送的。这些内容是MS的权威资料看似枯燥但对于想学习API函数的朋友是非常有用的。这讲我们继续学习VBA 64位API声明语句第021讲【分享成果随喜正能量】人生不易累也过闲也过只要能充实就是最好过有也过没也过为什么你不看看众生怎么过富也过穷也过活在当下最好过贪也过施也过笑口常开最好过身心安乐好比神仙过何必让自己不痛快的活。​​​VBA 64位API声明语句第021讲Const CTRY_IRELAND 353 IrelandConst CTRY_ITALY 39 ItalyConst CTRY_JAPAN 81 JapanConst CTRY_MEXICO 52 MexicoConst CTRY_NETHERLANDS 31 NetherlandsConst CTRY_NEW_ZEALAND 64 New ZealandConst CTRY_NORWAY 47 NorwayConst CTRY_PORTUGAL 351 PortugalConst CTRY_PRCHINA 86 PR ChinaConst CTRY_SOUTH_KOREA 82 South KoreaConst CTRY_SPAIN 34 SpainConst CTRY_SWEDEN 46 SwedenConst CTRY_SWITZERLAND 41 SwitzerlandConst CTRY_TAIWAN 886 TaiwanConst CTRY_UNITED_KINGDOM 44 United KingdomConst CTRY_UNITED_STATES 1 United States Locale Types. These types are used for the GetLocaleInfoW NLS API routine. LOCALE_NOUSEROVERRIDE is also used in GetTimeFormatW and GetDateFormatW.Const LOCALE_NOUSEROVERRIDE H80000000 do not use user overridesConst LOCALE_ILANGUAGE H1 language idConst LOCALE_SLANGUAGE H2 localized name of languageConst LOCALE_SENGLANGUAGE H1001 English name of languageConst LOCALE_SABBREVLANGNAME H3 abbreviated language nameConst LOCALE_SNATIVELANGNAME H4 native name of languageConst LOCALE_ICOUNTRY H5 country codeConst LOCALE_SCOUNTRY H6 localized name of countryConst LOCALE_SENGCOUNTRY H1002 English name of countryConst LOCALE_SABBREVCTRYNAME H7 abbreviated country nameConst LOCALE_SNATIVECTRYNAME H8 native name of countryConst LOCALE_IDEFAULTLANGUAGE H9 default language idConst LOCALE_IDEFAULTCOUNTRY HA default country codeConst LOCALE_IDEFAULTCODEPAGE HB default code pageConst LOCALE_SLIST HC list item separatorConst LOCALE_IMEASURE HD 0 metric, 1 USConst LOCALE_SDECIMAL HE decimal separatorConst LOCALE_STHOUSAND HF thousand separatorConst LOCALE_SGROUPING H10 digit groupingConst LOCALE_IDIGITS H11 number of fractional digitsConst LOCALE_ILZERO H12 leading zeros for decimalConst LOCALE_SNATIVEDIGITS H13 native ascii 0-9Const LOCALE_SCURRENCY H14 local monetary symbolConst LOCALE_SINTLSYMBOL H15 intl monetary symbolConst LOCALE_SMONDECIMALSEP H16 monetary decimal separatorConst LOCALE_SMONTHOUSANDSEP H17 monetary thousand separatorConst LOCALE_SMONGROUPING H18 monetary groupingConst LOCALE_ICURRDIGITS H19 # local monetary digitsConst LOCALE_IINTLCURRDIGITS H1A # intl monetary digitsConst LOCALE_ICURRENCY H1B positive currency modeConst LOCALE_INEGCURR H1C negative currency modeConst LOCALE_SDATE H1D date separatorConst LOCALE_STIME H1E time separatorConst LOCALE_SSHORTDATE H1F short date format stringConst LOCALE_SLONGDATE H20 long date format stringConst LOCALE_STIMEFORMAT H1003 time format stringConst LOCALE_IDATE H21 short date format orderingConst LOCALE_ILDATE H22 long date format orderingConst LOCALE_ITIME H23 time format specifierConst LOCALE_ICENTURY H24 century format specifierConst LOCALE_ITLZERO H25 leading zeros in time fieldConst LOCALE_IDAYLZERO H26 leading zeros in day fieldConst LOCALE_IMONLZERO H27 leading zeros in month fieldConst LOCALE_S1159 H28 AM designatorConst LOCALE_S2359 H29 PM designatorConst LOCALE_SDAYNAME1 H2A long name for MondayConst LOCALE_SDAYNAME2 H2B long name for TuesdayConst LOCALE_SDAYNAME3 H2C long name for WednesdayConst LOCALE_SDAYNAME4 H2D long name for ThursdayConst LOCALE_SDAYNAME5 H2E long name for FridayConst LOCALE_SDAYNAME6 H2F long name for SaturdayConst LOCALE_SDAYNAME7 H30 long name for SundayConst LOCALE_SABBREVDAYNAME1 H31 abbreviated name for MondayConst LOCALE_SABBREVDAYNAME2 H32 abbreviated name for TuesdayConst LOCALE_SABBREVDAYNAME3 H33 abbreviated name for WednesdayConst LOCALE_SABBREVDAYNAME4 H34 abbreviated name for ThursdayConst LOCALE_SABBREVDAYNAME5 H35 abbreviated name for FridayConst LOCALE_SABBREVDAYNAME6 H36 abbreviated name for SaturdayConst LOCALE_SABBREVDAYNAME7 H37 abbreviated name for SundayConst LOCALE_SMONTHNAME1 H38 long name for JanuaryConst LOCALE_SMONTHNAME2 H39 long name for FebruaryConst LOCALE_SMONTHNAME3 H3A long name for MarchConst LOCALE_SMONTHNAME4 H3B long name for AprilConst LOCALE_SMONTHNAME5 H3C long name for MayConst LOCALE_SMONTHNAME6 H3D long name for JuneConst LOCALE_SMONTHNAME7 H3E long name for JulyConst LOCALE_SMONTHNAME8 H3F long name for AugustConst LOCALE_SMONTHNAME9 H40 long name for SeptemberConst LOCALE_SMONTHNAME10 H41 long name for OctoberConst LOCALE_SMONTHNAME11 H42 long name for NovemberConst LOCALE_SMONTHNAME12 H43 long name for DecemberConst LOCALE_SABBREVMONTHNAME1 H44 abbreviated name for JanuaryConst LOCALE_SABBREVMONTHNAME2 H45 abbreviated name for FebruaryConst LOCALE_SABBREVMONTHNAME3 H46 abbreviated name for MarchConst LOCALE_SABBREVMONTHNAME4 H47 abbreviated name for AprilConst LOCALE_SABBREVMONTHNAME5 H48 abbreviated name for MayConst LOCALE_SABBREVMONTHNAME6 H49 abbreviated name for JuneConst LOCALE_SABBREVMONTHNAME7 H4A abbreviated name for JulyConst LOCALE_SABBREVMONTHNAME8 H4B abbreviated name for AugustConst LOCALE_SABBREVMONTHNAME9 H4C abbreviated name for SeptemberConst LOCALE_SABBREVMONTHNAME10 H4D abbreviated name for OctoberConst LOCALE_SABBREVMONTHNAME11 H4E abbreviated name for NovemberConst LOCALE_SABBREVMONTHNAME12 H4F abbreviated name for DecemberConst LOCALE_SABBREVMONTHNAME13 H100FConst LOCALE_SPOSITIVESIGN H50 positive signConst LOCALE_SNEGATIVESIGN H51 negative signConst LOCALE_IPOSSIGNPOSN H52 positive sign positionConst LOCALE_INEGSIGNPOSN H53 negative sign positionConst LOCALE_IPOSSYMPRECEDES H54 mon sym precedes pos amtConst LOCALE_IPOSSEPBYSPACE H55 mon sym sep by space from pos amtConst LOCALE_INEGSYMPRECEDES H56 mon sym precedes neg amtConst LOCALE_INEGSEPBYSPACE H57 mon sym sep by space from neg amt Time Flags for GetTimeFormatW.Const TIME_NOMINUTESORSECONDS H1 do not use minutes or secondsConst TIME_NOSECONDS H2 do not use secondsConst TIME_NOTIMEMARKER H4 do not use time markerConst TIME_FORCE24HOURFORMAT H8 always use 24 hour format Date Flags for GetDateFormatW.Const DATE_SHORTDATE H1 use short date pictureConst DATE_LONGDATE H2 use long date picture Code Page Dependent APIsDeclare PtrSafe Function IsValidCodePage Lib kernel32 Alias IsValidCodePage (ByVal CodePage As Long) As LongDeclare PtrSafe Function GetACP Lib kernel32 Alias GetACP () As LongDeclare PtrSafe Function GetOEMCP Lib kernel32 Alias GetOEMCP () As LongDeclare PtrSafe Function GetCPInfo Lib kernel32 Alias GetCPInfo (ByVal CodePage As Long, lpCPInfo As CPINFO) As LongDeclare PtrSafe Function IsDBCSLeadByte Lib kernel32 Alias IsDBCSLeadByte (ByVal bTestChar As Byte) As LongDeclare PtrSafe Function MultiByteToWideChar Lib kernel32 Alias MultiByteToWideChar (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, ByVal lpWideCharStr As String, ByVal cchWideChar As Long) As LongDeclare PtrSafe Function WideCharToMultiByte Lib kernel32 Alias WideCharToMultiByte (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As String, ByVal cchWideChar As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, ByVal lpDefaultChar As String, ByVal lpUsedDefaultChar As LongPtr) As Long Locale Dependent APIsDeclare PtrSafe Function CompareString Lib kernel32 Alias CompareStringA (ByVal Locale As Long, ByVal dwCmpFlags As Long, ByVal lpString1 As String, ByVal cchCount1 As Long, ByVal lpString2 As String, ByVal cchCount2 As Long) As LongDeclare PtrSafe Function LCMapString Lib kernel32 Alias LCMapStringA (ByVal Locale As Long, ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByVal cchDest As Long) As LongDeclare PtrSafe Function GetLocaleInfo Lib kernel32 Alias GetLocaleInfoA (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As LongDeclare PtrSafe Function GetTimeFormat Lib kernel32 Alias GetTimeFormatA (ByVal Locale As Long, ByVal dwFlags As Long, lpTime As SYSTEMTIME, ByVal lpFormat As String, ByVal lpTimeStr As String, ByVal cchTime As Long) As LongDeclare PtrSafe Function GetDateFormat Lib kernel32 Alias GetDateFormatA (ByVal Locale As Long, ByVal dwFlags As Long, lpDate As SYSTEMTIME, ByVal lpFormat As String, ByVal lpDateStr As String, ByVal cchDate As Long) As LongDeclare PtrSafe Function SetThreadLocale Lib kernel32 Alias SetThreadLocale (ByVal Locale As Long) As LongDeclare PtrSafe Function GetSystemDefaultLangID Lib kernel32 Alias GetSystemDefaultLangID () As Integer当学员学习到高级阶段如果引用API这个资料可以直接查到64位写法。大多数情况下我们是将低版本的程序文件升级到高版本这时您就不必为如下的错误提示所困扰了我20多年的VBA实践经验全部浓缩在下面的各个教程中