Kata Denda niscaya tidak gila lagi ditelinga kita, secara umum denda tersebut berupa suatu eksekusi yang berikan kepada seseorang kalau telah melaksanakan keterlambatan pengembalian atau pembayaran kontribusi dan lain-lain. Biasanya perhitungan ini ada diperusahaan perpustakaan, forum 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 lalu kita cari dan pilih Microsoft Masked Edit ActiveX Control – Version 6.0.

Hitung Denda Abaikan Hari Ahad Memakai Visual Basic 6.0 (Vb6)

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 lalu Jalankan/F5. Untuk Sourcodenya dapat didownload di LINK INI