Cara Mencari Tanggal Jatuh Tempo dengan VB6 - Jatuh tempo merupakan Jangka waktu yang diberikan kreditur terhadap debitur untuk melunasi hutangnya telah habis.Sementara debitur tidak sanggup melunasi cicilan hutangnya, Sehingga kita sanggup menyampaikan telah jatuh tempo.
Untuk menciptakan kegiatan ini kita memerlukan beberapa komponen yang sudah di sediakan Visual Basic salah satunya yaitu DTPicker. DTPicker di gunakan untuk menampilkan atau menentukan tanggal dalam sebuah Combobox.
Untuk menambah DTPicker ke dalam ToolBox tekan CTRL+T untuk menampilkan komponen yang ada didalamnya lalu ceklist Microsoft Windows Common Controls-2 6.0. Berikut yaitu beberapa propertinya :
Properti | Kegunaan |
MaxDate | Untuk menentukan tanggal Maksimum yang sanggup ditampilkan oleh Objek DTPicker |
MinDate | Untuk menentukan tanggal Minimu yang sanggup ditampilkan oleh Objek DTPicker |
UpDown | Untuk menciptakan pemilihan tanggal dilakukan dengan cara mengklik tombol panah atas dan bawah |
Value | Untuk menentukan atau mendapat tanggal yang terpilih dalam DTPicker |
Bagi Anda yang bekerja dalam bidang akuntan atau bagi Anda yang sedang kuliah yang mengambil jurusan akuntansi dan sejenisnya rumus ini wajib Anda pelajari.
Cara kerja:
Akan terlihat 2 tanggal yang sama (20 Mei 2016), itu yaitu tanggal kini lalu pilih Opsi lamanya Tempo yaitu Hari, Bulan dan Tahun dengan cara klik OptionButon kemudian masukan usang jatuh tempo pada kotak tempo dan akhirnya akan terlihat pada pada tanggal tempo.
Saya mengisi usang jatuh tempo 2 bulan dan hasil tanggal jatuh tempo adalah 20 Juli 2016.
Untuk itu pada kesempatan kali ini Saya ingin memperlihatkan trik bagaimana menghitung tanggal jatuh tempo dengan memakai Program Visual Basic 6.0. Berikut yaitu langkah-langkah dalam pembuatannya :
Cara Mencari Tanggal Jatuh Tempo dengan VB6:
1. Buka form VB6 Anda
2. Setelah itu tambahkan 2 DTPicker, 1 TextBox, 3 OptionButton dan beberapa Label di Form
3. Desainlah Form Anda ibarat gambar dibawah ini:
![]() |
Desain Form |
4. Setelah final mendesain ketiklah instruksi dibawah ini di jendela instruksi :
Source Code Membuat Tanggal Jatuh Tempo dengan VB6
Private Sub Form_Activate()
Option1.Value = True
End Sub
Private Sub Form_Load()
DTPicker1.Value = Now
DTPicker2.Value = Now
End Sub
Private Sub Option1_Click()
Text1.Text = ""
Text1.SetFocus
Label4.Caption = "Bulan"
End Sub
Private Sub Option2_Click()
Text1.Text = ""
Text1.SetFocus
Label4.Caption = "Tahun"
End Sub
Private Sub Option3_Click()
Text1.Text = ""
Text1.SetFocus
Label4.Caption = "Hari"
End Sub
Private Sub Text1_Change()
If Option1.Value = True Then
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 If
If Option2.Value = True Then
On Error Resume Next
DTPicker2.Year = DTPicker1.Year + Text1.Text
End If
If Option3.Value = True Then
On Error Resume Next
DTPicker2.Value = DTPicker1.Value + Text1.Text
End If
If Text1.Text = "" Then
DTPicker2.Value = DTPicker1.Value
End If
End Sub
5. Simpan hasil pekerjaan Anda dan jalankan program.
Demikian Source Code Membuat Tanggal Jatuh Tempo dengan VB6 dan Mencari Tanggal Jatuh Tempo VB6. Semoga bermanfaat selamat mencoba agar berhasil.