DateSerial Function

Returns a Date value for a specified year, month, and day.

Sintaksis:


DateSerial (tahun, bulan, hari)

Nilai balikan:

Tanggal

Parameter:

Tahun: Ekspresi bilangan bulat yang menunjukkan satu tahun. Semua nilai antara 0 dan 99 ditafsirkan sebagai tahun 1900-1999. Untuk tahun yang berada di luar rentang ini, Anda harus memasukkan keempat digit bilangan.

Bulan: Ekspresi integer yang menunjukkan bulan pada tahun tertentu. Rentang yang diterima adalah dari 1-12.

Day: Ekspresi bilangan bulat yang menunjukkan hari pada bulan yang ditentukan. Kisaran yang diterima adalah dari 1-31. Tidak ada galat yang dikembalikan ketika Anda memasukkan hari yang tidak ada selama sebulan lebih pendek dari 31 hari.

FungsiDateSerial mengembalikan jumlah hari antara 30 Desember 1899 dan tanggal yang diberikan. Anda dapat menggunakan fungsi ini untuk menghitung perbedaan antara dua tanggal.

Fungsi DateSerial mengembalikan tipe data Varian dengan VarType 7 (Tanggal). Secara internal, nilai ini disimpan sebagai nilai ganda, sehingga ketika tanggal yang diberikan adalah 1.1.1900, nilai yang dikembalikan adalah 2. Nilai negatif sesuai dengan tanggal sebelum 30 Desember 1899 (tidak termasuk).

Jika tanggal ditentukan yang berada di luar rentang yang diterima, LibreOffice muncul pesan galat.

Jika Anda mendefinisikan fungsi DateValue sebagai string yang berisi tanggal, Fungsi DateSerial mengevaluasi setiap parameter (tahun, bulan, hari) sebagai ekspresi numerik yang terpisah.

Kode kesalahan:

5 Tidak sah dalam pemanggilan prosedur

Contoh:


  Sub ExampleDateSerial
  Dim lDate As Long
  Dim sDate As String
      lDate = DateSerial(1964, 4, 9)
      sDate = DateSerial(1964, 4, 9)
      msgbox lDate REM menghasilkan 23476
      msgbox sDate REM menghasilkan 04/09/1964
  End Sub