Yah memang tidak saya pungkiri lagi kenapa pake embel-embel VB, karena itu adalah kata kunci yang dicari mereka yang lagi searching dengan kata kunci VB, saya merasa betah beberapa postingan saya menempati page one pada halaman google, bahkan ada yang urutan pertama dan kedua di halaman pertama, jadi jangan bosen dengan tittle blog saya. Hemm.. tentunya ini akan membimbing orang-orang untuk mengakses blog saya, jadi tidak heran sebulan aktif pageviews nya sudah menuju 5000, semoga blog saya bener-bener bermanfaat bagi yang membutuhkan. Sebagai seorang pemula saya merasa seneng dan ingin terus memberkan yang terbaik.
Kembali ke topik posting, dalam menghitung hari saya menggunakan fungsi datediff pada visual basic dimana memiliki formasi seperti ini : DATEDIFF("m",TANGGAL_AWAL,TANGGAL_AKHIR), M=Bulan, jadi yang kita hitung disini yaitu berapa bulan antara tanggal awal dengan tanggal akhir? Contohnya ada berapa bulan antara tanggal 12-Des-2010 dan tanggal 5 –Jul-2011, Variabel M bisa diganti dengan D atau Hari atau Y = Tahun, jadi fungsi datediff bisa digunakan untuk menghitung jawak hari, Minggu, bulan atau Tahun. Lumayan efektif dalam hal ini, karena kita tidak lagi direpotkan dengan hitungan manual, tinggal bagaimana cara kita mengolah nilai yang dihasilkan dari fungsi datediff tadi. Sedikit penjelasan tentang datediff, langsung saja buka VB lalu pilih standard exe, tambahkan object CommandButton =1, DataPicker=1, lalu Label=1, untuk menambahkan dataPicker pada klik menu project lalu pilih Componen, cari Microsoft Windows Common Control-2.6.0, kalo udah ketemu dicentang, di tool aka nada dataPicker, desain sebaik mungkin, kalau saya bisa dilihat gambar dibawah ini:
Setelah komponen lengkap ketikan sintak dibawah ini, copas lah kalo males ngetik Hehe..
Private Sub Command1_Click()
Dim jbulan As Integer
Dim x As Integer
jbulan = DateDiff("m", tgl.Value, Now)
x = jbulan Mod 12
Bulat = jbulan - x
Tahun = Bulat / 12
Label1.Caption = Tahun & " Tahun, " & x & " Bulan"
End Sub
Setelah diketik semua lalu jalankan dengan menekan F5, coba rubah tanggal, bulan atau tahunnya, sudahkah sesuai? Saya mencoba beberapa tahun ke belakang beserta bulannya sudah berhasil, tapi tidak menutup kemungkinan ada yang tidak cocok, karena ini hanya algoritma saya yang masih newbie :P, hemm.. punya saya berjalan seperti ini:
Di computer saya saat ini tanggal 2-Juni-2011, jadi yang lahir pada tanggal 28-mei-2007 umurnya 4 tahun lebih 1 bulan, yup.. sesuai. Algoritma ini bisa digunakan untuk autofill pada umur setelah proses pengisian tanggal lahir, jadi ketika tanggal lahir ditentukan secara otomatis umur akan terisi. Yang males ngikutin tutorial pengen langsung nge.RUN silahkan download disini
Sekian dulu tutorial ini.
Tidak ada komentar:
Posting Komentar