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.

The DateSerial function returns the data type Variant with VarType 7 (Date). Internally, this value is stored as a Double value, so that when the given date is 1900-01-01, the returned value is 2. Negative values correspond to dates before December 30, 1899 (not inclusive).

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 ' returns 1964-04-09 in ISO 8601 format
  End Sub