Membuat Tanggal Baru Dengan Menambah Hari,Bulan,Tahun VB6

Berikut ini adalah cara membuat suatu tanggal baru berdasarkan interval  (selang waktu) tertentu, apakah hari (d), bulan (m) atau tahun (yyyy) dari tanggal awal yang diketahui. di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form dan 1 Commandbutton
2. Copy-kan coding berikut ke dalam editor form yang bertalian

          Private Sub Command1_Click()
          Dim TglAwal As String   'Deklarasi variabel
          Dim TipeInterval As String

          Dim JlhInterval As String
          Dim Msg
            On Error GoTo PesanError
           

            TglAwal = InputBox("Masukkan tanggal awal:", "Tanggal Awal", _
                      "22/01/1973")
                      'contoh ini, defaultnya 22 Jan 1973
            If StrPtr(TglAwal) = 0 Then Exit Sub
            If Not IsDate(TglAwal) Then

               MsgBox "Tanggal salah!", vbCritical, "Tanggal Tidak Valid"
               Exit Sub
            End If
           

            TipeInterval = InputBox("Masukkan tipe interval " & vbCrLf & _
                "(Pilih salah satu:" & vbCrLf & _
                "d    Jika ingin ditambahkan dengan hari" & vbCrLf & _
                "m    Jika ingin ditambahkan dengan bulan" & vbCrLf & _

                "yyyy Jika ingin ditambahkan dengan tahun)", _
                "Tipe Interval", "m")
                'contoh ini, defaultnya "m" atau bulan
            If StrPtr(TipeInterval) = 0 Then Exit Sub
            If Not (TipeInterval = "d" Or TipeInterval = "m" Or _

               TipeInterval = "yyyy") Then
               MsgBox "Harus d atau m atau yyyy!", vbCritical, "Tipe Salah"
               Exit Sub
            End If

           
            JlhInterval = InputBox("Masukkan jumlah interval yang " & _
                       "akan ditambahkan ke Tanggal Awal:", _
                       "Jumlah Interval", "100")

                       'contoh ini, defaultnya 100
            If Not IsNumeric(JlhInterval) Then
               MsgBox "Harus numerik/angka!", vbCritical, "Tidak Valid"
               Exit Sub
            End If

            Msg = "Tanggal Baru: " & DateAdd(TipeInterval, _
                  CInt(JlhInterval), CDate(TglAwal))
            MsgBox Msg, vbInformation, "Tanggal Baru"
            Exit Sub

          PesanError:
            MsgBox Err.Number & " - " & Err.Description
          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module