Bahagian Tarikh VBA

Fungsi Excel VBA DatePart

DatePart dalam VBA digunakan untuk mengenal pasti bahagian tarikh untuk tarikh yang diberikan sebagai argumen, bahagian tarikh boleh menjadi hari atau bulan atau tahun atau bahkan jam minit dan saat, sintaks fungsi ini sangat memperjelas dirinya dan ia adalah seperti berikut, Datepart (Interval, Date as Argument).

Sintaks

Sintaks fungsi DatePart diberikan di bawah:

  • Selang: Data yang akan dilalui dalam argumen selang adalah jenis rentetan yang bermaksud argumen ini dapat berisi nilai yang valid di dalamnya. Selang mungkin dari tahun, bulan, suku, hari, minggu, jam, minit, kedua.
  • Tarikh: Nilai tarikh yang perlu dinilai.
  • firstdayofweek: Ini adalah parameter pilihan. Ini menggambarkan hari pertama dalam seminggu, malah ini boleh diabaikan. Sekiranya parameter ini diabaikan, ini secara automatik memerlukan hari Ahad sebagai hari pertama dalam seminggu. Sekiranya anda ingin mengubahnya maka parameter ini dapat digunakan. Argumen ini mungkin terdiri daripada vbUseSystem 0.

Gunakan tetapan NLS API

vbSunday (Default), vbMonday, vbTuesday, vbWednesday, vbThursday vbFriday, vbSaturday.
  • firstweekofyear: Begitu juga parameter teratas, ini juga merupakan parameter pilihan. Ini menggambarkan minggu pertama tahun ini. Parameter ini juga boleh diabaikan. Sekiranya parameter ini diabaikan, ia menganggap bahawa 1 Januari sebagai minggu pertama tahun ini. Sekiranya anda ingin mengubahnya maka parameter ini dapat digunakan.

    Hujah ini mungkin terdiri daripada nilai-nilai berikut.

    vbUseSystem, vbFirstJan1, vbFirstFourDays, vbFirstFullWeek.

Setelah memberikan semua parameter, Datepart () akan mengembalikan nilai berangka seperti tarikh keseluruhan atau tahun atau bulan atau suku, dll. Oleh itu jenis pengembalian fungsi ini akan menjadi nilai angka.

Bagaimana cara menggunakan Fungsi DatePart dalam VBA?

Anda boleh memuat turun Template VBA DatePart Excel ini di sini - Templat VBA DatePart Excel

Contoh # 1

Contoh Pertama adalah memaparkan tarikh lengkap dan suku bulan itu juga.

Untuk mencapai ini, kita perlu menulis beberapa kod dalam Visual Basic, untuk itu Tab Pengembang Goto dan kemudian klik pada Visual Basic dan kemudian tetingkap akan dibuka.

Di tetingkap itu tuliskan kod seperti di bawah.

Kod:

 Sub date_Datepart () Dim mydate As Variant mydate = # 12/25/2019 # MsgBox mydate MsgBox DatePart ("q", mydate) 'memaparkan Sub Akhir suku

Dalam contoh ini, kita telah menggunakan fungsi Datepart untuk memaparkan tarikh dan sebahagian dari tarikh yang merupakan seperempat tarikh. Ini menunjukkan suku tahun mana tarikh masuknya.

Sekiranya kita menyahpepijat kod, tarikh akan dipaparkan sebagai tarikh lengkap pertama kali apabila kod melaksanakan "Msgbox mydate" kerana tarikh rawak diberikan kepada pemboleh ubah "mydate".

Seterusnya, kami menunjukkan suku tahun mana tarikh tersebut.

Apabila anda menjalankan kod secara manual atau menggunakan kekunci pintas F5 maka tarikh akan dipaparkan seperti yang ditunjukkan setelah mengklik ok. Seterusnya, suku tarikh akan dipaparkan ini dapat ditunjukkan pada tangkapan skrin di bawah.

Begitu juga, Quarter, hanya tarikh atau bulan atau tahun juga dapat dipaparkan.

Contoh # 2

Dalam contoh ini, saya akan memasukkan tarikh secara manual pada waktu berjalan.

Kod:

Sub tarikh1_datePart () Dim TodayDate As Date 'Menyatakan pemboleh ubah. Dim Msg TodayDate = InputBox ("Masukkan tarikh:") Msg = "Quarter:" & DatePart ("q", TodayDate) MsgBox Msg End Sub

Di sini dalam contoh ini, kami berusaha mendapatkan tarikh secara manual pada waktu berjalan. Kod "TodayDate = InputBox (" Masukkan tarikh: ")" baris ini menunjukkan bahawa tarikh boleh dimasukkan secara manual,

Setelah memasukkan tarikh secara manual, ia akan memaparkan Suku Tarikh dalam Kotak mesej. Ini dapat ditunjukkan dalam tangkapan skrin di bawah.

Oleh kerana bulan Jun berada pada suku ke-2, ini memaparkan Suku Kedua seperti yang ditunjukkan dalam tangkapan skrin di atas.

Contoh # 3

Dalam contoh ini, semua nilai akan diisi dalam sel.

Kod:

 Buku Kerja Sub Peribadi_Buka () Dim DummyDate As Date DummyDate = ActiveSheet.Cells (2, 2) ActiveSheet.Cells (2, 2). Value = Day (DummyDate) ActiveSheet.Cells (3, 2). Value = Hour (DummyDate) ActiveSheet .Cells (4, 2). Value = Minute (DummyDate) ActiveSheet.Cells (5, 2). Value = Month (DummyDate) ActiveSheet.Cells (6, 2). Value = Weekday (DummyDate) End Sub

Tarikh diisi dalam sel di lembaran excel, untuk itu kodnya ditulis sebagai Active Sheet.cells. Dengan kod ini tarikh yang ada mungkin bulan bulan atau tarikh boleh dimasukkan ke dalam sel yang diberikan.

Contohnya, dalam tangkapan skrin di atas,

Hari itu akan dimasukkan ke dalam sel (2, 2) lembaran excel. Oleh itu kod tersebut ditulis sebagai "ActiveSheet.Cells (2, 2). Value = Day (DummyDate)".

Jalankan kod menggunakan kekunci F5 atau secara manual dan hasilnya akan seperti yang ditunjukkan di bawah.

Secara lalai ia mengambil tarikh hari ini dan ia dipaparkan sebagai sel 30 in (2,6).

Begitu juga untuk semua data lain, ia juga boleh diisi.

Penggunaan Fungsi DatePart

  • Fungsi DatePart dapat digunakan untuk menampilkan bahagian tarikh seperti namanya iaitu, jika hanya hari atau bulan atau tahun tarikh perlu dipaparkan maka fungsi ini dapat digunakan.
  • Fungsi ini juga memisahkan tarikh, bulan dan tahun dari tarikh tertentu.
  • Dengan menggunakan fungsi ini tarikh tidak hanya dipisahkan kita juga dapat memperoleh suku, hari, jam, minit dan satu saat.

Perkara yang Perlu Diingat

  • Fungsi ini hanya dapat digunakan sebagai Fungsi VBA. Dalam excel biasa, ini tidak boleh digunakan.
  • Tarikh yang diberikan sebagai nilai dalam fungsi ini dapat diberikan dalam format apa pun seperti format mm-dd-yyyy atau format DD-MM-YYYY dll.
  • Fungsi ini akan memisahkan semua nilai secara berasingan seperti tarikh, bulan, tahun atau waktu juga satu jam, minit, saat juga.
  • Ini diatur di bawah Fungsi Tarikh dan Waktu di VBA Microsoft Excel.