Private Sub txtMulai_Click()
Dim Tahun As Long
Dim Bulan As Long
Dim Hari As Long
Dim TglMasuk As Date
Dim Umur As String
' On Error GoTo AdaError
TglMasuk = txtMulai.text
Tahun = DateDiff("yyyy", TglMasuk, Now)
Bulan = DateDiff("m", TglMasuk, Now)
Hari = DateDiff("d", TglMasuk, Now)
txtTh.text = Umur & Tahun & ""
Exit Sub '
'AdaError:
' MsgBox "Tanggal Masuk Kerja kosong !" + vbCrLf + "Harus di
Isi", vbCritical, "Awas...!"
' Exit Sub
End Sub
[EMAIL PROTECTED]
- In [email protected], "D.N.Adam" <[EMAIL PROTECTED]>
wrote:
>
> Teman-teman milis sekalian, saya ada kesulitan membuat
perhitungan
> Umur seseorang yang secara otomatis akan terisi.
> Penjelasan sbb:
> Pada contoh ini saya menggunakan Mask Edit(MaskEd_Tgl_Lahir)
untuk
> menginput tanggal lahir seseorang, supaya memudahkan pemasukan
input
> tanggalnya. Disini yang jadi masalah, saya ingin jika seseorang
> lahir pada tanggal dengan format 03-02-1975, saat mengetikkan
angka
> terakhir ?5( dari tahun 1975) maka pada txt_umurthn.text dan
> txt_umurbln.text otomatis akan terisi secara langsung dengan
> perhitungan rumus sbb : 30 Tahun 11 Bulan. Patokan batasan
> perhitungannya hanya sampai bulan Desember saja. Saya sdh
> menggunakan rumus dari teman milis sbb :
>
> Private Sub MaskEd_TGL_LAHIR_Change()
>
> If Len(MaskEd_TGL_LAHIR.Mask) >= 10 Then
> txt_umurthn.Text = Int(DateDiff("m", DateValue
> (MaskEd_TGL_LAHIR.Text), Now) / 12)
> txt_umurbln.Text = DateDiff("m", DateValue
(MaskEd_TGL_LAHIR.Text),
> Now) - Int(DateDiff("m", DateValue(MaskEd_TGL_LAHIR.Text),
> Now) / 12) * 12
> End If
>
> End Sub
>
> Hasilnya :
> Ada 2 masalah, yang Pertama :Bermasalah/error saat baru pertama
mau
> input angka 0 dari 03-02-1075 sdh muncul Error sbb : Run Time
> Error "13": Type Mismach dan yang Kedua hasil perhitungan saya
> masih belum tahu,Apakah benar bisa menghasilkan 30 Tahun 11
Bulan,
> dari seseorang yang lahir di tanggal 03-02-1975.
> Mohon kiranya teman-teman mau membantu menemukan rumus
yang saya
> inginkan diatas dan yang kedua pada saat pertama masukkan angka
di
> MaskEd_TGL_LAHIR.Text tidak terjadi error duluan sebelum selesai
> memasukkan keseluruhan tanggalnya, Mungkin saya ada kesalahan
logika
> di event Changenya. Untuk Source Programnya sdh saya upload di
milis
> ini dengan nama: Mencari_UmurOtomatis_diMaskEdit.Zip. Atas
bantuan
> teman-teman saya ucapan terima kasih.
>
> Salam,
> Adam
>
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
SPONSORED LINKS
| Computer internet security | Computer internet business | Computer internet access |
| Computer internet privacy securities | Computer internet help | Computer internet connection |
YAHOO! GROUPS LINKS
- Visit your group "indoprog-vb" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
