Belajar Rekayasa Perangkat Lunak: Fungsi Date & Time di Visual Basic 6.0

Friday 3 June 2011

Fungsi Date & Time di Visual Basic 6.0

Operasi tanggal dan waktu tidak hanya sebatas mendapatkan tanggal dan waktu saat ini (current date/time). Anda mungkin juga perlu melakukan operasi-operasi lanjut, seperti mengembalikan tanggal/waktu, kalkulasi tanggal/waktu, dan sebagainya. Untuk lebih jelasnya, berikut tip dalam menyelesaikan operasi-operasi seputar tanggal dan waktu.

  • Mendapatkan Tanggal dan Waktu
Untuk mendapatkan informasi mengenai tanggal dan waktu saat ini, lazimnya kita menggunakan method  Now. Sebagai alternatif, Anda bisa memanfaatkan properti Date dan Time untuk mendapatkan tanggal dan waktu.

'mendapatkan current date & time
Print Now     ' Tanggal dan waktu
Print Date    ' Tanggal
Print Time    ' Waktu

  • Pembentukan dan Ekstraksi
Apabila Anda tidak ingin mendapatkan tanggal yang lengkap dari pendekatan sebelumnya, Anda bisa membentuk sendiri komponen-komponen tanggal/waktu.
' 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
 Bergantung pada kebutuhan Anda, ada beberapa pendekatan untuk mengalkulasi tanggal dan waktu. Sebagai contoh, untuk menambah atau mengurangi tanggal/waktu, gunakan method DateAdd.
' 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
Jika diperlukan, informasi tanggal/waktu yang telah Anda dapatkan bisa diformat sesuai dengan kebutuhan. Hal ini diwujudkan dengan memanfaatkan method Format.
Print Format(Now, "dddd, dd mmm yyyy")
' Output: (misal) Sabtu, 29 September 2006
Print Format(Now, "hh:mm:ss")
' Output: 21:30:48

2 comments:

  1. kakak, saya butuh bantuan. saya mau buat fungsi, kalau jumlah hari lebih dari 7 , maka fungsi tersebut ga jalan,

    Private Sub Timer1_Timer()
    Print DateDiff("d", #9/20/2006#, Now)

    If d > 7 Then
    Unload Me
    End Sub

    yg betul gimana?, trimakasih

    ReplyDelete
    Replies
    1. coba koding diatas letakkan di textbox

      Delete