VBA 64位API声明语句第022讲

跟我学VBA我这里专注VBA, 授人以渔。我98年开始从源码接触VBA已经20余年了随着年龄的增长越来越觉得有必要把这项技能传递给需要这项技术的职场人员。希望职场和数据打交道的朋友都来学习VBA,利用VBA,起码可以提高自己的工作效率可以有时间多陪陪父母多陪陪家人何乐而不为呢我的教程一共九套从入门开始一直讲到程序的分发是学习利用VBA的实用教程。这份API资料是随高级教程赠送的。这些内容是MS的权威资料看似枯燥但对于想学习API函数的朋友是非常有用的。这讲我们继续学习VBA 64位API声明语句第022讲【分享成果随喜正能量】经常在做一件事时一开始动力很足可时间久了就会出现意志力消耗殆尽。流水不腐户枢不蠹。做一件对自己好的小事养一个好习惯慢慢坚持持续去做会在不动声色间内化为一个人的气质改变一个人的行为从而改变人的命运。VBA 64位API声明语句第022讲Declare PtrSafe Function GetUserDefaultLangID Lib kernel32 Alias GetUserDefaultLangID () As IntegerDeclare PtrSafe Function GetSystemDefaultLCID Lib kernel32 Alias GetSystemDefaultLCID () As LongDeclare PtrSafe Function GetUserDefaultLCID Lib kernel32 Alias GetUserDefaultLCID () As Long Locale Independent APIsDeclare PtrSafe Function GetStringTypeA Lib kernel32 Alias GetStringTypeA (ByVal lcid As Long, ByVal dwInfoType As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, lpCharType As Long) As LongDeclare PtrSafe Function FoldString Lib kernel32 Alias FoldStringA (ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByVal cchDest As Long) As Long ************************************************************************* * * * winnls.h -- NLS procedure declarations, constant definitions and macros * * * * Copyright (c) 1991-1995, Microsoft Corp. All rights reserved. * * * **************************************************************************/ * Calendar Types. * * These types are used for the GetALTCalendarInfoW NLS API routine. */Const MAX_DEFAULTCHAR 2Const CAL_ICALINTVALUE H1 calendar typeConst CAL_SCALNAME H2 native name of calendarConst CAL_IYEAROFFSETRANGE H3 starting years of erasConst CAL_SERASTRING H4 era name for IYearOffsetRangesConst CAL_SSHORTDATE H5 Integer date format stringConst CAL_SLONGDATE H6 long date format stringConst CAL_SDAYNAME1 H7 native name for MondayConst CAL_SDAYNAME2 H8 native name for TuesdayConst CAL_SDAYNAME3 H9 native name for WednesdayConst CAL_SDAYNAME4 HA native name for ThursdayConst CAL_SDAYNAME5 HB native name for FridayConst CAL_SDAYNAME6 HC native name for SaturdayConst CAL_SDAYNAME7 HD native name for SundayConst CAL_SABBREVDAYNAME1 HE abbreviated name for MondayConst CAL_SABBREVDAYNAME2 HF abbreviated name for TuesdayConst CAL_SABBREVDAYNAME3 H10 abbreviated name for WednesdayConst CAL_SABBREVDAYNAME4 H11 abbreviated name for ThursdayConst CAL_SABBREVDAYNAME5 H12 abbreviated name for FridayConst CAL_SABBREVDAYNAME6 H13 abbreviated name for SaturdayConst CAL_SABBREVDAYNAME7 H14 abbreviated name for SundayConst CAL_SMONTHNAME1 H15 native name for JanuaryConst CAL_SMONTHNAME2 H16 native name for FebruaryConst CAL_SMONTHNAME3 H17 native name for MarchConst CAL_SMONTHNAME4 H18 native name for AprilConst CAL_SMONTHNAME5 H19 native name for MayConst CAL_SMONTHNAME6 H1A native name for JuneConst CAL_SMONTHNAME7 H1B native name for JulyConst CAL_SMONTHNAME8 H1C native name for AugustConst CAL_SMONTHNAME9 H1D native name for SeptemberConst CAL_SMONTHNAME10 H1E native name for OctoberConst CAL_SMONTHNAME11 H1F native name for NovemberConst CAL_SMONTHNAME12 H20 native name for DecemberConst CAL_SMONTHNAME13 H21 native name for 13th month (if any)Const CAL_SABBREVMONTHNAME1 H22 abbreviated name for JanuaryConst CAL_SABBREVMONTHNAME2 H23 abbreviated name for FebruaryConst CAL_SABBREVMONTHNAME3 H24 abbreviated name for MarchConst CAL_SABBREVMONTHNAME4 H25 abbreviated name for AprilConst CAL_SABBREVMONTHNAME5 H26 abbreviated name for MayConst CAL_SABBREVMONTHNAME6 H27 abbreviated name for JuneConst CAL_SABBREVMONTHNAME7 H28 abbreviated name for JulyConst CAL_SABBREVMONTHNAME8 H29 abbreviated name for AugustConst CAL_SABBREVMONTHNAME9 H2A abbreviated name for SeptemberConst CAL_SABBREVMONTHNAME10 H2B abbreviated name for OctoberConst CAL_SABBREVMONTHNAME11 H2C abbreviated name for NovemberConst CAL_SABBREVMONTHNAME12 H2D abbreviated name for DecemberConst CAL_SABBREVMONTHNAME13 H2E abbreviated name for 13th month (if any) * Calendar Enumeration Value. */Const ENUM_ALL_CALENDARS HFFFFFFFF enumerate all calendars * Calendar ID Values. */Const CAL_GREGORIAN 1 Gregorian (localized) calendarConst CAL_GREGORIAN_US 2 Gregorian (U.S.) calendarConst CAL_JAPAN 3 Japanese Emperor Era calendarConst CAL_TAIWAN 4 Taiwan Region Era calendarConst CAL_KOREA 5 Korean Tangun Era calendar *************************************************************************** Typedefs * * Define all types for the NLS component here. \***************************************************************************/ * CP Info. */Type CPINFOMaxCharSize As Long max length (Byte) of a charDefaultChar(0 To MAX_DEFAULTCHAR - 1) As Byte default characterLeadByte(0 To MAX_LEADBYTES - 1) As Byte lead byte rangesEnd TypeType NUMBERFMTNumDigits As Long number of decimal digitsLeadingZero As Long if leading zero in decimal fieldsGrouping As Long group size left of decimallpDecimalSep As String ptr to decimal separator stringlpThousandSep As String ptr to thousand separator stringNegativeOrder As Long negative number orderingEnd Type * Currency format. */Type CURRENCYFMTNumDigits As Long number of decimal digits当学员学习到高级阶段如果引用API这个资料可以直接查到64位写法。大多数情况下我们是将低版本的程序文件升级到高版本这时您就不必为如下的错误提示所困扰了我20多年的VBA实践经验全部浓缩在下面的各个教程中