- Mendapatkan Tanggal dan Waktu
'mendapatkan current date & time
Print Now ' Tanggal dan waktu
Print Date ' Tanggal
Print Time ' Waktu
- Pembentukan dan Ekstraksi
' Mendapatkan bagian (DateTime) tertentu
Print Day(Now) & "-" & Month(Now) & "-" & _
Year(Now)
Print Hour(Now) & ":" & Minute(Now)
Seperti halnya ketika membentuk komponen-komponen tanggal/waktu, ada beberapa pendekatan untuk mengekstrak tanggal dan waktu.
' Mendapatkan bagian (DateTime) tertentuPrint Day(Now) & "-" & Month(Now) & "-" & _
Year(Now)
Print Hour(Now) & ":" & Minute(Now)
Print DatePart("d", Now) ' d= Day
Print DatePart("m", Now) ' m= Month
Print DatePart("yyyy", Now) ' yyyy= Year
- Kalkulasi Tanggal dan Waktu
' 3 hari kemudian dan yang lalu
Print DateAdd("d", 3, Now)
Print DateAdd("d", -3, Now)
' Untuk bulan=m, tahun=yyyy
' 3 jam kemudian
Print DateAdd("h", 3, Now)
' Untuk menit= n, detik= s
Jika Anda ingin mendapatkan informasi mengenai selisih tanggal/waktu, gunakan method DateDiff.
' Jumlah hari sejak 20 September 2006
Print DateDiff("d", #9/20/2006#, Now)
- Pemformatan Tanggal dan Waktu
Print Format(Now, "dddd, dd mmm yyyy")
' Output: (misal) Sabtu, 29 September 2006
Print Format(Now, "hh:mm:ss")
' Output: 21:30:48
kakak, saya butuh bantuan. saya mau buat fungsi, kalau jumlah hari lebih dari 7 , maka fungsi tersebut ga jalan,
ReplyDeletePrivate Sub Timer1_Timer()
Print DateDiff("d", #9/20/2006#, Now)
If d > 7 Then
Unload Me
End Sub
yg betul gimana?, trimakasih
coba koding diatas letakkan di textbox
Delete