[VB.NET] การคำนวณหาเวลาการเข้าออกของพนักงาน (Time Attendance) ในระดับชั่วโมงและนาที

thongkorn

แอดมินเคยเขียนโค้ดแจกให้ไปแล้วทั้ง VB6 และ VBA โดยสามารถตามกลับไปอ่านได้จาก [VB6] การคำนวณหาเวลาการเข้าออกของพนักงาน (Time Attendance) ในระดับนาที และ [VBA] การคำนวณหาเวลาการเข้ามาทำงานของพนักงาน (Time Attendance) ... สำหรับตอนนี้จะเป็น VB.NET กันบ้างครับ



ข้อมูลที่ได้รับมาจากเครื่องสแกนลายนิ้วมือ (Finger Scan) ซึ่งชุดข้อมูลจะถูกแยกออกจากกันด้วย Space หรือ CHR(32)


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

1. ' / ------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: Time attendance & calculate difference time.
   
8. ' / Microsoft Visual Basic .NET (2010)
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / ------------------------------------------------------------------
    
13. 
    
14. Public Class frmCalTime
    
15. 
    
16.     ' / ------------------------------------------------------------------
    
17.     ' / Get my project path
    
18.     ' / AppPath = C:\My Project\bin\debug
    
19.     ' / Replace "\bin\debug" with ""
    
20.     ' / Return : C:\My Project\
    
21.     Function MyPath(ByVal AppPath As String) As String
    
22.         '/ MessageBox.Show(AppPath);
    
23.         AppPath = AppPath.ToLower()
    
24.         '/ Return Value
    
25.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
26.         '// If not found folder then put the \ (BackSlash) at the end.
    
27.         If Microsoft.VisualBasic.Right(MyPath, 1) <> "" Then MyPath = MyPath & ""
    
28.     End Function
    
29. 
    
30.     ' / ------------------------------------------------------------------
    
31.     ' / Browse text file and calculate difference time.
    
32.     Private Sub btnBrowse_Click(sender As System.Object, e As System.EventArgs) Handles btnBrowse.Click
    
33.         '/ Declaration Open File Dialog @Run Time
    
34.         Dim dlgOpenFile As OpenFileDialog = New OpenFileDialog()
    
35. 
    
36.         ' / Open File Dialog
    
37.         With dlgOpenFile
    
38.             .InitialDirectory = MyPath(Application.StartupPath)
    
39.             .Title = "Select text file."
    
40. 
    
41.             .Filter = "Text Files (*.txt)|*.txt"
    
42.             .FilterIndex = 1
    
43.             .RestoreDirectory = True
    
44.         End With
    
45.         ' Choose OK button after Browse ...
    
46.         If dlgOpenFile.ShowDialog() = DialogResult.OK Then
    
47. 
    
48.             txtFileName.Text = dlgOpenFile.FileName
    
49.             ' / Initialize DataGridView
    
50.             With dgvData
    
51.                 .ColumnHeadersVisible = False
    
52.                 .AlternatingRowsDefaultCellStyle.BackColor = Color.LimeGreen
    
53.                 .DefaultCellStyle.SelectionBackColor = Color.LightSteelBlue
    
54.                 .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
55.                 .RowTemplate.Height = 22
    
56.                 .ReadOnly = True
    
57.                 .MultiSelect = False
    
58.                 .Columns.Clear()
    
59.                 '// Autosize Column
    
60.                 .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
61.                 .AutoResizeColumns()
    
62.             End With
    
63. 
    
64.             Dim FileName As String = dlgOpenFile.FileName
    
65.             '/ Using a Chr(32) or Space delimited text file.
    
66.             Dim Lines = (From line In IO.File.ReadAllLines(FileName)
    
67.                          Select line.Split(Chr(32))).ToArray
    
68.             '/ Read for each column
    
69.             For x As Integer = 0 To Lines(0).GetUpperBound(0)
    
70.                 dgvData.Columns.Add(Lines(0)(x), Lines(0)(x))
    
71.             Next
    
72.             '/ Add new column for calculate time.
    
73.             dgvData.Columns.Add("CalDiff", "Difference Time")
    
74. 
    
75.             '/ Read line by line for each rows
    
76.             For x As Integer = 0 To Lines.GetUpperBound(0)
    
77.                 dgvData.Rows.Add(Lines(x))
    
78.             Next
    
79.             '/ Difference Time
    
80.             For sRow = 0 To dgvData.RowCount - 1
    
81.                 '// Time in
    
82.                 If (sRow Mod 2) = 0 Then
    
83.                     '// Compare with Time IN = 08:00 AM
    
84.                     dgvData.Rows(sRow).Cells(dgvData.Columns.Count - 1).Value = CalTime("08:00", dgvData.Rows(sRow).Cells(dgvData.Columns.Count - 2).Value)
    
85.                 Else
    
86.                     '// Compare with Time OUT = 17:00 PM
    
87.                     dgvData.Rows(sRow).Cells(dgvData.Columns.Count - 1).Value = CalTime("17:00", dgvData.Rows(sRow).Cells(dgvData.Columns.Count - 2).Value)
    
88.                 End If
    
89.             Next
    
90.         End If
    
91.     End Sub
    
92. 
    
93.     ' / ------------------------------------------------------------------
    
94.     ' / StartTime is IN/OUT reference time, EndTime is actual employee time.
    
95.     Public Function CalTime(StartTime As DateTime, ByVal EndTime As DateTime) As String
    
96.         CalTime = ""
    
97.         Dim dFrom As DateTime
    
98.         Dim dTo As DateTime
    
99.         Dim sDateFrom As String
    
100.         Dim sDateTo As String
     
101.         '/ Format the date before processing.
     
102.         sDateFrom = FormatDateTime(StartTime, DateFormat.ShortTime)
     
103.         sDateTo = FormatDateTime(EndTime, DateFormat.ShortTime)
     
104.         '/
     
105.         If DateTime.TryParse(sDateFrom, dFrom) AndAlso DateTime.TryParse(sDateTo, dTo) Then
     
106.             Dim TS As TimeSpan = dTo - dFrom
     
107.             Dim hour As Integer = TS.Hours
     
108.             Dim mins As Integer = TS.Minutes
     
109.             Dim secs As Integer = TS.Seconds
     
110.             Dim TimeDiff As String = "0"
     
111.             If hour <> 0 Then
     
112.                 TimeDiff = (hour.ToString & " Hr ") + mins.ToString & " Min"
     
113.             ElseIf mins <> 0 Then
     
114.                 TimeDiff = mins.ToString & " Min"
     
115.             End If
     
116.             '/ You can defined to format the problem.
     
117.             '/ Sample: Output 16 mins in format 00:16:00
     
118.             'TimeDiff = ((hour.ToString("00") & ":") + mins.ToString("00") & ":") + secs.ToString("00")
     
119.             CalTime = TimeDiff
     
120.         End If
     
121.     End Function
     
122. 
     
123.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
124.         Me.Close()
     
125.     End Sub
     
126. 
     
127.     Private Sub frmCalTime_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
128.         Me.Dispose()
     
129.         Application.Exit()
     
130.     End Sub
     
131. 
     
132.     Private Sub txtFileName_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtFileName.KeyPress
     
133.         '// Lock any key press.
     
134.         e.Handled = True
     
135.     End Sub
     
136. End Class

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

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...

g2gsoftuser

ขอบคุณครับ