Dear Member BExcel, Asalamualaikum warahmatullah, Saya membuat cekrip sederhana untuk mengubah angka jam menjadi huruf,
16 Mei 2012 05:30:00 Pukul lima lewat dua puluh sembilan menit 12 April 2015 08:33:00 Pukul delapan lewat tiga puluh dua menit 13 April 2015 08:21:00 Pukul delapan lewat dua puluh menit 14 April 2015 08:39:00 Pukul delapan lewat tiga puluh sembilan menit 15 April 2015 08:17:00 Pukul delapan lewat enam belas menit 16 April 2015 08:02:00 Pukul delapan lewat satu menit 17 April 2015 08:40:00 Pukul delapan lewat tiga puluh sembilan menit 18 April 2015 08:02:00 Pukul delapan lewat satu menit 19 April 2015 08:05:00 Pukul delapan lewat empat menit 20 April 2015 08:42:00 Pukul sembilan kurang delapan belas menit 21 April 2015 08:55:00 Pukul sembilan kurang lima menit namun ada kesalahan kecil, yaitu hasilnya tidak cocok. dimanakah perubahan cekripnya agar sesuai dengan hasil? Option Explicit Function ejam(y As Double) As String Dim a As Double Dim h As Double Dim m As Double a = y - Int(y) h = Int(a * 24) m = Int((a * 24 - Int(a * 24)) * 60) If m < 40 Then If m = 0 Then ejam = "Pukul " & angka(h) Exit Function Else End If ejam = "Pukul " & angka(h) & " lewat " & angka(m) & " menit" Else ejam = "Pukul " & angka(h + 1) & " kurang " & angka(60 - m) & " menit" End If End Function Function angka(x As Double) As String Dim p As Double Dim s As Double Dim kuruf(9) kuruf(1) = "satu" kuruf(2) = "dua" kuruf(3) = "tiga" kuruf(4) = "empat " kuruf(5) = "lima " kuruf(6) = "enam " kuruf(7) = "tujuh " kuruf(8) = "delapan " kuruf(9) = "sembilan " p = Int(x / 10) s = x - p * 10 If x = 0 Then angka = "nol" Exit Function Else End If If p = 1 Then If s = 1 Then angka = "sebelas" Exit Function Else If s = 0 Then angka = "sepuluh" Exit Function Else End If angka = kuruf(s) & " belas" Exit Function End If Else If p = 0 Then angka = kuruf(s) Else angka = kuruf(p) & " puluh " & kuruf(s) End If End If End Function walaikumsalam warahmatullah. Agus 2015-12-01 23:31 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] < belajar-excel@yahoogroups.com>: > > > Wa'alaikumussalam wr wb > > Coba file yang ada disini <https://app.box.com/s/gefh85lon4avu9n66ifm>. > > Wassalamu'alaikum wr wb > Kid > > > > > > > > 2015-11-28 22:11 GMT+07:00 zainal_abid...@yahoo.com [belajar-excel] < > belajar-excel@yahoogroups.com>: > >> >> >> Assalamualaikum.... >> >> Mau minta tolong, apakah ada module untuk merubah jam menjadi teks di >> excel >> >> Contoh: >> 10.15 menjadi "sepuluh lewat lima belas" >> >> Terima kasih sebelumnya >> > > >
hour to text.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12