怎么转化格式

如何转化格式
如何把2010-04-28转化为28APR?

[解决办法]
choose case mid("2010-04-28",6,2) 
case "01"
right("2010-04-28",2)+"一月"

case "02"
...

case else

end choose

[解决办法]