0FISCYEAR and mapping (time conversion)

In 2004s you cannot map 0FISCPER to 0FISCYEAR and it converts it automatically. You must write your own routine/formula.

Can someone share their formula/routine to update 0FISCYEAR?

Thanks, Mark.