Selasa, 31 Desember 2013

Cara Menghitung Umur di Visual Studio ( VB.Net)

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.








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===

23 komentar:

  1. klo umur yang ditampilkan tahun dan bulan gimana yagh?

    BalasHapus
    Balasan
    1. ganti coding ini
      Private 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

      Hapus
    2. boleh dicoba yagh... trims bantuan na...!!

      Hapus
    3. supaya masuk report data grive gmn mba

      Hapus
    4. maksudnya tampil di DatagridView ??
      coba 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

      Hapus
    5. ada YM ga mba?
      masih bingung yang mba kasih...thx

      Hapus
    6. bikin data karyawan
      nik
      nama
      tanggal lahir
      umur
      jadi klw masukin tanggal lahir umurnya otomatis masuk ke text,caranya gmn mba,thx

      Hapus
    7. panggil " Sub testt " di DateTimePicker1_ValueChanged
      dan 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.

      Hapus
    8. ia mba kirimin projectnya ke email saya...allandesta@gmail.com,thanks

      Hapus
    9. maaf terlambat, biar semua pembaca kebaian, saya sdah upload filenya. silahkan tinggal download.
      http://www.mediafire.com/download/lglqzf8fj2it95k/hitungumur.rar

      password rar nya berbagiilmu

      Hapus
    10. Mba udh saya coba ga bisa,klw file nya saya kirim ke email mba gmn?

      Hapus
  2. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  3. cara setting format tanggalnya gimana yah bro -_-, wkwkwk

    BalasHapus
    Balasan
    1. di properties ada format pilih custom, lalu isikan dd MMMMMMMMM yyyy di customformat.
      tanggal tidak disetting juga dia akan otomatis menghitung gan, asal cara yang sudah dijelaskan diposting dilakukan dengan benar.
      Terima kasih

      Hapus
  4. Mbak kalau saya mau menghitung expaired suatu barang gmn y thanks

    BalasHapus
    Balasan
    1. maksudnya menghitung lama harinya?? coba pakai ini :
      Sub 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.

      Hapus
  5. gan ane mau nanya ni, gimana cara merbah value tahun datetimepicker berdasarkan isi textbox gan? mohon pencerahannya ya gan... thanks

    BalasHapus
  6. 'menampilkan umur dalam tahun,bulan,hari

    Private 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

    BalasHapus
  7. Mau nanya nh kalo mau kita masukkan tanggal lahir nya ,, yang keluar umur bulan hari kya aapa cara nya

    BalasHapus
  8. kalau misalnya tanggal nya itu hasil dari database trus di pecah ? bagaimana caranya ?
    bulan pada tahun sekarang di kurangi bulan(hasil pecah)

    BalasHapus