Lotus中日期小写转大写

Published by admin on 09月 29, 2010

lotus notes 常有用户要求要大写显示日期（比如公文，公章日期）。现将有函数提供，以交流。Lotus中日期小写转大写 

    算法：小写数字转换成大写字母的应用，在Notes中日期的转变。数小变大算法

    思想：主要把”零。。十”这十一个字母放入一数组中，根据输入数字取相应数组值。未数为”0″的做特殊处理（只两位）。日期也是一样处理。

    Notes日期小转大源码：

    Sub Click(Source As Button)

    Dim x(10) As String

    zz=”零一二三四五六七八九十”

    m=Len(zz)

    For i=0 To Ubound(x)

    x(i)=Left(zz,1)

    zz=Right(zz,m-1)

    m=m-1

    Next

    Dae=Format(Now,”yyyy-mm-dd”)

    num=Inputbox(”请输入日期！”+Dae,”",Dae)

    y=Strleft(num,”-”)

    m=Strleft(Right(num,5),”-”)

    d=Strright(Right(num,5),”-”)

    ‘年

    dy=Len(y)

    For i=1 To dy

    yy=yy+x(Left(y,1))

    y=Right(y,dy-1)

    dy=dy-1

    Next

    ‘月日

    Dim md(1) As Integer

    Dim mm(1) As String

    md(0)=m

    md(1)=d

    For i=0 To Ubound(md)

    Select Case True

    Case md(i)<=10

    mm(i)=x(md(i))

    Case 10<md(i)<13

    one=Left(Cstr(md(i)),1)

    ten=Right(Cstr(md(i)),1)

    If Right(Cstr(md(i)),1)=0 Then

    mm(i)=x(Cint(one))+”十”

    Else

    mm(i)=x(Cint(one))+”十”+x(Cint(ten))

    End If

    End Select

    Next

    Msgbox yy+”年”+mm(0)+”月”+mm(1)+”日”

    End Sub