[ask] vb.net
 

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