| 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_函数之一，指示欲枚举的信息类型 |