来个数字式的。
nyea=大于零的年份数字 比如： 2009 等
cm=''
csz="478554829447543550215195550595480345267549658516794990153746"
csz=csz+csz
csz=subs(csz,((nyea%12-1)*5+1),70)
for i=1 to 12
  cm=cm+chr(val(substr(csz,i*5+1,5)))
endf
?cm

呵呵，真痛快。还是用substr()函数来得爽，谢谢大家了

生肖 = Substr('鼠牛虎兔龙蛇马羊猴鸡狗猪',(Mod((年号)-4,12)+1)*2-1,2)
1900是鼠年
mod(1900,12)≡ mod(1896,12)+mod(4,12)≡ 0+mod(4,12)≡ mod(4,12)
Mod((年号)-1900,12)≡ Mod((年号)-1896-4,12)≡Mod((年号)-4,12)