these person is hired by her employee which it agree that the salary would be one penny the first day, two pennies the second day and four pennies the third day and continuing to double each day. i have to use a combo box to select the days that the empoyee will be working and calculate the total amount of pay that will received.
its not calculating right?
Dim intDay As Integer = 0
Dim intCount As Integer = 1
Dim decPay As Decimal = 0
Dim intNumDays As Integer
Dim dblTotal As Double = 0
Dim dblTotalPay As Double
Dim dblPay As Double
Dim decTotal As Decimal
Dim intCurrent As Integer
If Integer.TryParse(cboDay.Text, intNumDays) Then
For intCount = 1 To intNumDays
intDay += 1
Next
If intNumDays > 0 Then
intCurrent = CInt((intDay ^ 2.0))
decTotal = decTotal + intCurrent
lblPay.Text = decTotal.ToString ("C")
End If
End If