如何从vb.net中的变量中删除小数

Question

我创建了一个代码来计算工人的工资，如果慈善机构的工资超过 100，则为 -1，每 10 超过 100 -1。但我需要用新的工资变量去掉小数。在 if 函数的末尾

\n\n

Dim donation As Single\nDim newpay As Single\nDim hourlyRate As Decimal\nDim pay As Decimal\nDim hours As Single\n\nSub Main()\n\n\n    Console.WriteLine("how many hours have you worked this week?")\n    hours = Console.ReadLine\n\n    Console.WriteLine("what is your hourly pay?")\n    hourlyRate = Console.ReadLine\n\n    pay = hours * hourlyRate\n    newpay = pay\n\n    If pay > 100 Then\n        pay = pay - 1\n        newpay = newpay - 100\n        donation = donation + 1\n\n        newpay = newpay / 10\n\n        Math.Floor(newpay)\n\n        pay = pay - newpay\n        donation = donation + newpay\n\n    End If\n\n    Console.WriteLine("you earned \xc2\xa3" & pay & " and donated \xc2\xa3" & donation & " to charity")\n    Console.ReadLine()\n\n\n\n\nEnd Sub\n

\n

Answer 1

使用该Math.Floor函数进行向下舍入

那么如果 newpay 是3.6

Math.Floor(newpay)

将返回3

所以

使用该函数的结果

donation = donation + Math.Floor(newpay)

或者

newpay = Math.Floor(newpay)