Terima kasih banyak atas bantuannya, semoga dibalas dengan kebaikan yang lebih banyak :) -------------------------------------------- On Wed, 12/9/15, Toby kenzo [email protected] [belajar-excel] <[email protected]> wrote:
Subject: Re: [belajar-excel] (Help) Cara merubah jam menjadi teks To: "[email protected]" <[email protected]> Date: Wednesday, December 9, 2015, 8:13 PM tambahan kalo ada tanggalnya.. Sent from Yahoo Mail on Android From: Nang Agus [email protected] [belajar-excel] <[email protected]>; To: BExcel <[email protected]>; Subject: Re: [belajar-excel] (Help) Cara merubah jam menjadi teks [1 Attachment] Sent: Wed, Dec 9, 2015 4:13:22 AM 2015-12-09 10:49 GMT+07:00 'Subroto, Matzen' [email protected] [belajar-excel] <[email protected]>: Assalamu alaikum, Pak Agus, Bisa di share ga filenya yang sudah okeh Wassalam Terima Kasih Matzen From: [email protected] [mailto:[email protected]] Sent: 09 Desember 2015 10:31 To: BExcel Subject: Re: [belajar-excel] (Help) Cara merubah jam menjadi teks Asalamualaikum warahmatullah. Mas Kid, sudah selesai sesuai keinginan berdasarkan petunjuk yang diberikan. terima kasih. wasalamualaikum warahmatullah. Thole Agus 2015-12-09 9:46 GMT+07:00 'Mr. Kid' [email protected] [belajar-excel] <[email protected]>: Wa'alaikumussalam wr wb mas Nang, Ngobrolin tentang waktu ya... Tipe datanya adalah datetime. Di VB/VBA bertipe date. Nilai serial tanggal yang menyertakan sisi wakt memang bisa disiman juga dalam tipe data double. Jadi, bagian : (optional, tetapi bisa jadi akan bermanfaat) Function ejam(y As Double) As String tipedatanya bisa diganti menjadi Date atau dibiarkan tetap Double. Perbedaannya yang mudah tampak adalah respon UDF terhadap nilai yang di-input-ken. Tipe data Date di VB/VBA 6 atau VBA 7 akan menerima nilai numerik serial date saja, yaitu dari serial date tanggal 0100-01-01 sampai 9999-12-31. Sedangkan Double akan menerima nilai numerik dengan rentang yang lebih lebar, bisa sampai e300-an. Ketika sebuah function diberi nilai inputan yang diluar interval datatype nya, makan akan segera mengembalikan error value #NUM! (sebagai hasil, tanpa mengerjakan baris kode apapun yang ada di dalam function). Ketika mengolah data yang sejatinya berupa nilai waktu (sisi tanggal saja, sisi jam saja, ataupun kedua sisinya), akan lebih konsisten tepat jika diolah dalam tipe data Date dan memanfaatkan fungsi-fungsi yang khusus mengolah data bertipe date dibanding dengan menggunakan yang lainnya. Misalnya, ingin mendapatkan nilai tahun, maka gunakan fungsi Year. Karena fungsi Year menghasilkan data bertipe Integer, maka variabel penyimpannya juga bertipe integer. Cara tersebut di atas akan lebih konsisten tepat dibanding dengan komputasi matematis dengan nilai-nilai yang masih disimpan dalam datatype double. Jadi, bagian : Dim h As Double Dim m As Double diubah saja agar menjadi bertipe integer. Nilai jam dan menit dapat ditampung oleh datatype integer. Menggunakan Long akan lebih baik, karena konon untuk aplikasi 32 bit akan lebih cepat menggunakan tipe data Long, karena di dalam VBA, tipe data integer akan disimpan dalam ruang memory seluas ruang untuk datatype Long. Justru kalau menggunakan datatype integer, maka akan ada proses tambahan untuk mengubahnya menjadi Long, tetapi hanya tetap menyimpan interval nilai yang sempit. Kemudian, nilai jam dan menit, diperoleh dengan fungsi Hour dan Minute saja. h=hour(y) m=minute(y) Hal ini akan lebih konsisten tepat. Apalagi jika y bertipe Date. Jadi, saat mengambil nilai jam dan menit ini tidak dipengaruhi oleh tipe data nya h dan m. Proses selanjutnya yang akan menggunakan variabel h dan m yang akan dipengaruhi oleh tipe data. Kayanya, perbaikan bagian itu bisa dicoba lebih dulu. Jika hasilnya masih keliru, berarti ada bagian kode setelah pengambilan nilai jam dan menit yang kurang sesuai, dan membutuhkan cek baris-per-baris kode. Moga-moga dengan perbaikan di atas jadi ndak perlu cek baris-per-baris kode ya Wassalamu'alaikum wr wb Kid. 2015-12-09 8:19 GMT+07:00 Nang Agus [email protected] [belajar-excel] <[email protected]>: 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. 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 ____________________________________________________________________________ This email has been scanned by AkzoNobel for Viruses and Spam. For more information please contact your local IT Service Desk. ____________________________________________________________________________ #yiv7484334150 #yiv7484334150 -- #yiv7484334150ygrp-mkp { border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;} #yiv7484334150 #yiv7484334150ygrp-mkp hr { border:1px solid #d8d8d8;} #yiv7484334150 #yiv7484334150ygrp-mkp #yiv7484334150hd { color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;} #yiv7484334150 #yiv7484334150ygrp-mkp #yiv7484334150ads { margin-bottom:10px;} #yiv7484334150 #yiv7484334150ygrp-mkp .yiv7484334150ad { padding:0 0;} #yiv7484334150 #yiv7484334150ygrp-mkp .yiv7484334150ad p { margin:0;} #yiv7484334150 #yiv7484334150ygrp-mkp .yiv7484334150ad a { color:#0000ff;text-decoration:none;} #yiv7484334150 #yiv7484334150ygrp-sponsor #yiv7484334150ygrp-lc { font-family:Arial;} #yiv7484334150 #yiv7484334150ygrp-sponsor #yiv7484334150ygrp-lc #yiv7484334150hd { margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;} #yiv7484334150 #yiv7484334150ygrp-sponsor #yiv7484334150ygrp-lc .yiv7484334150ad { margin-bottom:10px;padding:0 0;} #yiv7484334150 #yiv7484334150actions { font-family:Verdana;font-size:11px;padding:10px 0;} #yiv7484334150 #yiv7484334150activity { background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;} #yiv7484334150 #yiv7484334150activity span { font-weight:700;} #yiv7484334150 #yiv7484334150activity span:first-child { text-transform:uppercase;} #yiv7484334150 #yiv7484334150activity span a { color:#5085b6;text-decoration:none;} #yiv7484334150 #yiv7484334150activity span span { color:#ff7900;} #yiv7484334150 #yiv7484334150activity span .yiv7484334150underline { text-decoration:underline;} #yiv7484334150 .yiv7484334150attach { clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;} #yiv7484334150 .yiv7484334150attach div a { text-decoration:none;} #yiv7484334150 .yiv7484334150attach img { border:none;padding-right:5px;} #yiv7484334150 .yiv7484334150attach label { display:block;margin-bottom:5px;} #yiv7484334150 .yiv7484334150attach label a { text-decoration:none;} #yiv7484334150 blockquote { margin:0 0 0 4px;} #yiv7484334150 .yiv7484334150bold { font-family:Arial;font-size:13px;font-weight:700;} #yiv7484334150 .yiv7484334150bold a { text-decoration:none;} #yiv7484334150 dd.yiv7484334150last p a { font-family:Verdana;font-weight:700;} #yiv7484334150 dd.yiv7484334150last p span { margin-right:10px;font-family:Verdana;font-weight:700;} #yiv7484334150 dd.yiv7484334150last p span.yiv7484334150yshortcuts { margin-right:0;} #yiv7484334150 div.yiv7484334150attach-table div div a { text-decoration:none;} #yiv7484334150 div.yiv7484334150attach-table { width:400px;} #yiv7484334150 div.yiv7484334150file-title a, #yiv7484334150 div.yiv7484334150file-title a:active, #yiv7484334150 div.yiv7484334150file-title a:hover, #yiv7484334150 div.yiv7484334150file-title a:visited { text-decoration:none;} #yiv7484334150 div.yiv7484334150photo-title a, #yiv7484334150 div.yiv7484334150photo-title a:active, #yiv7484334150 div.yiv7484334150photo-title a:hover, #yiv7484334150 div.yiv7484334150photo-title a:visited { text-decoration:none;} #yiv7484334150 div#yiv7484334150ygrp-mlmsg #yiv7484334150ygrp-msg p a span.yiv7484334150yshortcuts { font-family:Verdana;font-size:10px;font-weight:normal;} #yiv7484334150 .yiv7484334150green { color:#628c2a;} #yiv7484334150 .yiv7484334150MsoNormal { margin:0 0 0 0;} #yiv7484334150 o { font-size:0;} #yiv7484334150 #yiv7484334150photos div { float:left;width:72px;} #yiv7484334150 #yiv7484334150photos div div { border:1px solid #666666;height:62px;overflow:hidden;width:62px;} #yiv7484334150 #yiv7484334150photos div label { color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;} #yiv7484334150 #yiv7484334150reco-category { font-size:77%;} #yiv7484334150 #yiv7484334150reco-desc { font-size:77%;} #yiv7484334150 .yiv7484334150replbq { margin:4px;} #yiv7484334150 #yiv7484334150ygrp-actbar div a:first-child { margin-right:2px;padding-right:5px;} #yiv7484334150 #yiv7484334150ygrp-mlmsg { font-size:13px;font-family:Arial, helvetica, clean, sans-serif;} #yiv7484334150 #yiv7484334150ygrp-mlmsg table { font-size:inherit;font:100%;} #yiv7484334150 #yiv7484334150ygrp-mlmsg select, #yiv7484334150 input, #yiv7484334150 textarea { font:99% Arial, Helvetica, clean, sans-serif;} #yiv7484334150 #yiv7484334150ygrp-mlmsg pre, #yiv7484334150 code { font:115% monospace;} #yiv7484334150 #yiv7484334150ygrp-mlmsg * { line-height:1.22em;} #yiv7484334150 #yiv7484334150ygrp-mlmsg #yiv7484334150logo { padding-bottom:10px;} #yiv7484334150 #yiv7484334150ygrp-msg p a { font-family:Verdana;} #yiv7484334150 #yiv7484334150ygrp-msg p#yiv7484334150attach-count span { color:#1E66AE;font-weight:700;} #yiv7484334150 #yiv7484334150ygrp-reco #yiv7484334150reco-head { color:#ff7900;font-weight:700;} #yiv7484334150 #yiv7484334150ygrp-reco { margin-bottom:20px;padding:0px;} #yiv7484334150 #yiv7484334150ygrp-sponsor #yiv7484334150ov li a { font-size:130%;text-decoration:none;} #yiv7484334150 #yiv7484334150ygrp-sponsor #yiv7484334150ov li { font-size:77%;list-style-type:square;padding:6px 0;} #yiv7484334150 #yiv7484334150ygrp-sponsor #yiv7484334150ov ul { margin:0;padding:0 0 0 8px;} #yiv7484334150 #yiv7484334150ygrp-text { font-family:Georgia;} #yiv7484334150 #yiv7484334150ygrp-text p { margin:0 0 1em 0;} #yiv7484334150 #yiv7484334150ygrp-text tt { font-size:120%;} #yiv7484334150 #yiv7484334150ygrp-vital ul li:last-child { border-right:none !important; } #yiv7484334150
