Returns the era that the specified time exists in.
Public Function GetEra( ByRef Time As Variant ) As Long
The GregorianCalendar class only supports the current era of AD. This returns a constant of 1.
Project CorLib Overview
Class GregorianCalendar Overview