$PBExportHeader$f_mth.srf
global type f_mth from function_object
end type

forward prototypes
global function long f_mth (long arg_month)
end prototypes

global function long f_mth (long arg_month);Long ll_mth,ll_temp
String ls_mth,ls_mth2

ls_mth = Right(String(arg_month),2)
ls_mth2 = String(Long(Left(String(arg_month),4)) - 1)
ll_temp = Long(ls_mth) - 1

IF ll_temp = 0 THEN
	ll_mth = Long(ls_mth2 + '12')
ELSEIF ll_temp = -1 THEN
	ll_mth = Long(ls_mth2 + '11')
ELSE
	ll_mth = arg_month - 1
END IF



RETURN ll_mth


end function