Dear All,
Saya ada sedikit kesulitan nich, tolong bantu yach
Saya punya
Data_awal="2005/03/17" '<----(yyyy/mm/dd
Selisih_hari = 27
Nach kalau data awal + selisih_hari maka tanggal akhir berapa yach ?
Logika yang terpikir adalah sbb :
'Definisi max bulan
' 01 (bulan) max hari 31
'02---> 28
'03 --> 31
'04 --> 30
'etc
Ambil tgl dari data awal
Tgl=mid(data_awal,9,2) ' didapat value 17
Tgl_sementara = (tgl + selisih_hari)- max_hari_dlm_sebulan(31)
If tgl_sementara <=0 then
tgl=selisih_hari + tgl
else
tgl=tgl_sementara
bulan=bulan +1
endif
data_akhir = tahun & "/" & bulan & "/" & tgl
'-----------------------------------------
Namun saya berfikir jika selisih hari diisi 787
Nach, maka logika saya sudah tidak dpt berjalan.
Adakah logika yang lebih praktis untuk menghitung hal diatas. Ataukah
ternyata VB punya function untuk perhitungan diatas.
Atas saran dan bantuannya saya ucapkan terimakasih
Regards
Iwan S
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
