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.
__________________________________________________
Apakah Anda Yahoo!?
Lelah menerima spam? Surat Yahoo! memiliki perlindungan terbaik terhadap spam
http://id.mail.yahoo.com
[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/
