Query dan Modul Round Up 100 dalam Access

 

Saya ingat ketika beberapa tahun yang lalu, membuat function round up 100 dalam Access ini sangat rumit pemikirannya, di convert dalam text, kemudian di delete 2 from right, di kali 100, trus hasilnya di convert lagi ke number. logikanya bener tetapi ada keterbatasan karena tidak fleksible sebab kemungkinan angka yang di konversi dalam ribuan, ratusan ribu bahkan jutaan.

Mungkin ini bisa menjawab pertanyaan rekan yang dulu membuat saya bingung, ternyata sesederhana ini jawabannya:

1. buat table tblData: dengan field ID(AutoNumber), Angka (Number)

2. Buat Query qryRoundUp100 :

SELECT tblData.ID, tblData.Angka, 100*Round([angka]/100,0) AS Mendekati, 100*Int([Angka]/100) AS [Round Down], -100*Int([Angka]/-100) AS [Round Up], Pembulatan([Angka]) AS [Modul Round Up]
FROM tblData;

 atau seperti gambar sbb:

 

3. Buat Module mdlPembulatan100: (info tambahan dari mas Edy W, MBA-moderator group milist belajar-access@yahoogroups.com)

Option Compare Database

Function Pembulatan(ByVal Nilai As Double) As Double
If Nilai Mod 100 > 0 Then
Pembulatan = ((Nilai \ 100) * 100) + 100
Else
Pembulatan = Nilai
End If
End Function

4. Hasilnya akan tampak sbb:

Angka asal, Hasil Round Up dengan Query, dan Round Up dengan module

Semoga bermanfaat.