VBA DatePart

Fungsi Excel VBA DatePart

DatePart di VBA digunakan untuk mengidentifikasi bagian dari tanggal untuk tanggal yang diberikan sebagai argumen, bagian tanggal dapat berupa hari atau bulan atau tahun atau bahkan jam menit dan detik, sintaks dari fungsi ini sangat memperjelas dirinya sendiri dan itu adalah sebagai berikut, Datepart (Interval, Date as Argument).

Sintaksis

Sintaks dari fungsi DatePart diberikan di bawah ini:

  • Interval: Data yang akan diteruskan dalam argumen interval adalah tipe string yang berarti argumen ini dapat berisi nilai yang valid di dalamnya. Intervalnya mungkin tahun, bulan, kuartal, hari, minggu, jam, menit, detik.
  • Tanggal: Nilai tanggal yang perlu dievaluasi.
  • firstdayofweek: Ini adalah parameter opsional. Ini menggambarkan hari pertama dalam seminggu, ini bahkan bisa diabaikan. Jika parameter ini diabaikan, ini secara otomatis menjadikan hari Minggu sebagai hari pertama dalam minggu itu. Jika Anda ingin mengubahnya, parameter ini dapat digunakan. Argumen ini mungkin terdiri dari vbUseSystem 0.

Gunakan pengaturan API NLS

vbSunday (Default), vbMonday, vbTuesday, vbWednesday, vbThursday vbFriday, vbSaturday.
  • firstweekofyear: Sama halnya dengan parameter top, ini juga merupakan parameter opsional. Ini menggambarkan minggu pertama tahun ini. Parameter ini juga bisa diabaikan. Jika parameter ini diabaikan, maka tanggal 1 Januari diasumsikan sebagai minggu pertama dalam setahun. Jika Anda ingin mengubahnya maka parameter ini dapat digunakan.

    Argumen ini mungkin terdiri dari nilai-nilai berikut.

    vbUseSystem, vbFirstJan1, vbFirstFourDays, vbFirstFullWeek.

Setelah memberikan semua parameter, Datepart () akan mengembalikan nilai numerik seperti seluruh tanggal atau tahun atau bulan atau kuartal, dll. Oleh karena itu, jenis kembalian dari fungsi ini akan menjadi nilai numerik.

Bagaimana cara menggunakan Fungsi DatePart di VBA?

Anda dapat mengunduh Template Excel DatePart VBA ini di sini - Template Excel DatePart VBA

Contoh 1

Contoh Pertama adalah untuk menampilkan tanggal lengkap dan triwulan bulan itu juga.

Untuk mencapai ini kita perlu menulis beberapa kode dalam Visual Basic, untuk itu Goto Developer Tab dan kemudian klik Visual Basic dan kemudian sebuah jendela akan terbuka.

Di jendela itu tulis kode seperti yang ditunjukkan di bawah ini.

Kode:

 Sub date_Datepart () Dim mydate As Variant mydate = # 12/25/2019 # MsgBox mydate MsgBox DatePart ("q", mydate) 'menampilkan quarter End Sub 

Dalam contoh ini, kami telah menggunakan fungsi Datepart untuk menampilkan tanggal dan beberapa bagian dari tanggal yang merupakan seperempat dari tanggal. Ini menunjukkan pada kuartal mana tahun ini tanggal yang akan datang.

Jika kita men-debug kode, tanggal akan ditampilkan sebagai tanggal lengkap pertama kali ketika kode mengeksekusi "Msgbox mydate" karena tanggal acak ditetapkan ke variabel "mydate".

Selanjutnya, kami menampilkan kuartal tahun mana dari tanggal tersebut.

Ketika Anda menjalankan kode secara manual atau menggunakan tombol pintas F5 maka tanggal akan ditampilkan seperti yang ditunjukkan setelah mengklik ok. Selanjutnya, kuartal tanggal akan ditampilkan, ini dapat ditunjukkan pada gambar di bawah ini.

Begitu juga Quarter, hanya tanggal atau bulan atau tahun yang juga bisa ditampilkan.

Contoh # 2

Dalam contoh ini, saya akan memasukkan tanggal secara manual pada saat dijalankan.

Kode:

Sub date1_datePart () Redupkan TodayDate As Date 'Deklarasikan variabel. Dim Msg TodayDate = InputBox ("Masukkan tanggal:") Msg = "Quarter:" & DatePart ("q", TodayDate) MsgBox Msg End Sub

Di sini, di contoh ini, kami mencoba mendapatkan tanggal secara manual pada waktu proses. Kode “TodayDate = InputBox (“ Enter a date: ”)” baris ini menunjukkan bahwa tanggal dapat dimasukkan secara manual,

Setelah memasukkan tanggal secara manual ini akan menampilkan Quarter of the Date dalam kotak pesan. Ini dapat ditunjukkan pada gambar di bawah ini.

Karena bulan Juni berada di kuartal ke-2, ini akan menampilkan Triwulan ke-2 seperti yang ditunjukkan pada gambar di atas.

Contoh # 3

Dalam contoh ini, semua nilai akan diisi di dalam sel.

Kode:

 Sub Pribadi Workbook_Open () Dim DummyDate As Date DummyDate = ActiveSheet.Cells (2, 2) ActiveSheet.Cells (2, 2) .Value = Hari (DummyDate) ActiveSheet.Cells (3, 2) .Value = Jam (DummyDate) ActiveSheet .Cells (4, 2) .Value = Minute (DummyDate) ActiveSheet.Cells (5, 2) .Value = Bulan (DummyDate) ActiveSheet.Cells (6, 2) .Value = Hari Kerja (DummyDate) End Sub 

Tanggal diisi dengan sel pada lembar excel, untuk itu kodenya ditulis sebagai Active Sheet.cells. Dengan kode ini tanggal yang ada mungkin tahun bulan atau tanggal dapat dimasukkan ke dalam sel yang diberikan.

Misalnya, pada tangkapan layar di atas,

Hari itu harus dimasukkan ke dalam sel (2, 2) dari lembar excel. Oleh karena itu kode tersebut ditulis sebagai "ActiveSheet.Cells (2, 2) .Value = Day (DummyDate)".

Jalankan kode menggunakan tombol F5 atau secara manual dan hasilnya akan seperti gambar di bawah ini.

Ini secara default mengambil tanggal hari ini dan itu ditampilkan sebagai sel 30 dalam (2,6).

Begitu juga untuk semua data lainnya juga bisa diisi.

Penggunaan Fungsi DatePart

  • Fungsi DatePart dapat digunakan untuk menampilkan bagian dari tanggal sesuai dengan namanya, yaitu jika hanya hari atau bulan atau tahun dari tanggal yang perlu ditampilkan, maka fungsi ini dapat digunakan.
  • Fungsi ini juga memisahkan tanggal, bulan dan tahun dari tanggal tertentu.
  • Dengan menggunakan fungsi ini tanggal tidak hanya dipisahkan kita juga bisa mendapatkan kuartal, hari, jam, menit dan satu detik.

Hal-hal untuk diingat

  • Fungsi ini hanya dapat digunakan sebagai Fungsi VBA. Di excel normal, ini tidak bisa digunakan.
  • Tanggal yang diberikan sebagai nilai dalam fungsi ini dapat diberikan dalam format apapun seperti format hh-bb-tttt atau format DD-BB-TTTT dll.
  • Fungsi ini akan memisahkan semua nilai secara terpisah seperti tanggal, bulan, tahun atau waktu juga jam, menit, detik juga.
  • Ini diatur di bawah Fungsi Tanggal dan Waktu di VBA Microsoft Excel.