Hitung Denda Abaikan Hari Minggu Menggunakan Visual Basic 6.0 (VB6)

Kata Denda pasti tidak asing lagi ditelinga kita, secara umum denda tersebut berupa suatu hukuman yang berikan kepada seseorang jika telah melakukan keterlambatan pengembalian atau pembayaran pinjaman dan lain-lain. Biasanya perhitungan ini ada diperusahaan perpustakaan, lembaga keuangan dan masih banyak lainnya. Kali ini admin akan membahas Hitung Denda Abaikan Hari Minggu Menggunakan Visual Basic 6.0 (VB6).

Buka Ms. Visual Basic 6.0 (VB6) Tambahkan komponen TextBox, Label, CommanButton dan Microsoft Masked Edit ActiveX Control - Version 6.0. Untuk komponen Microsoft Masked Edit ActiveX Control - Version 6.0 dengan menekan tombol CTRL + T pada Keyboard kemudian kita cari dan pilih Microsoft Masked Edit ActiveX Control - Version 6.0.

Pada Tombol OK double klik dan pastekan syntak dibawah ini : 

   Dim AD As Date
    Dim AA As Long
    Dim I As Long
    Dim A As Long
    Dim Minggu As Long

 AA = DateTime.DateDiff("d", Format(MaskEdBox1, "dd-MM-yyyy"), Format(MaskEdBox2, "dd-MM-yyyy"))
    For A = 0 To AA
        AD = (CDate(Format(MaskEdBox1, "dd-MM-yyyy"))) + A
        If Weekday(AD) = 1 Then
            Minggu = Minggu + 1
        End If
    Next A
    Label11.Caption = Format(Val(Text1.Text) * ((AA) - (2 + Minggu)), "#,##0")
    Label3.Caption = Minggu

Simpan kemudian Jalankan/F5. Untuk Sourcodenya bisa didownload di LINK INI