Contoh fungsi tanggal dan waktu untuk pengembangan website ASP
Contoh deskripsi sintaksis fungsi
Now Now() Mendapatkan tanggal dan waktu saat ini dari sistem Dim MyVar MyVar = Sekarang
'' MyVar berisi tanggal dan waktu saat ini.
Tanggal Tanggal() Mendapatkan tanggal saat ini dari sistem Dim MyDate MyDate = Tanggal
'' MyDate berisi tanggal sistem saat ini.
Time Time() mendapatkan waktu sistem saat ini Dim MyTime MyTime = Time
'' Mengembalikan waktu sistem saat ini.
Tahun Tahun(Tanggal) Mendapatkan tahun pada tanggal tertentu Redupkan Tanggal Saya, Tahun Saya
Tanggal Saya = #19 Oktober 1962#
Contoh deskripsi sintaksis fungsi
Now Now() Mendapatkan tanggal dan waktu saat ini dari sistem Dim MyVar MyVar = Sekarang
'' MyVar berisi tanggal dan waktu saat ini.
Tanggal Tanggal() Mendapatkan tanggal saat ini dari sistem Dim MyDate MyDate = Tanggal
'' MyDate berisi tanggal sistem saat ini.
Time Time() mendapatkan waktu sistem saat ini Dim MyTime MyTime = Time
'' Mengembalikan waktu sistem saat ini.
Tahun Tahun(Tanggal) Mendapatkan tahun pada tanggal tertentu Redupkan Tanggal Saya, Tahun Saya
Tanggal Saya = #19 Oktober 1962#
'' Tetapkan tanggal.
Tahunku = Tahun(Tanggalku)
''Tahunku berisi tahun 1962.
Bulan Bulan(Tanggal) Mendapatkan bulan pada tanggal tertentu Dim MyVar MyVar = Bulan(Sekarang)
'' MyVar berisi nomor yang sesuai dengan bulan ini.
Hari Hari(Tanggal) Dapatkan tanggal dari tanggal yang diberikan Redupkan MyDay MyDay = Hari(19 Oktober 1962)
''Hariku berisi 19.
Hour Hour(time) Mendapatkan jam pada waktu tertentu Redupkan MyTime, MyHour
MyTime = Sekarang MyHour = Jam(MyTime)
'' MyHour berisi nilai numerik yang mewakili waktu saat ini.
Menit Menit(waktu) Mendapat menit Redupkan MyVar pada waktu tertentu
MyVar = Menit (Sekarang)
Detik Detik (waktu) Dapatkan jumlah detik dari waktu yang diberikan Redupkan MySec
MySec = Kedua (Sekarang)
''MySec berisi angka yang mewakili detik saat ini.
WeekDay WeekDay(Date) Mendapatkan bilangan bulat hari dalam seminggu untuk tanggal tertentu, 1 berarti Minggu, 2 berarti Senin, dan seterusnya Dim MyDate, MyWeekDay
Tanggal Saya = #19 Oktober 1962#
'' Tanggal penugasan
Hari Minggu Saya = Hari Kerja (Tanggal Saya)
'' MyWeekDay berisi 6, MyDate mewakili hari Jumat
DateDiff DateDiff(Var,Var1,Var2)
Var: faktor interval tanggal atau waktu, dengan parameter sebagai berikut:
yyyy tahun m bulan d hari ww minggu h jam s kedua Var1: tanggal atau waktu pertama
Var2: Tanggal atau waktu kedua, setelah Var1, menghitung interval antara dua tanggal atau waktu DateDiff(d,Date(),#1/1/2005#)
''Kembalikan berapa hari yang tersisa hingga Tahun Baru 2005
DateDiff(h,Date(),#1/1/2005#)
''Kembalikan berapa jam yang tersisa sampai Tahun Baru 2005
Perbedaan Tanggal(d,#1/1/2003#,#1/1/2005#)
''Mengembalikan jumlah hari antara dua tanggal
TanggalTambah TanggalDiff(Var,Var1,Var2)
Var: faktor interval tanggal atau waktu:
Var1: kelipatan interval tanggal atau waktu
Var2: Dasar tanggal atau waktu. Tambahkan dua tanggal atau waktu. Contoh berikut menambahkan satu bulan ke 31 Januari 1995:
Tanggal Baru = TanggalTambah(m, 1, 31-Jan-95)
Dalam contoh ini, DateAdd mengembalikan 28 Februari 1995, bukan 31 Februari 1995. Jika tanggalnya 31 Januari 1996 maka dikembalikan ke tanggal 29 Februari 1996 karena tahun 1996 merupakan tahun kabisat.
Jika tanggal perhitungan sebelum tahun 100 M maka akan terjadi kesalahan.
FormatDateTime FormatDateTime(Date,vbShortDate) Konversikan ke format tanggal pendek FromatDateTime(Date(),vbLongDate)
Tampilan dalam format tanggal panjang
FormatDateTime(Date,vbLongDate) Konversikan ke format tanggal panjang
FormatDateTime(Date,vbShortTime) Konversikan ke format waktu singkat
FormatDateTime(Date,vbLongTime) Konversikan ke format waktu lama