Bagaimana cara menggunakan fungsi vba datepart?

Fungsi VBA DATEPART tercantum dalam kategori tanggal fungsi VBA. Saat Anda menggunakannya dalam kode VBA, ia dapat mengembalikan nilai hari dari nilai tanggal atau waktu . Secara sederhana, Anda bisa mendapatkan detik, menit, jam, hari, bulan atau tahun dari nilai tanggal atau waktu.

Sintaksis

DatePart(interval, tanggal, [hari pertama dalam seminggu, [minggu pertama tahun]])

Argumen

• Interval : Sebuah string untuk menentukan bagian tanggal mana yang harus dikembalikan dalam hasil.
• Tanggal : Tanggal dimana bagian tanggal harus kembali.
• [FirstDayOfWeek] : Sebuah string untuk menentukan hari pertama dalam seminggu [Ini adalah argumen opsional dan jika vbSunday dihilangkan secara default].
  • vbUseSystemDayOfWeek – Tergantung pada pengaturan sistem.
  • vbMinggu – Minggu
  • vblunday – senin
  • vbSelasa – Selasa
  • vbRabu – Rabu
  • vbKamis – Kamis
  • vbJumat – Jumat
  • vbSabtu – Sabtu
• [FirstWeekOfYear] : Sebuah string untuk menentukan minggu pertama tahun ini [Ini adalah argumen opsional dan jika vbFirstJan1 dihilangkan secara default].
  • vbSystem – Tergantung pada pengaturan sistem.
  • vbFirstJan1 – Minggu dimana tanggal 1 Januari terjadi.
  • vbFirstFourDays – Minggu pertama yang berisi setidaknya empat hari di tahun baru.
  • vbFirstFullWeek – Minggu penuh pertama di tahun baru.

Contoh

Untuk memahami secara praktis cara menggunakan fungsi VBA DATEPART, Anda perlu melihat contoh di bawah ini di mana kami telah menulis kode vba dengan menggunakannya:

 Sub example_DATEPART() Range("A2").Value = DatePart("d", Range("A1")) Range("A3").Value = DatePart("h", Range("A1")) Range("A4").Value = DatePart("m", Range("A1")) Range("A5").Value = DatePart("n", Range("A1")) Range("A6").Value = DatePart("q", Range("A1")) Range("A7").Value = DatePart("s", Range("A1")) Range("A8").Value = DatePart("w", Range("A1")) Range("A9").Value = DatePart("ww", Range("A1")) Range("A11").Value = DatePart("y", Range("A1")) Range("A12").Value = DatePart("yyyy", Range("A1")) End Sub

Pada kode di atas, kami menggunakan interval berbeda di DATEPART:

• ‘d’ untuk mendapatkan hari dan mengembalikan 15.
• ‘h’ untuk mendapatkan jam tetapi karena kita tidak punya waktu pada tanggal, hasilnya menghasilkan 0.
• ‘m’ untuk mendapatkan bulan dan mengembalikan 1.
• ‘n’ untuk mendapatkan menitnya tetapi karena kita tidak punya waktu pada tanggal tersebut, hasilnya menghasilkan 0.
• “q” untuk mendapatkan kuartal dan menghasilkan 1.
• ‘s’ untuk mendapatkan detik tetapi karena kita tidak punya waktu pada tanggal, hasilnya menghasilkan 0.
• ‘w’ untuk mendapatkan hari dalam seminggu dan mengembalikannya 3.
• ‘ww’ untuk mendapatkan minggu dalam setahun dan muncul kembali 3.
• ‘y’ untuk mendapatkan hari dalam setahun dan menghasilkan 15.
• “aaaa” untuk mendapatkan tahunnya dan kembali ke tahun 2019.

Komentar

• Jika tanggal diberikan tanpa tahun, maka tahun berjalan yang akan digunakan.
• Jika nilai yang ditentukan adalah nilai selain tanggal atau tanggal yang tidak dapat dikenali sebagai tanggal, VBA akan mengembalikan runtime error 13.
• Menyetel argumen “hari pertama dalam seminggu” hanya berfungsi jika “interval” adalah “w” atau “ww”.