1. coba pake ini:
txtstlhbobot.text = str(round(val(txtnilaipsr.text) * val(txtbobot.text) /
100))
apakah masih overflow?
2. klu boleh tau coding function SelisihHariJam dibuatnya gimana?
untuk kasus percabangan dgn pola kondisi sperti itu, sbaiknya coding km
rapihkan sperti ini agar lebih terstruktur/mudah dibaca dan hemat coding:
' --- start ----
dim nilai as integer
dim selisihhari as .... integer/long/date tegantung type data function
selisihharijam, spertinya date ya?
selisihhari = selisihharijam(cdate(txttglpenilaian.text),
cdate(txttglpelaporanppa.text))
label16.caption = str(selisihhari)
if txttypefas.text = "Agunan Tunai/Deposito" Then
nilai = 100
elseif selisihhari >= cdate(720) then
nilai = 0
elseif selisihhari > cdate(540) then
nilai = 30
elseif selisihhari > cdate(360) then
nilai = 50
elseif
nilai =70
end if
txtbobot.text = str(nilai)
' --- end ---
smoga membantu
.carin
harli harli <[EMAIL PROTECTED]> wrote:
salam kenal untuk semua, saya harli.saya seorang pemula dalam vb.saat ini sya
ada masalah dlam pembuatan program.masalahnya adlh:
1. saya selalu mendpt overflow dlam koding ini
txtstlhbobot.Text = (txtnilaipsr.Text * txtbobot.Text) \ 100&
dan bagaimana caranya agar hasilnya menjadi pembulatan.
2.sya mendapatkan kasus percabangan dalam kondisi dengan selisih
hari.kondisinya sperti : jika hari < 360 hari maka nilai 70,jika hari > 360
hari dan hari <= 720 hari maka nilai 50, dimana nilai tersebut saya tampilkan
di texybox.koding yang saya gunakan
If (Label16.Caption = SelisihHariJam(CDate(txttglpenilaian.Text),
CDate(txttglpelaporanppa.Text))) <= (CDate(360)) Then
txtbobot.Text = 70
End If
If (Label16.Caption = SelisihHariJam(CDate(txttglpenilaian.Text),
CDate(txttglpelaporanppa.Text))) > (CDate(360)) And (Label16.Caption =
SelisihHariJam(CDate(txttglpenilaian.Text), CDate(txttglpelaporanppa.Text))) <=
(CDate(540)) Then
txtbobot.Text = 50
End If
If (Label16.Caption = SelisihHariJam(CDate(txttglpenilaian.Text),
CDate(txttglpelaporanppa.Text))) > (CDate(540)) And (Label16.Caption =
SelisihHariJam(CDate(txttglpenilaian.Text), CDate(txttglpelaporanppa.Text))) <
(CDate(720)) Then
txtbobot.Text = 30
End If
If (Label16.Caption = SelisihHariJam(CDate(txttglpenilaian.Text),
CDate(txttglpelaporanppa.Text))) >= (CDate(720)) Then
txtbobot.Text = 0
End If
If txttypefas.Text = "Agunan Tunai/Deposito" Then
txtbobot.Text = 100
End
dlam menggunakan koding ini hasil yg muncul selalu kondisi yang pertama.
ini mslh yang sedang saya hadapi.sebelum dan sesudahnya saya ucapkan terima
kasih.
---------------------------------
Stay in the know. Pulse on the new Yahoo.com. Check it out.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Bagi terjangkit virus lokal, zip virus tersebut
dan kirim ke [EMAIL PROTECTED], kami
akan membuat removalnya untuk anda.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
