CFLGetYear Procedure
Validates and normalizes a year value to a 4-digit format. Accepts 1, 2, 3, or 4 digit year values and converts them to 4-digit format. Assumes years starting with '2' (e.g., 2000-2999).
Signature
CFLGetYear(Year: Code[4]) : Code[4]
Parameters
Year Code[4]
The year value to validate and normalize (1-4 digits).
Returns
Code[4]
A 4-digit year code.
Example
Examples:
- Input: '1' → Output: '2001'
- Input: '23' → Output: '2023'
- Input: '024' → Output: '2024'
- Input: '2025' → Output: '2025'