Total Tayangan Halaman

probux

Senin, 25 November 2013

MENENTUKAN TANGGAL JATUH TEMPO




UNTUK MENGHITUNG DAN MENENTUKAN TANGGAL JATUH TEMPO
YANG DI INPUT ADALAH BULAN


 
 


fungsi ini adalah untuk menentukan bulan jatuh tempo
Cara membuatnya adalah :
1.        Tambahkan 2 dtpicker dan 1 texbox
2.      Masukan kode di bawah ini di teks1
Private Sub Text1_Change()
        On Error Resume Next
        DTPicker2.Value = DTPicker1.Value
        If Val(Text1.Text) + DTPicker1.Month = 2 Then
            DTPicker2.Month = 2
        ElseIf Val(Text1.Text) + DTPicker1.Month <= 12 Then
            DTPicker2.Month = DTPicker1.Month + Val(Text1.Text)
        ElseIf Val(Text1.Text) + DTPicker1.Month > 12 Then
            DTPicker2.Month = (DTPicker1.Month + Val(Text1.Text)) Mod 12
            DTPicker2.Year = (DTPicker2.Year + ((DTPicker1.Month + Val(Text1.Text)) + (12 - DTPicker2.Month)) / 12) - 1
        End If

End Sub


                    MENENTUKAN TAHUN JATUH TEMPO

fungsi ini adalah untuk menentukan tahun jatuh tempo
Cara membuatnya adalah :
1.        Tambahkan 2 dtpicker dan 1 texbox
2.      Masukan kode di bawah ini di teks1
Private Sub Text1_Change()
        On Error Resume Next
        DTPicker2.Value = DTPicker1.Value
        DTPicker2.Year = Val(Text1.Text) + DTPicker1.Year
End Sub


PUSTAKA DIGITAL EBOOK


1.        MSHFLEXGRID 1
2.      MSHFLEXGRID 2
4.     SERI TEXTBOX 
8.      BUAT ANIMASI MARQUE
17.     CONTOH 20 PROGRAM VB 10          

Tidak ada komentar:

Posting Komentar