mas adam,
kalau kita cuma mau menghitung umur seseorang, kita bisa langsung pakai fungsi datediff nya visual basic.
coba pelajari contoh berikut:
Public Sub hitungumur()
Const sTglLahir As String = "14-Sept-1935"
Debug.Print "UMUR ANDA SAAT INI DALAM TAHUN: " & DateDiff("yyyy", CDate(sTglLahir), Date) & " TAHUN"
Debug.Print "UMUR ANDA SAAT INI DALAM BULAN: " & DateDiff("m", CDate(sTglLahir), Date) & " BULAN"
End Sub
Const sTglLahir As String = "14-Sept-1935"
Debug.Print "UMUR ANDA SAAT INI DALAM TAHUN: " & DateDiff("yyyy", CDate(sTglLahir), Date) & " TAHUN"
Debug.Print "UMUR ANDA SAAT INI DALAM BULAN: " & DateDiff("m", CDate(sTglLahir), Date) & " BULAN"
End Sub
ini hasilnya di immediate windows
UMUR ANDA SAAT INI DALAM TAHUN: 71 TAHUN
UMUR ANDA SAAT INI DALAM BULAN: 848 BULAN
UMUR ANDA SAAT INI DALAM BULAN: 848 BULAN
best regards
[wwn]
On 5/8/06, D.N.Adam <[EMAIL PROTECTED]> wrote:
Rekan-rekan milis VB, saya perlu bantuan pencerahan mengenai masalah
program sbb :
Begini, bagaimana cara, kalau saya masukan tanggal lahir di
txt_tgllahir.text di program saya ini otomatis akan mengisi umur
untuk txt_umurthn dan txt_umurbln…? Untuk lebih jelas kerjanya sbb :
Jika saya masukkan di text box umur seseorang lahir otomatis
txt_umurthn dan txt_umurbln terisi dengan sendirinya akan langsung
terisi untuk menghitung langsung umur-> tahun dan umur-> bulan
seseorang tersebut. Contoh progrannya sudah saya posting ke milis ini
namanya : Mencari Selisih Umur Tahun & Bulan.
Atas bantuan teman-teman semua, terima kasih
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
SPONSORED LINKS
| Programmer | Indonesia | Basic programming language |
| Computer programming languages | Programming languages | Java programming language |
YAHOO! GROUPS LINKS
- Visit your group "Programmer-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.
