Menu Horisontal

Sabtu, 06 November 2010

Fungsi Pembulatan ke 1000 an dan Jumlah Lembar Uang

Cara dibawah ini adalah bagaimana mencari jumlah lembaran uang dari Jumlah tertentu

If (Total3 Mod 1000) >= 500 Then
TerimaGaji = Round(Total3 + (1000 - (Total3 Mod 1000)))
Else
TerimaGaji = Round(Total3 - (Total3 Mod 1000))
End If

Sepuluh = TerimaGaji \ 10000
LimaRibu = (TerimaGaji - Sepuluh * (10000)) \ 5000
Seribu = (TerimaGaji - (Sepuluh * 10000) - LimaRibu * 5000) \ 1000

Tidak ada komentar: