Source Code Membuat Tanggal Jatuh Tempo dengan VB6

Pada kesempatan ini kami akan mengulas tentang dengan judul artikel .

Artikel Terkait Visual Basic 6 Lainnya
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
MaxDateUntuk menentukan tanggal Maksimum yang dapat ditampilkan oleh Objek DTPicker
MinDateUntuk menentukan tanggal Minimu yang dapat ditampilkan oleh Objek DTPicker
UpDownUntuk membuat pemilihan tanggal dilakukan dengan cara mengklik tombol panah atas dan bawah
ValueUntuk 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 2019), 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 2019.

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 :
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 semoga berhasil.


Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :

Penelusuran terkait Visual Basic 6

Berlangganan artikel
Daftarkan e-mail Anda dibawah ini
Selanjutnya cek e-mail untuk verifikasi.
Kategori Terpopuler

0/Posting Komentar/Komentar

Lebih baru Lebih lama