להשתמש בפונקציה הזו (TIME) לחישוב שעות עבודה - כפתור אוטומט שכשלוחצים רושם שעת התחלה, אח"כ שעת סיום ובסוף חישוב ביניהם. הבעיה היא שכשיש גם שניות, החישוב יוצא עם כמה ספרות אחרי הנקודה ובעייתי. איך אני מנטרל שם את השניות?
חשב את הפרש הדקות בין כניסה ליציאה והשתמשת בפונקציות המצורפות:
Function GetHrs(TotalMnts) As String If IsNumeric(TotalMnts) Then Dim Hrs As Integer Hrs = (TotalMnts - (TotalMnts Mod 60)) / 60 GetHrs = Hrs & ":" & Format((TotalMnts Mod 60), "00") End If End Function Function GetDeciHrs(TotalMnts) As String If IsNumeric(TotalMnts) Then Dim Hrs As Integer Hrs = (TotalMnts - (TotalMnts Mod 60)) / 60 GetDeciHrs = Hrs & "." & Format((TotalMnts Mod 60) * 100 / 60, "00") End If End Function
