Hi @Mattia Fanti ,
Organized a function to calculate total.
Please point out if my understanding is wrong.
12 NumericUpDown controls are involved.
daytime, night,
saturday_daytime, saturday_night,
sunday_daytime, sunday_night,
holiday_daytime, holiday_night,
holiday_saturday_daytime, holiday_saturday_night,
holiday_sunday_daytime, holiday_sunday_night.
Public Function paycheck() As Double
Dim BusinessDayPC As Double
Dim SaturdayPC As Double
Dim SundayPC As Double
Dim HolidayDayPC As Double
Dim HolidayDaySaturdayPC As Double
Dim HolidayDaySundayPC As Double
If night.Value >= 3 Then
BusinessDayPC = (daytime.Value + night.Value) * CDbl(hourlywage.Text) + 4
Else
BusinessDayPC = (daytime.Value + night.Value) * CDbl(hourlywage.Text)
End If
If saturday_night.Value >= 3 Then
SaturdayPC = (saturday_daytime.Value + saturday_night.Value) * CDbl(hourlywage.Text) * 1.3 + 4
Else
SaturdayPC = (saturday_daytime.Value + saturday_night.Value) * CDbl(hourlywage.Text) * 1.3
End If
If sunday_night.Value >= 3 Then
SundayPC = (sunday_daytime.Value + sunday_night.Value) * (CDbl(hourlywage.Text) + 0.7) + 4
Else
SundayPC = (sunday_daytime.Value + sunday_night.Value) * (CDbl(hourlywage.Text) + 0.7)
End If
If holiday_night.Value >= 3 Then
If holiday_daytime.Value + holiday_night.Value <= 7 Then
HolidayDayPC = (holiday_daytime.Value + holiday_night.Value) * CDbl(hourlywage.Text) * 1.35 + 4
Else
HolidayDayPC = CDbl(hourlywage.Text) * 1.35 * 7 + (holiday_daytime.Value + holiday_night.Value - 7) * CDbl(hourlywage.Text) * 1.4 + 4
End If
Else
If holiday_daytime.Value + holiday_night.Value <= 7 Then
HolidayDayPC = (holiday_daytime.Value + holiday_night.Value) * CDbl(hourlywage.Text) * 1.35
Else
HolidayDayPC = CDbl(hourlywage.Text) * 1.35 * 7 + (holiday_daytime.Value + holiday_night.Value - 7) * CDbl(hourlywage.Text) * 1.4
End If
End If
If saturday_night.Value >= 3 Then
If saturday_daytime.Value + saturday_night.Value <= 7 Then
HolidayDaySaturdayPC = (saturday_daytime.Value + saturday_night.Value) * CDbl(hourlywage.Text) * 1.35 + 4
Else
HolidayDaySaturdayPC = CDbl(hourlywage.Text) * 1.35 * 7 + (saturday_daytime.Value + saturday_night.Value - 7) * CDbl(hourlywage.Text) * 1.4 + 4
End If
Else
If saturday_daytime.Value + saturday_night.Value <= 7 Then
HolidayDaySaturdayPC = (saturday_daytime.Value + saturday_night.Value) * CDbl(hourlywage.Text) * 1.35
Else
HolidayDaySaturdayPC = CDbl(hourlywage.Text) * 1.35 * 7 + (saturday_daytime.Value + saturday_night.Value - 7) * CDbl(hourlywage.Text) * 1.4
End If
End If
If sunday_night.Value >= 3 Then
If sunday_daytime.Value + sunday_night.Value <= 7 Then
HolidayDaySundayPC = (sunday_daytime.Value + sunday_night.Value) * (CDbl(hourlywage.Text) + 0.7) * 1.35 + 4
Else
HolidayDaySundayPC = (CDbl(hourlywage.Text) + 0.7) * 1.35 * 7 + (sunday_daytime.Value + sunday_night.Value - 7) * (CDbl(hourlywage.Text) + 0.7) * 1.4 + 4
End If
Else
If sunday_daytime.Value + sunday_night.Value <= 7 Then
HolidayDaySundayPC = (sunday_daytime.Value + sunday_night.Value) * (CDbl(hourlywage.Text) + 0.7) * 1.35
Else
HolidayDaySundayPC = (CDbl(hourlywage.Text) + 0.7) * 1.35 * 7 + (sunday_daytime.Value + sunday_night.Value - 7) * (CDbl(hourlywage.Text) + 0.7) * 1.4
End If
End If
Return (BusinessDayPC + SaturdayPC + SundayPC + HolidayDayPC + HolidayDaySaturdayPC + HolidayDaySundayPC)
End Function
Best Regards.
Jiachen Li
----------
If the answer is helpful, please click "Accept Answer" and upvote it.
Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.