Memisahkan Komponen Tanggal

Private Sub Command1_Click()

Dim hari As Integer, bulan As Integer, tahun As Integer
hari = DateTime.DatePart("d", _
CDate("22/01/1973"), _
vbUseSystemDayOfWeek, _
vbUseSystem) 'Menghasilkan 22
bulan = DateTime.DatePart("m", _
CDate("22/01/1973"), _
vbUseSystemDayOfWeek, _
vbUseSystem) 'Menghasilkan 1
tahun = DateTime.DatePart("yyyy", _
CDate("22/01/1973"), _
vbUseSystemDayOfWeek, _
vbUseSystem) 'Menghasilkan 1973
MsgBox hari
MsgBox bulan
MsgBox tahun

End SUb