JagoVB
20th November 2011, 09:33 AM
http://i56.tinypic.com/iqzy4j.jpg
Gan ane mau tanya nh biar harga proratanya semuai dengan tglnya gmn ya? Misal tgl ane ganti ke 20 itu harganya di tgl 20 sama klo tgl 1 - 5 itu harganya full recurringdues gt... Nh codingannya
<div style="margin:20px; margin-top:5px; ">
Quote:
Function CekTanggal(ByVal strTanggal As Date) As Integer
On Error GoTo Pesan
strTgl = Format(TglPendaftaran.Value.Date, "dd-MM-yyyy").ToString 'Konversikan ke string
dd = strTgl.Day
mm = Month(strTgl) 'Ambil 2 angka di tengah untuk bulan
yyyy = Year(strTgl) 'Ambil 4 angka terakhir untuk tahun
intKabisat = yyyy Mod 4 'Set variabel kabisat
'Lakukan pemeriksaan untuk memperoleh jumlah tanggal
If ((dd >= 1) And (dd = 1) And (dd = 1) And (dd = 1) And (dd
Gan ane mau tanya nh biar harga proratanya semuai dengan tglnya gmn ya? Misal tgl ane ganti ke 20 itu harganya di tgl 20 sama klo tgl 1 - 5 itu harganya full recurringdues gt... Nh codingannya
<div style="margin:20px; margin-top:5px; ">
Quote:
Function CekTanggal(ByVal strTanggal As Date) As Integer
On Error GoTo Pesan
strTgl = Format(TglPendaftaran.Value.Date, "dd-MM-yyyy").ToString 'Konversikan ke string
dd = strTgl.Day
mm = Month(strTgl) 'Ambil 2 angka di tengah untuk bulan
yyyy = Year(strTgl) 'Ambil 4 angka terakhir untuk tahun
intKabisat = yyyy Mod 4 'Set variabel kabisat
'Lakukan pemeriksaan untuk memperoleh jumlah tanggal
If ((dd >= 1) And (dd = 1) And (dd = 1) And (dd = 1) And (dd