Terimakasih juga untuk mas aksan
apalah arti sebuah nama ( sws , wes ewes ewes .. boleh juga kok :) ) --- In [email protected], "aksan kurdin" <[EMAIL PROTECTED]> wrote: > > terima kasih banyak mas sws, > ilmunya mantep, moga2 berguna bagi umat belajar-access.... > > tapi mungkin bisa kasih signature kali yah, mas, > kalok manggil 'mas sws' jadi ingat iklan basuki 'wes ewes ewes ... ' > :D > > > aksan kurdin > > 2008/7/24 sws_sby <[EMAIL PROTECTED]>: > > 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 [email protected], "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 <sws_sby@>: > >> > Anda bisa lihat di epri anda. Kalau butuh aplikasi sebaliknya juga > >> > ada semoga membantu. > >> > > >> > --- In [email protected], 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 > >> > > > > > > > > -- > Aksan Kurdin >
