[VB6] การคำนวณหาเวลาการเข้าออกของพนักงาน (Time Attendance) ในระดับนาที

thongkorn

ก็เป็นอีกหนึ่งคำถามที่ถามเข้ามาบ่อยมาก ในเรื่องของการคำนวณเวลา หรือ การหาค่าความแตกต่างของระยะเวลา แอดมินก็เลยจัดให้ทันทีที่หาโค้ดเจอล่ะกันครับ แหะๆๆๆ ... ข้อมูลจริงที่รับค่าเข้ามาจากเครื่องอ่านลายนิ้วมือ (Finger Scan) ค่อนข้างยุ่งเหยิงมากกว่านี้นะครับ เพราะมีการสแกนลายนิ้วมือซ้ำซ้อนกัน แต่โค้ดนี้เอาไว้ใช้เพื่อศึกษาการทำงาน และการคำนวณ แอดมินก็เลยกรองข้อมูลสมมุติขึ้นมาให้ดูล่ะกัน ...


Project --> Components ...


Design Time ...

มาดูโค้ดกันเถอะ ...

1. ' / ---------------------------------------------------------------------------------------------
   
2. Private Sub cmdOpenFile_Click()
   
3. 'On Error Resume Next
   
4. On Error GoTo ErrHandler
   
5. Dim strFile As String
   
6.    
   
7.     dlgOpenFile.FileName = ""
   
8.     dlgOpenFile.CancelError = True ' ไม่สนใจ Error ที่เกิดขึ้น
   
9.     dlgOpenFile.InitDir = App.Path    ' เลือกตำแหน่งปัจจุบันของ Project
   
10.     dlgOpenFile.DialogTitle = "เลือกตำแหน่งเท็กซ์ไฟล์ *.txt" ' ตั้งค่า Title ของ Dialog
    
11.     dlgOpenFile.Filter = "Text File (*.txt) | *.txt" ' แสดงผลเฉพาะไฟล์ txt extension
    
12.     dlgOpenFile.ShowOpen
    
13.     dlgOpenFile.DefaultExt = "*.txt" ' ตั้งค่านามสกุล txt เป็นค่าเริ่มต้น
    
14.    
    
15.     strFile = dlgOpenFile.FileName
    
16.     If strFile = "" Then Exit Sub
    
17.     txtOpenFile.Text = strFile
    
18. 
    
19. ExitProc:
    
20.     Exit Sub
    
21. 
    
22. ErrHandler:
    
23.     ' หากไม่เท่ากับ 32755 ... คือหมายเลข Error 32755 นี้ คือ การกดปุ่ม Cancel น่ะครับ
    
24.     ' พูดง่ายๆ ผมไม่สนใจการเกิด Error นี้น่ะครับ ... แต่ Error อื่นๆ จะคอยดักไว้อีกที
    
25.     If Err.Number <> 32755 Then
    
26.         MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
    
27.         ' Resume ExitProc
    
28.     End If
    
29. 
    
30. End Sub

คัดลอกไปที่คลิปบอร์ด

ส่วนของการเลือกไฟล์ (Text File) ข้อมูลของการเข้าออก


ข้อมูลทดสอบ โดยที่ในแต่ละหลักจะแยกออกจากกันด้วยเครื่องหมายช่องว่าง (Space)

โค้ดในส่วนของการแยกแยะข้อมูลออกจากกัน ก่อนที่จะทำการประมวลผล

1. ' / ---------------------------------------------------------------------------------------------
   
2. Private Sub cmdReadText_Click()
   
3.     Dim iRow, i As Long
   
4.     Dim iArr As Variant
   
5.     Dim StrData As String
   
6.     Dim StrTemp As String
   
7.     ' ตัวแปร Object ใช้กับ ListView Control
   
8.     Dim LV As ListItem
   
9.         
   
10.     If Trim$(txtOpenFile.Text) = "" Or Len(Trim$(txtOpenFile.Text)) = 0 Then Exit Sub
    
11.    
    
12.     ' Open Text File
    
13.     Open Trim$(txtOpenFile.Text) For Input As #1
    
14.    
    
15.     iRow = 1
    
16.     ' ทำจนกว่าจะหมดข้อมูล (EOF - End Of File)
    
17.     Do Until EOF(1)
    
18.         ' อ่านข้อมูลเข้ามาทีละบรรทัด
    
19.         Line Input #1, StrData
    
20.         StrTemp = Trim(StrData)
    
