VBA DatePart

Fungsi Bagian Tanggal VBA Excel

DatePart di VBA digunakan untuk mengidentifikasi bagian dari tanggal untuk tanggal tertentu yang diberikan sebagai argumen. Bagian tanggal dapat berupa hari atau bulan atau tahun atau bahkan jam, menit, dan detik. Sintaks fungsi ini sangat menjelaskan dirinya sendiri. Ini adalah sebagai berikut: Datepart ( Interval As String, Date).

Sintaksis

Sintaks fungsi DatePart diberikan di bawah ini:

Interval: Data yang akan diteruskan dalam argumen interval adalah tipe string, artinya argumen ini dapat berisi nilai yang valid. Intervalnya mungkin satu tahun, bulan, kuartal, hari, minggu, jam, menit, atau detik.
Tanggal: Nilai tanggal yang perlu dievaluasi.
firstdayofweek: Ini adalah parameter opsional. Ini menggambarkan hari pertama dalam seminggu. Kita bahkan bisa mengabaikan ini. Jika kita mengabaikan parameter ini, secara otomatis mengambil hari Minggu sebagai hari pertama dalam seminggu. Jika Anda ingin mengubahnya, Anda dapat menggunakan parameter ini. Argumen ini dapat terdiri dari vbUseSystem 0.

Gunakan pengaturan NLS API

vbSunday ( Default) , vbMonday, vbTuesday, vbWednesday, vbThursday vbFriday , vbSaturday.

firstweekofyear: Demikian juga, parameter teratas adalah opsional. Ini menggambarkan minggu pertama tahun ini. Seseorang dapat mengabaikan parameter ini. Diasumsikan bahwa 1 Januari adalah minggu pertama tahun ini jika diabaikan. Jika Anda ingin mengubahnya, Anda dapat menggunakan parameter ini.
vbUseSystem , vbFirstJan1 , vbFirstFourDays , vbFirstFullWeek.

Setelah memberikan semua parameter, DatePart () akan mengembalikan nilai numerik seperti seluruh tanggal, tahun, bulan, kuartal, dll. Oleh karena itu, jenis pengembalian fungsi ini akan berupa nilai numerik.

Anda bebas menggunakan gambar ini di situs web Anda, templat, dll., Harap berikan kami tautan atribusiBagaimana Memberikan Atribusi? Tautan Artikel menjadi Hyperlink
Misalnya: Sumber: VBA DatePart (wallstreetmojo.com)

Bagaimana cara menggunakan Fungsi DatePart di VBA?

Contoh #1

Contoh pertama adalah menampilkan tanggal dan kuartal penyelesaian bulan.

Untuk mencapai ini, kita perlu menulis beberapa kode dalam Visual BasicCode Dalam Visual BasicVBA kode mengacu pada satu set instruksi yang ditulis oleh pengguna dalam bahasa pemrograman Visual Basic Applications pada Editor Visual Basic (VBE) untuk melakukan tugas tertentu.baca lebih lanjut . Buka Tab Pengembang Tab Pengembang Mengaktifkan tab pengembang di excel dapat membantu pengguna melakukan berbagai fungsi untuk VBA, Makro, dan Add-in seperti mengimpor dan mengekspor XML, mendesain formulir, dll. Tab ini dinonaktifkan secara default di excel; jadi, pengguna harus mengaktifkannya terlebih dahulu dari menu opsi. Baca selengkapnya dan klik “Visual Basic”, dan 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 menggunakan fungsi DatePart untuk menampilkan tanggal dan beberapa bagian tanggal yang merupakan seperempat dari tanggal. Ini menampilkan kuartal tahun mana tanggal yang akan datang.

Jika kami men-debug kode, tanggal akan ditampilkan sebagai tanggal lengkap saat pertama kali kode mengeksekusi “MsgBox mydate” karena kami menetapkan tanggal acak ke variabel “mydate”.

Selanjutnya, kami menampilkan kuartal tahun mana tanggal itu berasal.

