Coba Pake gini TglAkhir = Format(DateValue(TglAwal) + Val(Text1),"yyyy/mm/dd")
Ditempatku gitu bisa lho... ----- Original Message ----- From: "Iwan Setiawan" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Thursday, April 14, 2005 10:20 AM Subject: [indoprog-vb] Date di VB > > 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 > > > > > > 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/
