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;
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
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.
lengkapnya disini: http://mugi.or.id/blogs/sumiyanto/archive/2011/11/24/query-dan-modul-round-up-100-dalam-access.aspx
Thank you | Terima Kasih | Matur Suksema
Sumiyanto
Sumiyanto
From: jay kur <jayridwan@yahoo.com>
To: belajar-access@yahoogroups.com
Sent: Wednesday, 4 January 2012 2:47 AM
Subject: [belajar-access] tanya rownddown dan rowndup
| Dear para suhu, saya ingin tanya Seperti fungsi pada excell dimana dapat menggunakan fungsi rownddown dan rowndup, mohon infonya menggunakan fungsi apa ya, dan contoh dalam querynya trims and Regards, Jaya |
__._,_.___
SPAM IS PROHIBITED
MARKETPLACE
.
__,_._,___
No comments:
Post a Comment