Get current financial year from date and To date in axapta

public str getFinyear_To()
{
yy= 0;
mm =0;
mm3="";
DtFrm = todt;
strdtfrm = date2str(todt, 123, 2, 4, 2, 4, 4);
mm = str2int(substr(strdtfrm, 4, 2));
yy = str2int(substr(strdtfrm, 7, 4));
yy5 = str2int(substr(strdtfrm, 7, 4));
mm3 = substr(strdtfrm, 4, 2);
if (mm <= 4)
{
yy--; }
finYrTo = int2str(yy) + '-';
 yy++; finYrTo += substr(int2str(yy),3,2);
return finYrTo; }
 public str getFinyear_From()
{ ; DtFrm = frmdt;
 strdtfrm = date2str(dtfrm, 123, 2, 4, 2, 4, 4);
mm = str2int(substr(strdtfrm, 4, 2));
yy = str2int(substr(strdtfrm, 7, 4));
mm2= substr(strdtfrm, 4, 2);
yy4 = str2int(substr(strdtfrm, 7, 4));
 if (mm <= 3)
{ yy--; }
 finYrFrom = int2str(yy) + '-';
 yy++; finYrFrom += substr(int2str(yy),3,2);
return finYrFrom;
}