Mengetahui Tanggal Awal Dalam Minggu

Posted: Januari 18, 2009 in VB 6

Kalau sekarang adalah hari Kamis, 22 Januari 2009 maka tanggal berapakah hari minggu kemaren?. Gampang!!! secara manual tinggal hitung aja selisihnya harinya lalu dikurangkan, 22 – 5 hari = 18 Januari 2009. nah bagaimana kalau dalam program???, tentunya program tidak bisa hitung-hitung begituan kecuali dibuat rumus-rumusnya. Kalau rumus dari cara diatas dituangkan kedalam program mungkin akan kepanjangan alias kelamaan….

Untuk VB 6 ada cara gampang untuk solusi diatas

Dim tanggalAwal As Date
tanggalAwal = DateAdd(WeekDay("d", Date, VBSunday) * (-1) + 1, Date)

Ada tanggal awal pastinya ada tanggal akhir, untuk cari tanggal akhir ane belon tau cara praktisnya, tapi kalau tanggal awal dah dapat tinggal tambahin aja tuh tanggal awal dengan jumlah hari dalam seminggu (7).
jadi kode diatas bisa ditambahin dengan…

Dim tanggalAkhir As Date
tanggalAkhir = DateAdd("d", 7, tanggalAwal)
' or
Dim tanggalAkhir1 As Date
tanggalAkhir1 = DateAdd("d", 7, DateAdd(WeekDay("d", Date, VBSunday) * (-1) + 1, Date))

Jika menggunakan VB.Net, caranya sama tapi butuh sedikit modifikasi.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s