Per te llogaritur ne menyre te sakt, pa perdorimin e "If" ose "Select" ja ku eshte kodi i cili nuk ka kufizime. Pra vlene edhe per brezin nen 40 ore, edhe per cfaredo shumefishi te 40
Kodi:
Dim hourlyRate As Double = 0
Dim weeklyHours As Double = 0
Dim weekCounter As Integer = 0
Dim moduoSwitch As Integer = 0
Dim totalWage, regularWage, excepWage, overtimeWage As Double
Try
hourlyRate = CDbl(txtRate.Text)
weeklyHours = CDbl(txtHours.Text)
'Sherben per numrimin e shumefishave te 40
weekCounter = Truncate(weeklyHours / 40)
'Sherben per te llogaritur se a duhet perdorur moduo dhe gjithnje do te jet 0 ose 1
moduoSwitch = weekCounter / (weeklyHours / 40)
'Rroga e rregullt
regularWage = weeklyHours * hourlyRate
'Rroga per overtime
overtimeWage = moduoSwitch * (weeklyHours Mod 40) * (hourlyRate / 2)
'Rroga per 80,120 ...
excepWage = moduoSwitch * (40 * (weekCounter - 1) * (hourlyRate / 2))
totalWage = regularWage + overtimeWage + excepWage
txtWage.Text = totalWage
Catch ex As Exception
MsgBox(ex.Message)
End Try
E bashkangjita vb.net 2008 projektin e reviduar. Besoj se per ta kopjuar funksionin truncate ne java duhet perdorur BIGDECIMAL dhe Round_Down
Krijoni Kontakt