Menjadikan huruf awal menjadi huruf besar

Public Function FirstUCaseWord(ByVal MyString As String) As String Dim PosSpc As Integer Mid(MyString, 1, 1) = UCase(Mid(MyString, 1, 1)) PosSpc = InStr(MyString, ” “) While PosSpc <> 0 Mid(MyString, PosSpc + 1, 1) = UCase(Mid(MyString, PosSpc + 1, 1)) PosSpc = InStr(PosSpc + 1, MyString, ” “) Wend FirstUCaseWord = MyString End Function

Convert Tanggal menghasilkan Nama Bulan

Berikut ini adalah Fungsi mengkonversi Tanggal hari untuk menghasilkan Nama Bulan Public Function Month2String(DateMonth As Single, xPjg As Boolean) As String On Error GoTo hErr Dim MVal As Single, MStr As String MVal = DateMonth Select Case MVal Case 1: MStr = IIf(xPjg, “January”, “Jan”) Case 2: MStr = IIf(xPjg, “February”, “Feb”) Case 3: MStr [...]

Convert Bulan ke String

Berikut ini adalah Funsi mengkonversi Tanggal hari untuk menghasilkan Nama Bulan Public Function Month2String(DateMonth As Single, xPjg As Boolean) As String On Error GoTo hErr Dim MVal As Single, MStr As String MVal = DateMonth Select Case MVal Case 1: MStr = IIf(xPjg, “January”, “Jan”) Case 2: MStr = IIf(xPjg, “February”, “Feb”) Case 3: MStr [...]

Convert Decimal ke String

Public Function Des2Word(ByVal l As Double) As String On Error GoTo hErr Dim tmp As String, Str As String, I As Integer, J As Integer tmp = Format(l, “000000000000″) Str = “” If Len(tmp) > 12 Then Des2Word = “” Exit Function End If If Val(tmp) = 0 Then Des2Word = “Nol” Exit Function End [...]