21.         ' แยกชุดตัวอักษรออกจากกันด้วยคำสั่ง Split
    
22.         ' โดยใช้เครื่องหมายช่องว่าง (Space) ในการจับแยกชุดตัวอักษร แล้วเก็บเข้าไปใน Array
    
23.         iArr = Split(StrTemp, " ")
    
24.         
    
25.         ' Index = 0 it's Item
    
26.         Set LV = lvwData.ListItems.Add(, , iRow)
    
27.         ' Employee ID
    
28.         LV.SubItems(1) = iArr(0)
    
29.         ' Date In/Out
    
30.         LV.SubItems(2) = iArr(1)
    
31.         ' Time In/Out
    
32.         LV.SubItems(3) = iArr(2)
    
33.         
    
34.         ' เลขจำนวนเต็มใดๆหารเอาเศษ (MOD) หากได้ 1 คือเลขคี่ หากได้เลข 0 คือเลขคู่
    
35.         If (iRow Mod 2) = 1 Then
    
36.             ' คำนวณหาค่าความต่างเวลาตอนเข้า 08.00 หากเวลาติดลบคือเข้าก่อน
    
37.             LV.SubItems(4) = CalTime("08:00", Format(iArr(2), "HH:MM"))
    
38.         Else
    
39.             ' คำนวณหาค่าความต่างเวลาตอนออก 17.00  หากเวลาติดลบคือออกก่อน
    
40.             LV.SubItems(4) = CalTime("17:00", Format(iArr(2), "HH:MM"))
    
41.         End If
    
42.         
    
43.         ' Increment Item
    
44.         iRow = iRow + 1
    
45.     Loop
    
46.    
    
47.     ' Close Text File
    
48.     Close #1
    
49. End Sub

คัดลอกไปที่คลิปบอร์ด

การอ่านข้อมูลแบบ Line By Line ... ด้วยการแยกข้อมูลออกจากกันด้วยเครื่องช่องว่าง (Space) หรือค่า ASCII Code = 32 (ฐาน 10)


ฟังค์ชั่นในการคำนวณหาค่าความต่างของเวลา

1. ' / ---------------------------------------------------------------------------------------------
   
2. ' / ฟังค์ชั่นคำนวณหาค่าความต่างเวลาเป็นนาที
   
3. Public Function CalTime(StartTime As Date, EndTime As Date) As Integer
   
4. ' / ---------------------------------------------------------------------------------------------
   
5. 
   
6.     Dim cHH As Integer
   
7.     Dim cMM As Integer
   
8.    
   
9.     ' / ---------------------------------------------------------------------------------------------
   
10.     ' หลักการของการหาค่าความแตกต่างของเวลา
    
11.     ' ใช้การหาค่าความแตกต่างในระดับจำนวนของวินาทีทั้งหมดออกมาก่อน
    
12.     ' แล้วค่อยคิดตัดออกจากจำนวนชั่วโมง นาที และ วินาที ที่ต่างกัน
    
13.     ' 1 ชั่วโมง เท่ากับ 3600 วินาที
    
14.     ' 1 นาที เท่ากับ 60 วินาที
    
15.     Dim SecInMinute As Integer
    
16.     Dim SecInHour As Integer
    
17.     SecInMinute = 60    ' จำนวน 1 นาทีเท่ากับ 60 วินาที
    
18.     SecInHour = 3600    ' มาจากจำนวน 60 นาทีใน 1 ชั่วโมง คูณเข้ากับ 60 วินาทีในแต่ละนาที ดังนั้น 1 ชั่วโมง = 3600 วินาที
    
19.     ' / ---------------------------------------------------------------------------------------------
    
20.    
    
21.     ' หาจำนวนชั่วโมง (Hour) ... หารตัดเศษ ( \ ) ทิ้งไปเลย ... ทำงานได้เร็วกว่าการหารเอาเศษ ( / )
    
22.     ' การกำหนดชนิดตัวแปรแบบเลขจำนวนเต็ม (Integer หรือ Long) มันไม่มีเลขทศนิยมอยู่แล้วครับ
    
23.     ' หาความแตกต่างของจำนวนชั่วโมง โดยนับเป็นวินาที จากนั้นให้หารตัดเศษด้วย (จำนวนนาที x จำนวนวินาที)
    
24.     ' นั่นคือ ค่าที่ได้ \ (60 นาที x 60 วินาที) ... 1 ชั่วโมงก็จะเท่ากับ 3600 วินาที
    
