Coba bantu ya....mudah2an bisa deh....
menurut saya seperti ini :
Sub hitung()
Dim tahun As Integer
Dim bulan As Integer
Dim hari, temp As Integer
Dim angka As Integer
angka = 397
Dim tahun As Integer
Dim bulan As Integer
Dim hari, temp As Integer
Dim angka As Integer
angka = 397
' Untuk dapatkan tahun
tahun = angka / 365
temp = angka Mod 365
' Untuk dapatkan bulan
bulan = temp / 30
' Untuk dapatkan hari
hari = temp Mod 30
Debug.Print tahun & " Tahun " & bulan & _
tahun = angka / 365
temp = angka Mod 365
' Untuk dapatkan bulan
bulan = temp / 30
' Untuk dapatkan hari
hari = temp Mod 30
Debug.Print tahun & " Tahun " & bulan & _
" Bulan " & hari & " Hari"
End Sub
End Sub
ok, mudah2an berhasil....
-Petry-
Yahoo! Photos
Got holiday prints? See all the ways to get quality prints in your hands ASAP.
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
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.
