The comments in the code explains what i am trying to achieve, however i keep getting an error which is
Conversion From String "06:18" to type Decimal Is Not Valid.
Any help will be much appreciated.
Thankyou
Conversion From String "06:18" to type Decimal Is Not Valid.
Any help will be much appreciated.
If txtStart.Text = "" Then
chkTotalHours.Checked = False
txtTotal.Text = "Enter Start Time"
ElseIf txtFinish.Text = "" Then
chkTotalHours.Checked = False
txtTotal.Text = "Enter Finish Time"
Else
Dim StartWork As Decimal = txtStart.Text
' Time format = 24 Hour Format -> EG: txtStart.Text = 06:18
Dim FinishWork As Decimal = txtFinish.Text
' Time format = 24 Hour Format -> EG: txtFinish.text = 17:27
Dim TimeDifference As Decimal = FinishWork - StartWork
' Trying to subtract Finish Time from Start Time to work out the time difference
' In this case it is 11 Hours & 9 Minutes
Dim HourlyRate As Decimal = txtHourly.Text
' This is the Rate Per Hour that you get paid - EG: $15.55
Dim HoursDay As Decimal = TimeDifference * HourlyRate
' I am trying to work out how much for the day you get paid
txtGross.Text = HoursDay
' This Displays the Monetary Gain
End If
Thankyou