Business Layer; add object to provide information and functionality regarding NZ High-Cost Consumer Credit Contracts

A new object has been added that provides information and functionality regarding New Zealand High-Cost Consumer Credit Contracts.

Note, it is date sensitive, you can either specify the date when first created, or change it on the fly by setting DateAsAt. Where the date is prior to the start date for High-Cost Consumer Credit Contracts, ISApplicable will return False, and zero will be returned for other Properties.

For more information see the Business Layer help.

Dim Regulations As finAccountRegulations_NZ_HighCostConsumerCreditContract

Regulations = finBL.AccountRegulations.GetAccountRegulations_NZ_HighCostConsumerCreditContract(New Date(2020, 8, 5))

finBL.DebugPrint(Regulations.IsApplicable)
finBL.DebugPrint(Regulations.ThresholdInterestRate)
finBL.DebugPrint(Regulations.MaximumRateOfCharge)
finBL.DebugPrint(Regulations.MaximumCostOfBorrowing(CDec(1234.56)))