membantu atau disempurnakan lagi
--- Armansyah <[EMAIL PROTECTED]> wrote:
> Assalamu'alaykum Wr. Wb.,
>
> Saya pernah menghadapi kendala yang nyaris sama,
> hanya bukan masalah perhitungan umur ... berikut
> saya coba berikan gambaran teknisnya secara global
> proses otomatisasi tersebut untuk diterapkan pada
> aplikasi anda yang sesungguhnya :
>
> Private Sub hitung()
>
> If Text1.Text <> "" And Text2.Text <> "" Then
> Text3.Text = Val(Text1.Text) + Val(Text2.Text)
> Else
> If Text1.Text = "" And Text2.Text = "" Then
>
> Text1.Text = "0"
> Text2.Text = "0"
> Text3.Text = Val(Text1.Text) + Val(Text2.Text)
> Else
>
> If Text1.Text = "" And Text2.Text <> "" Then
> Text1.Text = "0"
> Text3.Text = Val(Text1.Text) + Val(Text2.Text)
> Else
> If Text1.Text <> "" And Text2.Text = "" Then
> Text2.Text = "0"
> Text3.Text = Val(Text1.Text) + Val(Text2.Text)
> End If
> End If
> End If
> End If
> End Sub
>
> Private Sub Form_Load()
> hitung
> End Sub
>
> Private Sub Text1_Change()
> hitung
> End Sub
>
> Private Sub Text2_Change()
> hitung
> End Sub
>
> Maaf jika tidak seperti yang dimaksud ... masih
> newbie juga nih ..
>
> Wassalam,
>
>
> Armansyah
> http://armansyah.swaramuslim.net
> ----- Original Message -----
> From: D.N.Adam
> To: [email protected]
> Sent: Monday, May 08, 2006 4:19 PM
> Subject: [Programmer-VB] Help Bgmana mencari umur
> & bulan seseorang secara otomatis..?
>
>
> 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
>
>
>
>
>
>
>
> SPONSORED LINKS Programmer Indonesia Basic
> programming language
> Computer programming languages Programming
> languages Java programming language
>
>
>
------------------------------------------------------------------------------
> YAHOO! GROUPS LINKS
>
> a.. Visit your group "Programmer-VB" on the
> web.
>
> b.. To unsubscribe from this group, send an
> email to:
> [EMAIL PROTECTED]
>
> c.. Your use of Yahoo! Groups is subject to the
> Yahoo! Terms of Service.
>
>
>
------------------------------------------------------------------------------
>
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
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.
Public Function hariumur(vtglahir As Date) As String
Dim vhari(12)
vhari(1) = 31
vhari(2) = 28
vhari(3) = 31
vhari(4) = 30
vhari(5) = 31
vhari(6) = 30
vhari(7) = 31
vhari(8) = 31
vhari(9) = 30
vhari(10) = 31
vhari(11) = 30
vhari(12) = 31
VU = Now
vtglahir = vtgl
'VU = Format(Now, "MM/DD") - vtglahir
VBL = Month(VU) - Month(vtglahir)
VHR = Day(Now) - Day(vtglahir)
VTH = Year(Now) - Year(vtglahir)
If VHR >= 0 Then
vuhr = VHR
Else
vuhr = Str(VHR + vhari(Month(vtglahir)))
VBL = VBL - 1
End If
If VBL >= 0 Then
vubl = VBL
Else
vubl = Str(VBL + 12)
VTH = VTH - 1
End If
'Text3.Text = Str(VTH)
hariumur = Format(VTH, "000") + Format(vubl, "00") + Format(vuhr, "00")
vhth = Format(VTH, "000") + Format(vubl, "00") + Format(vuhr, "00")
End Function
