คำนวณเงินเป็น OT โดยหาจากเวลาที่มีอยู่แล้วนำค่า ชม.ที่เกินมาคูณกับค่าเงิน เป็น OT

Sub gentime()

        timess = DateAndTime.Now.Hour & ":" & DateAndTime.Now.Minute & ":" & DateAndTime.Now.Second

    End Sub
    Sub genmonth()
        wes = DateAndTime.Now.Month & "/" & DateAndTime.Now.Year + 543

    End Sub
    Sub TableCheckin()
        genmonth()
        readconnection()
        Dim pofree As Integer
        If TxtFreePosition.Text = "-" Then
            pofree = 0
        Else
            pofree = TxtFreePosition.Text
        End If
        'หาเงินเดือน
        strSQL = "SELECT COUNT(*) FROM WorkDate WHERE DateNow LIKE '%" & wes & "' AND EMPID='" & TbId.Text & "'"
        Dim objCmd As New SqlCommand
        objCmd = New SqlCommand(strSQL, Conn)
        intNumRow = objCmd.ExecuteScalar()
        Dim totalx, totaly, ot2, ot3, sumz, sumx As Integer
        totalx = intNumRow
        totaly = CInt(TxtDailyWage.Text) * totalx
        Lbdowork.Text = totaly.ToString

       
        'โอที คูณ 1.5

        strSQL2 = "SELECT count(TimeOut) FROM WorkDate WHERE DateNow LIKE '%" & wes & "' AND EMPID='" & TbId.Text & "'' AND TimeOut ='17:00' and TimeOut <'20:00'"
        objCmd2 = New SqlCommand(strSQL, Conn)
        intNumRow2 = objCmd.ExecuteScalar()
        ot2 = intNumRow2 * 1.5
        ot3 = CInt(TxtOtPerHour.Text) * ot2
        LbdoOt.Text = ot3.ToString("#,##0.00")

        sumx = (CInt(TxtOtPerHour.Text) * ot2) + (CInt(TxtDailyWage.Text) * totalx)
        sumz = pofree + sumx
        LbSum.Text = sumz.ToString("#,##0.00")
    End Sub