25.     cHH = DateDiff("s", StartTime, EndTime) \ SecInHour
    
26.    
    
27.     ' หาจำนวนนาที (Minute) ...  ไล่เครื่องหมายวงเล็บให้ถูกด้วยน่ะครับ
    
28.     ' การใส่วงเล็บ จะมีความสำคัญที่สูงกว่าเครื่องหมาย + - * / ... อย่าลืมเด็ดขาด
    
29.     ' ความแตกต่างของจำนวนนาที ค่าที่ได้ให้ลบออกจากจำนวนวินาที
    
30.     ' จำนวนวินาทีที่ได้ ให้ลบออกจากเวลาจำนวนชั่วโมงที่ต่างกันก่อน (ชั่วโมง x วินาที)
    
31.     ' แล้วค่อยหารตัดเศษด้วย 60 ... เพราะ 1 นาที = 60 วินาที
    
32.     cMM = (DateDiff("s", StartTime, EndTime) - (cHH * SecInHour)) \ SecInMinute
    
33.    
    
34.     ' คืนค่ากลับให้ฟังค์ชั่น โดยเอาจำนวนชั่วโมงคูณ 60 นาที รวมเข้ากับนาทีที่ไม่เกิน 1 ชั่วโมง
    
35.     CalTime = (cHH * 60) + cMM
    
36. End Function

คัดลอกไปที่คลิปบอร์ด

การคืนค่ากลับของฟังค์ชั่นจะเป็นตัวเลขชนิดจำนวนเต็ม (Integer) โดยให้มีหน่วยนับเป็นนาที

โค้ดในส่วนอื่นๆ ... (เผื่อเอาไว้สำหรับท่านที่ดาวน์โหลดไม่ได้)

1. ' / ---------------------------------------------------------------------------------------------
   
2. ' / Initial ListView
   
3. Sub SetupListView()
   
4.     With Me.lvwData
   
5.         ' Coding with Run Time
   
6.         .View = lvwReport
   
7.         .Arrange = lvwNone
   
8.         .LabelEdit = lvwManual
   
9.         .BorderStyle = ccFixedSingle
   
10.         .Appearance = cc3D
    
11.         
    
12.         .HideColumnHeaders = False
    
13.         .HideSelection = False
    
14.         .LabelWrap = False
    
15.         .MultiSelect = False
    
16.         .Enabled = True
    
17.         .AllowColumnReorder = True
    
18.         .Checkboxes = False
    
19.         .FlatScrollBar = False
    
20.         .FullRowSelect = True
    
21.         .GridLines = True
    
22.         .HotTracking = False
    
23.         .HoverSelection = False
    
24.         
    
25.         .Sorted = False 'True
    
26.         .SortKey = 0
    
27.         .SortOrder = lvwAscending 'lvwDescending
    
28.         
    
29.         ' Add header
    
30.         .ColumnHeaders.Add , , "ลำดับที่", .Width \ 5 - 600
    
31.         .ColumnHeaders.Add , , "รหัสพนักงาน", .Width \ 5
    
32.         .ColumnHeaders.Add , , "วันที่เข้า/ออก", .Width \ 5 - 120
    
33.         .ColumnHeaders.Add , , "เวลาเข้า/ออก", .Width \ 5 - 280
    
34.         .ColumnHeaders.Add , , "ความต่างเวลา (นาที)", .Width \ 5 + 200, lvwColumnRight
    
35.     End With
    
36.    
    
37. End Sub
    
38. 
    
39. Private Sub Form_Load()
    
40.     Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
    
41.     txtOpenFile.Text = ""
    
42.     Call SetupListView
    
43. End Sub
    
44. 
    
45. Private Sub Form_Resize()
    
46.     On Error Resume Next
    
47.    
    
48.     If Me.WindowState = vbMinimized Then Exit Sub
    
49.     ' Fix width & height
    
50.     ' width
    
51.     If Me.Width <> 10380 Then
    
52.         Me.Width = 10380
    
53.         Exit Sub
    
54.     End If
    
55.     ' height
    
56.     If Me.Height <> 7410 Then
    
57.         Me.Height = 7410
    
58.         Exit Sub
    
59.     End If
    
60. End Sub

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับแบบเต็ม VB6 (SP6) ได้ที่นี่

wut_62

ขอบคุณมากครับอาจารย์ ขอรับไปศึกษาต่อนะครับ

MrDen

ขอบพระคุณมากครับอาจารย์

g2gsoftuser

ขอบคุณครับ