Saat kami menjalankan kode secara manual atau menggunakan tombol pintas F5, tanggal akan ditampilkan setelah mengklik “OK”. Selanjutnya, seperempat tanggal akan ditampilkan. Sebagai contoh, kami dapat menunjukkan ini di tangkapan layar di bawah ini.

Demikian pula, seperempat hanya dapat menampilkan tanggal, bulan, atau tahun.

Contoh #2

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

Kode:

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

Di sini, dalam contoh ini, kami mencoba mendapatkan tanggal secara manual saat dijalankan. Jadi, kode “TodayDate = InputBox(“Enter a date:”)” menandakan bahwa kita bisa memasukkan tanggal secara manual.

Setelah memasukkan tanggal secara manual, ini akan menampilkan seperempat tanggal di kotak pesan. Sebagai contoh, kami dapat menunjukkan ini di tangkapan layar di bawah ini.

Karena bulan Juni adalah kuartal kedua, ini menampilkan kuartal kedua, seperti yang ditunjukkan pada screenshot di atas.

Contoh #3

Ini akan mengisi semua nilai dalam sel dalam contoh ini.

Kode:

Sub Workbook_Open() Dim DummyDate Sebagai Tanggal DummyDate = ActiveSheet.Cells(2, 2) ActiveSheet.Cells(2, 2).Value = Hari(DummyDate) ActiveSheet.Cells(3, 2).Value = Jam(DummyDate) ActiveSheet .Cells(4, 2).Value = Menit(DummyDate) ActiveSheet.Cells(5, 2).Value = Bulan(DummyDate) ActiveSheet.Cells(6, 2).Value = Hari Kerja(DummyDate) Sub Akhir

Kita bisa mengisi tanggal di sel-sel di lembar Excel. Untuk itu, kita bisa menulis kodenya sebagai “ActiveSheet.Cells.” Dengan kode ini, kita dapat memasukkan tanggal sekarang, mungkin tahun, bulan, atau tanggal, ke dalam sel yang diberikan.

Misalnya, pada tangkapan layar di atas,

Hari akan dimasukkan ke dalam sel lembar Excel ( 2, 2). Oleh karena itu, kode ditulis sebagai “ActiveSheet.Cells(2, 2).Value = Day(DummyDate).”

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

Ini, secara default, mengambil tanggal hari ini dan menampilkannya sebagai 30 in (2,6) cell.

Begitu juga untuk semua data lainnya juga bisa kita isi.

Penggunaan Fungsi DatePart

Kita dapat menggunakan fungsi DatePart untuk menampilkan bagian dari tanggal seperti namanya, yaitu jika hanya hari, bulan, atau tahun dari tanggal yang perlu ditampilkan, maka kita dapat menggunakan fungsi ini.
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 detik.

Hal-hal untuk diingat

Kami hanya dapat menggunakan fungsi ini sebagai Fungsi VBA Fungsi VBAFungsi VBA melayani tujuan utama untuk melakukan perhitungan tertentu dan mengembalikan nilai. Oleh karena itu, di VBA, kami menggunakan sintaks untuk menentukan parameter dan tipe data saat mendefinisikan fungsi. Fungsi semacam itu disebut fungsi yang ditentukan pengguna.Baca lebih lanjut. Di Excel normal, kita tidak bisa menggunakan ini.
Kami dapat memberikan tanggal yang diberikan sebagai nilai dalam fungsi ini dalam format apa pun seperti format mm-dd-yyyy atau format DD-MM-YYYY dll.
Fungsi ini akan memisahkan semua nilai, seperti tanggal, bulan, tahun, atau waktu, jam, menit, dan detik.
Ini diatur di bawah fungsi Tanggal dan Waktu di VBA Microsoft Excel.

Artikel yang Direkomendasikan

Artikel ini telah menjadi panduan untuk VBA DatePart. Di sini, kita belajar cara menggunakan fungsi DatePart di Excel VBA untuk mengembalikan bagian tertentu dari tanggal bersama dengan contoh praktis dan template yang dapat diunduh. Di bawah ini Anda dapat menemukan beberapa artikel Excel VBA yang berguna: –