小妹求助大虾

Question

我现在要一个程序,
就是输入一个日期,把它转为大写的,
比如 2006-08-11,就转为贰零零陆年捌月拾壹日.
求求大蛱帮帮我啊,,,可以加我Q,496868725

Answer 1

你写一个函数就好了比如private function Fun(i as string) as string
   select case i
         case 1 
             fun="壹"
        
         case else
             fun=cstr(i)
    end select 
end sub主函数
private sub GetChange()
  dim s as string ,i as integer
  for i=1 to len(date)
    s=s & fun(mid(cstr(date),i,1))
  next 
end sub我没测试，你自己调调。逻辑上对了

Answer 2

http://community.csdn.net/Expert/topic/5592/5592728.xml?temp=.8035089