This Elapsed Time Calculation System is useful for check the employees working time. This system start to work when employee log in to the office until log off from office. Import the Following Namespace Dim date1 As String Dim i, flg As Integer Dim th, ot As Decimal Public st As String Public wh As Decimal Create the Function Private …