Formula Menyebutkan Jam Dengan Kalimat

Formula Menyebutkan Jam Dengan Kalimat...

Pada kali ini saya akan share cara membuat formula untuk menyebutkan jam dalam bentuk kalimat tertulis. contohnya sebagai berikut:

10:20:59
"Sepuluh jam dua puluh menit dan lima puluh sembilan detik"

Atau

23:35:45
"Pukul dua puluh tiga lewat tiga puluh lima menit empat puluh lima detik"

Baik, kembali ke pembahasan.
Pada dasarnya Formula Meyebutkan Jam Dengan Kalimat tidak tersedia di MS.Excel, namun saya akan membuatkan UDF atau Formula yang ditetapkan oleh pengguna melalui VBA. Langsung saja kita bahas formulanya.

• Patikan Tab Develover sudah mucul pada Excel anda.
• Buka Visual Basic dengan menekan alt+F11 atau klik visual basic pada tab develover.
• Buat Module baru, dengan cara klik kanan pada VBAProject, pilih insert dan klik module
• Setelah itu masukan kode di bawah ini pada module yang tadi di buat:

Public Function Sebut_Jam(Cell_Ref As Range, Optional Keterangan As Boolean = True) As String

Dim lkar As Integer, poin() As String, marker As Integer, transl As Integer

   On Error GoTo Sebut_Jam_Error
lkar = Len(Cell_Ref.Text)
    If lkar >= 7 Then
        marker = 2
    ElseIf lkar = 4 Or lkar = 5 Then
        marker = 1
    ElseIf lkar = 1 Or lkar = 2 Then
        marker = 0
    End If
poin() = Split(Cell_Ref.Text, ":")
transl = 0
For transl = 0 To marker

poin(transl) = Choose(CLng(poin(transl) + 1), "nol", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan", "sepuluh" _
        , "sebelas", "dua belas", "tiga belas", "empat belas", "lima belas", "enam belas", "tujuh belas", "delapan belas", "sembilan belas", "dua puluh" _
        , "dua puluh satu", "dua puluh dua", "dua puluh tiga", "dua puluh empat", "dua puluh lima", "dua puluh enam", "dua puluh tujuh", "dua puluh delapan", "dua puluh sembilan", "tiga puluh" _
        , "tiga puluh satu", "tiga puluh dua", "tiga puluh tiga", "tiga puluh empat", "tiga puluh lima", "tiga puluh enam", "tiga puluh tujuh", "tiga puluh delapan", "tiga puluh sembilan", "empat puluh" _
        , "empat puluh satu", "empat puluh dua", "empat puluh tiga", "empat puluh empat", "empat puluh lima", "empat puluh enam", "empat puluh tujuh", "empat puluh delapan", "empat puluh sembilan", "lima puluh" _
        , "lima puluh satu", "lima puluh dua", "lima puluh tiga", "lima puluh empat", "lima puluh lima", "lima puluh enam", "lima puluh tujuh", "lima puluh delapan", "lima puluh sembilan")
jump:
Next transl

If Keterangan = True Then
    Sebut_Jam = poin(0) & " jam lebih " & poin(1) & " menit dan " & poin(2) & " detik"
Else
    Sebut_Jam = "Pukul " & poin(0) & " lewat " & poin(1) & " menit " & poin(2) & " detik"
End If

   On Error GoTo 0
   Exit Function

Sebut_Jam_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Sebut_Jam of Module UDF_Jam"
End Function 

• Simpan file dengan ekstesi .xlsm
• Selesai.

Semoga Bermanfaat.

Advertisement