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 dapat melunasi cicilan hutangnya, Sehingga kita bisa mengatakan telah jatuh tempo.
Untuk membuat program ini kita memerlukan beberapa komponen yang sudah di sediakan Visual Basic salah satunya adalah DTPicker. DTPicker di gunakan untuk menampilkan atau memilih tanggal dalam sebuah Combobox.
Untuk menambah DTPicker ke dalam ToolBox tekan CTRL+T untuk menampilkan komponen yang ada didalamnya kemudian ceklist Microsoft Windows Common Controls-2 6.0. Berikut adalah beberapa propertinya :
Properti
|
Kegunaan
|
| MaxDate | Untuk menentukan tanggal Maksimum yang dapat ditampilkan oleh Objek DTPicker |
| MinDate | Untuk menentukan tanggal Minimu yang dapat ditampilkan oleh Objek DTPicker |
| UpDown | Untuk membuat pemilihan tanggal dilakukan dengan cara mengklik tombol panah atas dan bawah |
| Value | Untuk menentukan atau mendapatkan 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 adalah tanggal sekarang kemudian pilih Opsi lamanya Tempo yaitu Hari, Bulan dan Tahun dengan cara klik OptionButon kemudian masukan lama jatuh tempo pada kotak tempo dan hasilnya akan terlihat pada pada tanggal tempo.
Saya mengisi lama jatuh tempo 2 bulan dan hasil tanggal jatuh tempo adalah 20 Juli 2016.
Untuk itu pada kesempatan kali ini Saya ingin memberikan trik bagaimana menghitung tanggal jatuh tempo dengan menggunakan Program Visual Basic 6.0. Berikut adalah 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 seperti gambar dibawah ini:
 |
| Desain Form |
4. Setelah selesai mendesain ketiklah kode dibawah ini di jendela kode :
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 tip Cara Mencari Tanggal Jatuh Tempo dengan VB6. Semoga bermanfaat selamat mencoba semoga berhasil.
No comments:
Post a Comment