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
>
