lotus 中日期小寫轉大寫的函式及演算法(lotus script) (轉)
日期小寫變大寫
---------------------------------------------------------------------------
lotus notes 常有要求要大寫顯示日期(比如公文,公章日期)。現將有提供,以交流。
演算法:小寫數字轉換成大寫字母的應用,在Notes中日期的轉變。數小變大演算法
思想:主要把"零。。十"這十一個字母放入一陣列中,根據輸入數字取相應陣列值。未數為"0"的做特殊處理(只兩位)。日期也是一樣處理。
Notes日期小轉大原始碼:
Sub Click( 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)
Case True
Case md(i)<=10
mm(i)=x(md(i))
Case 10
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
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10752043/viewspace-996906/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- plsql小寫金額轉大寫金額函式SQL函式
- 轉大寫函式MoneyCn函式
- Lotus 經驗談(轉)
- 小寫轉大寫金額在C++中的實現 (轉)C++
- 轉Java開發 Java 小寫轉大寫Java
- 小寫轉大寫金額[SQL SERVER] (轉)SQLServer
- php人民幣小寫轉大寫函式,不限長度,精確到分PHP函式
- Lotus Domino/Notes Toolkits綜述(九) 小結 (轉)
- 小寫金額轉換為大寫
- Excel金額小寫轉大寫公式Excel公式
- C# 把日期字串轉換為日期型別 (MM大寫為月、小寫為分鐘)C#字串型別
- 試題 演算法提高 小寫轉換為大寫 C++演算法C++
- 在 Lotus Domino 8.5 ID Vaullt 中編寫密碼重置程式密碼
- 用JAVASCIRPT寫的一個動態顯示日期的函式! (轉)Java函式
- JavaScript 小寫數字轉換為大寫JavaScript
- 人民幣小寫轉換為大寫
- Oracle的日期函式(轉)Oracle函式
- 日期轉換函式的格式引數大小寫規則 (自yangtingkun)函式
- 常見物件-把字串的首字母轉大寫其他轉小寫物件字串
- php首字母小寫怎麼轉大寫PHP
- string大小寫轉換函式函式
- 瞭解 Lotus Notes 中 Lotus Symphony 的可程式設計性程式設計
- 在 Lotus Notes 複合應用中整合 Lotus Symphony
- js將小寫數字轉換為大寫形式JS
- Lotus Domino/Notes Toolkits綜述(一) (轉)
- js日期轉換函式JS函式
- Lotus Notes/domino事件、屬性、函式和命令事件函式
- 13:將字串中的小寫字母轉換成大寫字母字串
- js 轉換時間戳的寫法ScriptJS時間戳
- MySQL字串函式 字串大小寫轉換MySql字串函式
- 日期轉換為raw的函式函式
- 小寫轉大寫金額儲存過程[SQL SERVER]儲存過程SQLServer
- 讀寫INI檔案的四個函式 (轉)函式
- 編寫自己的php擴充套件函式 (轉)PHP套件函式
- ASP.NET 實現人民幣大寫轉換函式ASP.NET函式
- Lotus Domino/Notes Toolkits綜述(六) 其他 (轉)
- python將函式寫入模組中的小技巧Python函式
- [轉]oracle日期函式集錦Oracle函式