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
4.
SERI TEXTBOX
Tidak ada komentar:
Posting Komentar