' 將傳進來的半型數字字串轉成國字大寫
' -------------------------------------------
Function 轉國字(s As String) As String
Dim s1 As String
Dim s2 As Long
If s = "" Then 轉國字 = "未輸入金額": Exit Function
While Left(s, 1) = "0": s = Right(s, Len(s) - 1): Wend
tmp節名 = "元萬億兆京"
節數 = (Len(s) - 1) \ 4 + 1
位數 = 節數 * 4
s = Right("0000" & s, 位數)
For i = 節數 To 1 Step -1
個位名 = Mid(tmp節名, i, 1)
s1 = Mid(s, ((節數 - i) * 4) + 1, 4)
zero = ""
If Left(s1, 1) = "0" Then zero = "零"
tmp = tmp & zero & 轉四位數(s1) & 個位名
Next
If Left(tmp, 1) = "零" Then tmp = Right(tmp, Len(tmp) - 1)
tmp = Replace(tmp, "零零", "零")
tmp = Replace(tmp, "零萬", "")
tmp = Replace(tmp, "零億", "")
tmp = Replace(tmp, "零元", "元")
轉國字 = tmp & "整"
End Function
... 繼續閱讀 ...
以下的程式碼片段(*.bat)可以取得目前系統時間的年、月、日、時、分等欄位，當在做一些自動化備份時，可以用時間來當檔名或留下 TIMESTAMP 紀錄。
... 繼續閱讀 ...
這個問題困擾我好久，但是現在終於被我給解決啦，想想也真是功德一件，自己蠻開心的！
... 繼續閱讀 ...
C# 中的這個運算子 "??" 主要用途是用來檢查變數的值是不是為 null，以往我們常用的方法是：
... 繼續閱讀 ...
老實說，製作 Outlook 2007 / Word 2007 團隊的人實在是太扯了!
... 繼續閱讀 ...