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"
>
> <[EMAIL PROTECTED]> 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 [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
