Membuat Tanggal Berdasarkan Tipe Interval

Membuat suatu tanggal baru berdasarkan tipe interval selang waktu) tertentu, apakah hari (d), bulan (m, atau tahun (yyyy) dari tanggal awal yang dketahui.

Persiapan:
1. Buat 1 Project baru dengan 1 Form dan 1 Commandbutton.
2. Ketik coding berikut ke dalam editor form yang bertalian.
Ketik coding berikut ini pada Form.

Code:

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

Tinggalkan komentar

Belum ada komentar.

Comments RSS TrackBack Identifier URI

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s