Hi,
I'm trying to use select case to calculate payment due date for credit cards, but each time it only uses the first case whatever the selection is, any help.
Code is
Code:
Private Sub credit_payment_AfterUpdate()
Dim duedate, duedate1, duedate2, duedate3 As Date
Dim payment_val As String
payment_val = credit_payment.Value 'combobox selected value
Select Case due_date
Case payment_val = "Credit1"
duedate = DateSerial(year(credit_pay_date.Value), month(credit_pay_date.Value) + IIf(day(credit_pay_date.Value) < 20, 0, 1) + 1, 15) 'credit_pay_date textbox with the purchase date
credit_due_date.Value = duedate 'due date textbox
Case payment_val = "Credit2"
duedate1 = DateSerial(year(credit_pay_date.Value), month(credit_pay_date.Value) + IIf(day(credit_pay_date.Value) < 27, 0, 1) + 1, 22)
credit_due_date.Value = duedate1
Case payment_val = "Credit3"
duedate2 = DateSerial(year(credit_pay_date.Value), month(credit_pay_date.Value) + IIf(day(credit_pay_date.Value) < 1, 0, 1) + 1, 27)
credit_due_date.Value = duedate2
Case payment_val = "Credit4"
duedate3 = DateSerial(year(credit_pay_date.Value), month(credit_pay_date.Value) + IIf(day(credit_pay_date.Value) < 13, 0, 1) + 1, 13)
credit_due_date.Value = duedate3
End Select
End Sub