local n,lcTeks 
lcTeks="I   II  III IV  V   VI  VII VIIIIX  X   XI  XII " 

n=8      && misalkan 'tuk bulan 1, n=12 'tuk bulan 12 dst. 
? SUBSTR(lcTeks,IIF(n=1,1,n+(3*(n-1))),4)