Source Code Membuat Tanggal Jatuh Tempo dengan VB6

Source Code Membuat Tanggal Jatuh Tempo dengan VB6

Pada kesempatan ini TeknoTips.NET akan mengulas tentang "" dengan judul artikel "Source Code Membuat Tanggal Jatuh Tempo dengan VB6".

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

Keyword : Tutorial Visual Basic 6.0,
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini : Tuliskan komentar relevan anda dibawah ini dengan jelas & sopan, sesuai dengan topik ulasan mengenai Tutorial Visual Basic 6.0 Terbaru 2019.

Untuk menghindari spam dan tautan aktif, komentar akan dimoderasi. Dapatkan balasan dari melalui e-mail anda :

Komentar artikel "Source Code Membuat Tanggal Jatuh Tempo dengan VB6"

Posting Komentar

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel