Kali ini kita akan membahas tentang menghitung umur. Berbeda dengan yang lainnya yang membahas bersama hitungan bulan dan hari. Disini saya akan membahas perhitungan hanya umur saja.
ok, langsung saja siapkan project nya 1 form dengan 1 datetimepicker untuk menyatakan tanggal lahir dan 1 textbox untuk hasil perhitungan umurnya.
file projectnya bisa didownload disini
password rar nya [ berbagiilmu ]
(*jika ada error atau belum mengerti silahkan tinggalkan komentar kalian,,,
====selamat mencoba===
ok, langsung saja siapkan project nya 1 form dengan 1 datetimepicker untuk menyatakan tanggal lahir dan 1 textbox untuk hasil perhitungan umurnya.
Berikut adalah coding lengkapnya :
Public Class Form1
Private Sub DateTimePicker1_ValueChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
DateTimePicker1.ValueChanged
Call
testt()
End Sub
' -----------------------------------------------------------------
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Call
pengurangantahun()
End Sub
' -----------------------------------------------------------------
Sub
pengurangantahun()
Dim age
As Long
age = Val(TextBox1.Text)
age = Date.Now.Year
- DateTimePicker1.Value.Year
End Sub
' -----------------------------------------------------------------
Sub testt()
Dim a,
b, c As String
a = Year(Now)
b = Year(DateTimePicker1.Value)
c = a - b
TextBox1.Text = c + " Tahun"
End Sub
End Class
file projectnya bisa didownload disini
password rar nya [ berbagiilmu ]
(*jika ada error atau belum mengerti silahkan tinggalkan komentar kalian,,,
====selamat mencoba===
klo umur yang ditampilkan tahun dan bulan gimana yagh?
BalasHapusganti coding ini
HapusPrivate Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
Call testt()
End Sub
jadi
Dim birth As Date = DateTimePicker1.Value
Dim tahun, bulan As Integer
While tahun <= (Now.Year - birth.Year)
While bulan <= (Now.Month - birth.Month)
bulan += 1
End While
tahun += 1
End While
tahun -= 1 : bulan -= 1
TextBox1.Text = tahun & "tahun" & -bulan & "bulan"
End Sub
boleh dicoba yagh... trims bantuan na...!!
Hapusok, sama-sama
Hapussupaya masuk report data grive gmn mba
Hapusmaksudnya tampil di DatagridView ??
Hapuscoba dengan menggunakan ini :
Sub TAMPILDATA()
Call Konek()
Dim sql3 As String
sql3 = "select * from TBPETUGAS"
dtadapter = New OleDbDataAdapter(sql3, Conn)
DataGridView1.Refresh()
Dim ASD As New DataTable
ASD.Clear()
dtadapter.Fill(ASD)
DataGridView1.DataSource = ASD
Conn.Close()
End Sub
panggil coding diatas, misal di button simpan "call TAMPILDATA" dengan catatan sebelum call TAMPILDATA sudah menggunakan coding simpan
ada YM ga mba?
Hapusmasih bingung yang mba kasih...thx
ga ada,
Hapusbingungnya dimananya?
bikin data karyawan
Hapusnik
nama
tanggal lahir
umur
jadi klw masukin tanggal lahir umurnya otomatis masuk ke text,caranya gmn mba,thx
panggil " Sub testt " di DateTimePicker1_ValueChanged
Hapusdan panggil "pengurangantahun" di form load nya.
#kalau coding di atas diikuti secara benar, pasti akan berhasil, "umur akan muncul otomatis di text umur
kalau mau saya akan kirimkan file projectnya ke email anda.
ia mba kirimin projectnya ke email saya...allandesta@gmail.com,thanks
Hapusmaaf terlambat, biar semua pembaca kebaian, saya sdah upload filenya. silahkan tinggal download.
Hapushttp://www.mediafire.com/download/lglqzf8fj2it95k/hitungumur.rar
password rar nya berbagiilmu
Mba udh saya coba ga bisa,klw file nya saya kirim ke email mba gmn?
HapusKomentar ini telah dihapus oleh pengarang.
BalasHapuscara setting format tanggalnya gimana yah bro -_-, wkwkwk
BalasHapusdi properties ada format pilih custom, lalu isikan dd MMMMMMMMM yyyy di customformat.
Hapustanggal tidak disetting juga dia akan otomatis menghitung gan, asal cara yang sudah dijelaskan diposting dilakukan dengan benar.
Terima kasih
Mbak kalau saya mau menghitung expaired suatu barang gmn y thanks
BalasHapusmaksudnya menghitung lama harinya?? coba pakai ini :
HapusSub hitunghari()
Dim age As Long
lama= Val(tlamaexpaired.Text)
lama= DateTimePicker2.Value.Day - DateTimePicker1.Value.Day
End Sub
++++panggil fungsi diatas di form+++
Sub hitungexpaired()
Dim selisih As Integer
selisih = DateDiff(DateInterval.Day, CDate(DateTimePicker1.Text), CDate(DateTimePicker2.Text))
tlamaexpaired.Text = Format(selisih, "#")
End Sub
+++panggil fungsi diatas di tanggal "DateTimePicker1"
*)penyimpanannya sama seperti coding yang ada di postingan.
gan ane mau nanya ni, gimana cara merbah value tahun datetimepicker berdasarkan isi textbox gan? mohon pencerahannya ya gan... thanks
BalasHapusthanks sangat membantu
BalasHapus'menampilkan umur dalam tahun,bulan,hari
BalasHapusPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim thn As Integer
Dim bln As Integer
Dim hari As Integer
thn = DateDiff(DateInterval.Year, dtpTglLahir.Value, Now())
bln = (Month(dtpTglLahir.Value) - Month(Now()))
hari = DateDiff(DateInterval.Day, dtpTglLahir.Value, Now()) Mod 12
Label3.Text = "Umur anda : " & thn & " tahun, " & bln & " bulan, " & hari & " hari."
End Sub
Mau nanya nh kalo mau kita masukkan tanggal lahir nya ,, yang keluar umur bulan hari kya aapa cara nya
BalasHapuskalau misalnya tanggal nya itu hasil dari database trus di pecah ? bagaimana caranya ?
BalasHapusbulan pada tahun sekarang di kurangi bulan(hasil pecah)