Dalam pembuatan nomor referensi surat, misalnya nomor Invoice, terkadang kita masih menggunakan angka Rumawi pada bagian angka bulan. Dulu saya membuat sendiri function untuk konversi ini, namun sekarang cukup mudah untuk menyuruh AI untuk membuatkan functionnya.

Berikut ini function untuk mengkonversi angka ke angka Rumawi dalam Access VBA yang dibuat oleh Copilot. Saya mencantumkan di sini biar tinggal copas saja jika dibutuhkan.

Mengapa tidak menyuruh AI membuatkan function saja setiap dibutuhkan? Menurut saya lebih panjang prosesnya, karena "mbak" AI perlu prompt yang spesifik sehingga hasilnya betul-betul seperti yang kita inginkan, termasuk "gaya" (style) pemrograman pereferensi kita 🙂

Function ConvertToRoman(ByVal num As Integer) As String
    Dim romanNumerals As Variant
    Dim values As Variant
    Dim result As String
    Dim i As Integer
    
    ' Array angka Romawi dan nilainya
    romanNumerals = Array("M", "CM", "D", "CD", "C", "XC", "L", "XL", "X", "IX", "V", "IV", "I")
    values = Array(1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1)
    
    result = ""
    
    ' Validasi input
    If num <= 0 Or num > 3999 Then
        ConvertToRoman = "Invalid input"
        Exit Function
    End If
    
    ' Loop untuk konversi angka menjadi Romawi
    For i = LBound(values) To UBound(values)
        While num >= values(i)
            result = result & romanNumerals(i)
            num = num - values(i)
        Wend
    Next i
    
    ConvertToRoman = result
End Function

Cara pemakaian:

1. Copy-paste code di atas ke sebuah general module (modul umum).
2. Gunakan ekspresi seperti ini untuk mendapatkan hasil berupa angka Rumawi;
   tAngkaRumawi = ConvertToRoman(4)
   hasilnya: IV