| VB声明 |
| Declare Function EnumCalendarInfo Lib "kernel32"
Alias "EnumCalendarInfoA" (ByVal lpCalInfoEnumProc As Long, ByVal Locale As
Long, ByVal Calendar As Long, ByVal CalType As Long) As Long |
| 说明 |
| 枚举在指定“地方”环境中可用的日历信息 |
| 返回值 |
| Long，TRUE（非零）表示成功，零表示失败。会将GetLastError设置设为下述某个常数：ERROR_BADDB，ERROR_INVALID_FLAGS，ERROR_INVALID_PARAMETER |
| 参数表 |
| 参数 |
类型及说明 |
| lpCalInfoEnumProc |
Long，指向为每个日历都调用的一个函数的指针。用Addressof运算符得到位于一个标准模块中的函数的地址 |
| Locale |
Long，用于决定具体枚举日历的“地方”设置 |
| Calendar |
Long，如设为常数ENUM_ALL_CALANDARS，表示枚举所有日历；如设为1，枚举本地罗马日历，2枚举英国罗马日历，3枚举日本日历，4枚举中国日历，5枚举朝鲜日历 |
| CalType |
Long，CAL_函数之一，指示欲枚举的信息类型 |