Haiya Cou Lui Xie yang keren laaaaa
kamsiah...
agoes rodiman
[EMAIL PROTECTED] wrote:
coba pake coding ini
Sub CoinAnalysis( JmlUang As Double)
Dim CEPERIBU, GOCAPRIBU, NOBAND, CEBAN, GOCENG, SECENG, GOPE, CEPE As
Integer
Dim SISA As Currency
SISA = 0: CEPERIBU = 0: GOCAPRIBU = 0: NOBAND = 0: CEBAN = 0: GOCENG = 0:
SECENG = 0: GOPE = 0: CEPE = 0
CEPERIBU = JmlUang \ 100000
SISA = Jmluang - (CEPERIBU * 100000)
GOCAPRIBU = SISA \ 50000
SISA = SISA - (GOCAPRIBU * 50000)
NOBAND = SISA \ 20000
SISA = SISA - (NOBAND * 20000)
CEBAN = SISA \ 10000
SISA = SISA - (CEBAN * 10000)
GOCENG = SISA \ 5000
SISA = SISA - (GOCENG * 5000)
SECENG = SISA \ 1000
SISA = SISA - (SECENG * 1000)
GOPE = SISA \ 500
SISA = SISA - (GOPE * 500)
CEPE = SISA \ 100
' trus udah dapet jumlahnya saya masukin ke database...tapi point yang ini
terserah anda seh
Dim rs As New ADODB.Recordset
rs.Open "insert into COINANALYSIS
(JmlUang,ceperibu,gocapribu,noband,ceband,goceng,seceng,gope,cepe) values (
'" & xx & "," & CEPERIBU & "," & GOCAPRIBU & "," & NOBAND & "," & CEBAN &
"," & GOCENG & "," & SECENG & "," & GOPE & "," & CEPE & ")", con,
adOpenDynamic, adLockOptimistic
Set rs = Nothing
End Sub
Ali Akbar
"dedi_gunawan1711"
<dedi_gunawan1711@ To:
[email protected]
yahoo.com> cc:
Sent by: Subject: [Programmer-VB]
MEMBACA NILAI PECAHAN MATA UANG
[EMAIL PROTECTED]
ogroups.com
01/30/2007 01:31
PM
Please respond to
Programmer-VB
salam hormat buat temen2....
aku lagi coba membuat program kecil untuk menentukan pecahan mata uang
sbb:
----------------------------------------------------------
Nilai gaji 50 100 500 1.000 5.000 10.000 50.000 100.000
----------------------------------------------------------
1.265.650 1 1 1 0 1 1 1 12
500.000 0 0 0 0 0 0 0 5
dst...
----------------------------------------------------------
mohon pencerahannya buat temen2 yg lebih expert donk...
thx
dedi gunawan
---------------------------------
8:00? 8:25? 8:40? Find a flick in no time
with theYahoo! Search movie showtime shortcut.
