[VB6] Penggunaan Tanggal dan Waktu

Posted by : Unknown Tuesday, 25 February 2014

Mengambil Waktu/Tanggal

Contoh mengambil Waktu

Text1.Text = Time

Contoh mengambil Tanggal

Text1.Text = Date

Format

Jika kita mencoba contoh diatas di banyak komputer, maka akan menghasilkan format format yang berbeda. ada yang "12-01-1999" (dd-mm-yyyy) , ada juga yang "01-12-99" (mm-dd-yy). itu karena penggunaan format Tanggal dan Waktu di Visual Basic 6 mengacu pada pengaturan pada setiap komputer nya. Tetapi jangan takut program anda kacau karena Tanggal dan Waktu tersebut bisa diformat ulang sehingga format di setiap komputer menjadi sama. Dibawah sini adalah contoh contoh memformat waktu dan tanggal

Format(Now, "dddd")                 hasilnya Minggu
Format(Now, "long date")            hasilnya 31 Oktober 2010
Format(Now, "short date")           hasilnya 31/10/2010
Format(Now, "dd-MM-yyyy")           hasilnya 31-10-2010
Format(Now, "dd-MMM-yyyy")          hasilnya 31-Okt-2010
Format(Now, "dddd, dd MMMM yyyy")   hasilnya Minggu, 31 Oktober 2010
Format(Now, "long time")            hasilnya 3:12:57
Format(Now, "short time")           hasilnya 3:12
Format(Now, "h:mm:ss")              hasilnya 3:12:57
Format(Now, "hh:mm:ss")             hasilnya 03:12:57

Mengetahui selisih Tanggal atau Waktu

Format

[Object/Varieble] = DateDiff([Format],[V1],[V2])

Keterangan:

• Jika ingin mencari selisih detik maka ubah [format] diatas menjadi "s" yang berarti Second, begitu juga yang lain. jika ingin mencari selisih hari berarti ganti menjadi "d" yang berarti Day
• [V1] dan [V2] adalah tanggal/waktu yang ingin dicari selisih nya

Contoh

Text1.Text = DateDiff("s", "03:02:30", "03:03:32")
Text1.Text = DateDiff("m", Time, "03:03:32")
Text1.Text = DateDiff("d", Date, "28/02/2014")

Mengambil Sebagian Informasi

Jika kita menggunakan Date maka menghasilkan Hari, Bulan dan Tahun. Bagaimana cara mengambil Hari nya saja? atau Bulanya saja?

Contoh

Text1.Text = Day(Date)
Text1.Text = Month(Date)
Text1.Text = Year("20-01-2010") 'Mengasilkan nilai 2010

ada pula pengunaan nya pada Waktu yaitu

Text1.Text = Second(Time)
Text1.Text = Minute(Time)
Text1.Text = Hour(Time)

Menambah Waktu dan Tanggal

Contoh situasi

waktu pertama = 02:30:50

waktu kedua = 02:30:55

waktu ketiga = 02:31:00

mungkin kalian akan sedikit kesulitan untuk membuat situasi seperti diatas karena batas maksimal angka yaitu 60, tetapi tidak usah takut karena VB6 sudah menyiapkan Fungsi yang dapat kalian gunaan dengan mudah

Format

[Object/Varieble] = DateAdd([Format],[V1],[V2])

Keterangan:

• untuk [Format] kalian sesuaikan dengan keadaan, jika seperti situasi diatas maka ubah [Format] menjadi "s" karena data yang ditambah ialah Detik

• untuk [V1] ialah jumlah nilai yang ingin ditambah, jika seperti situasi diatas maka ubah [V1] menjadi "5" karena penambahan waktu diatas ialah 5 detik

• untuk [V2] ialah waktu atau tanggalnya

Contoh

Text1.Text = DateAdd("s", 2, "02:03:05") 'Maka menghasilkan 02:03:07
Text1.Text = DateAdd("y",1,Date)
Text1.Text = DateAdd("m",5,"01-11-2010") 'Maka menghasilkan 01-04-2011