How to Calculate the Current Fiscal Year

# re: How to Calculate the Current Fiscal Year

What about the function in Codeunit 1?

FindPeriod(Date1,Date2,FindYear,DateFilterText,Position,Length)

ReadCharacter(' ',DateFilterText,Position,Length);

IF FindYear THEN

 AccountingPeriod.SETRANGE("New Fiscal Year",TRUE)

ELSE

 AccountingPeriod.SETRANGE("New Fiscal Year");

Sign := '';

IF ReadSymbol('+',DateFilterText,Position,Length) THEN

 Sign := '+'

ELSE

 IF ReadSymbol('-',DateFilterText,Position,Length) THEN

   Sign := '-';

IF Sign = '' THEN

 IF ReadNumeral(Numeral,DateFilterText,Position,Length) THEN BEGIN

   IF FindYear THEN

     AccountingPeriod.FINDFIRST

   ELSE BEGIN

     AccountingPeriod.SETRANGE("New Fiscal Year",TRUE);

     AccountingPeriod."Starting Date" := WORKDATE;

     AccountingPeriod.FIND('=<');

     AccountingPeriod.SETRANGE("New Fiscal Year");

   END;

   AccountingPeriod.NEXT(Numeral - 1);

 END ELSE BEGIN

   AccountingPeriod."Starting Date" := WORKDATE;

   AccountingPeriod.FIND('=<');

 END

ELSE BEGIN

 IF NOT ReadNumeral(Numeral,DateFilterText,Position,Length) THEN

   EXIT(Position);

 IF Sign = '-' THEN

   Numeral := -Numeral;

 AccountingPeriod."Starting Date" := WORKDATE;

 AccountingPeriod.FIND('=<');

 AccountingPeriod.NEXT(Numeral);

END;

Date1 := AccountingPeriod."Starting Date";

IF AccountingPeriod.NEXT = 0 THEN

 Date2 := 31129999D

ELSE

 Date2 := AccountingPeriod."Starting Date" - 1;

ReadCharacter(' ',DateFilterText,Position,Length);

IF Position <= Length THEN

 EXIT(Position);

EXIT(0);

# re: How to Calculate the Current Fiscal Year

And what happened to just entering "Y"?