Makasih mas, saya juga ngak tau tuh tentang tulisan romawinya juta. Mungkin waktu pelajaran ini saya juga lagi bolos. Atau mungkin ada member belajar-akses yang berprofesi sebagai guru, sehingga bisa tanya-tanya. diki
----- Original Message ---- From: sws_sby <[EMAIL PROTECTED]> To: [email protected] Sent: Thursday, July 24, 2008 3:25:36 AM Subject: [belajar-access] Re: Adakah yang punya fungsi romawi Terimakasih kritiknya mas Aksan. Maaf kebiasaan lama masih terbawa. ini fungsi Romawinya Function LatRom(number As Long) As String Dim n As Long Dim j, i As Integer Dim Rom, Lat Dim Rmw As String Rom = Array("I", "IV", "V", "IX", "X", "XL", "L", "XC", "C", "CD", "D", "CM", "M") 'mis: Roman = iv , tinggal ganti huruf kecil Lat = Array(1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000) Rmw = "" For j = 12 To 0 Step -1 n = Int(number / Lat(j)) If n <> 0 Then For i = 1 To n Rmw = Rmw & Rom(j) Next i End If number = number Mod Lat(j) Next LatRom = Rmw End Function Pada Form ( nanti terserah anda dibuat spt apa ) mis: ada 2 textbox : Latin dan Roman Pada textbox Latin taruh event After Update dan tambah code spt dibawah : Private Sub Latin_AfterUpdate( ) If Latin.Value > 999999 Then MsgBox "Maaf nilai tdk dapat di konversi ke Romawi , Jaman itu belum Kenal Juta dstnya", vbInformation, "Message" Else Roman.Value = LatRom(Latin) End If End Sub Romawi = 0 - 3999 max yg dapat ditampilkan excel ---> shell ketik =ROMAN(nilai) Omong-omong mas Diki tau gak Romawinya untuk Juta, Miliar, Triliyun dst , dst... soale waktu dapet aku cuma sampe Ribu pas diajar juta dstnya aku ketiduran ...:) --- In belajar-access@ yahoogroups. com, "aksan kurdin" <aksan.kurdin@ ...> wrote: > > tujuan milis saling membagi, > pertanyaan salah seorang member bisa jadi mewakili member yang lain. > jadi solusi pertanyaan lewat jalur umum sebaiknya diberikan via jalur > umum juga, sehingga semua juga kebagian, tidak pribadi yang bertanya > saja. > milis ini terbuka untuk attachment. > > aksan kurdin > > 2008/7/23 sws_sby <[EMAIL PROTECTED] >: > > Anda bisa lihat di epri anda. Kalau butuh aplikasi sebaliknya juga > > ada semoga membantu. > > > > --- In belajar-access@ yahoogroups. com, diki wahyudin > > <pangestu_cx@ > wrote: > >> > >> MIME-Version: 1.0 > >> Content-Type: text/plain; charset=us-ascii > >> > >> Saya sedang membuat fungsi untuk merubah angka menjadi angka > > romawi, tetapi belum berhasil. > >> Adakah rekan2 yang bisa membantu saya. > >> diki > >> > > > > > > > > -- > Aksan Kurdin >
