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' [email protected] [belajar-excel] <
[email protected]>:
>
>
> 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 [email protected] [belajar-excel] <
> [email protected]>:
>
>>
>>
>> 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
