รบกวนถามเรื่องคำนวณเรื่องเวลาครับ vb.net รบกวนขอคำแนะนำหรือตัวอย่างในการคำนวณเวลาออกมาเป็นชั่วโมง
แปลงเป็น type DateTime แล้วใช้ method Add(TimeSpan) จัดการ
Date :
2010-06-06 11:32:53
By :
tungman
ใช้ Data Diff()
Dim time_in As Date = Rs("time_in")
Dim time_out As Date = Rs("time_out")
Dim hour As Integer = DateDiff(DateInterval.Hour, time_in, time_out)
Label7.Text = hour
Date :
2010-06-08 11:34:15
By :
นศ บ้านนอก
เรียน คุณtungman
รบกวนสอบถามเพิ่มเติมครับ คือตอนนี้คำนวณเวลาได้แล้ว แต่ติดปัญหาตรงที่คำนวณเวลาข้ามวันไม่ได้อ่ะคับ
และผมกดปุ่ม check ครั้งแรกคำนวณผลรวมถูก แต่ถ้ากดครั้งที่ 2 ในกรณีแก้ไขจะเอาผมรวมครั้งแรกมาบวกเพิ่มต้องเขียน code ดักยังไงอ่ะคับถึงจะไม่บวกเพิ่ม รบกวนแนะนำด้วยครับ
Code (VB.NET)
Private Sub BtnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCheck.Click
If TxtEmpID.Text = "" Then
MsgBox("Please input EmpID", MsgBoxStyle.OkOnly)
TxtEmpID.Text = ""
TxtEmpName.Text = ""
TxtEmpID.Focus()
Else
Sumrow = DataGridView1.Rows.Count - 1
For i As Integer = 0 To Sumrow
Col1 = DataGridView1.Rows(i).Cells(0).Value 'col1 as date
Col2 = DataGridView1.Rows(i).Cells(1).Value
Col3 = DataGridView1.Rows(i).Cells(2).Value
Col4 = DataGridView1.Rows(i).Cells(3).Value
Col5 = DataGridView1.Rows(i).Cells(4).Value
Col6 = DataGridView1.Rows(i).Cells(5).Value
Col7 = DataGridView1.Rows(i).Cells(6).Value
Col8 = DataGridView1.Rows(i).Cells(7).Value
SumTimeCol = (Col2 - Col1) + (Col4 - Col3) + (Col6 - Col5) + (Col8 - Col7) 'SumTimeCol as timespan
DataGridView1.Rows(i).Cells(8).Value = SumTimeCol.ToString.Substring(0, 5)
'รวมเวลา Column ที่ 9
SumTime = SumTime + SumTimeCol 'sumtime as date
Next
TxtSumH.Text = SumTime.ToString.Substring(11, 8)
End If
End Sub
Date :
2010-06-16 11:26:48
By :
want
อ้าว งานเข้าเลยตู
ถ้าวันต่างกัน คุณต้องเก็บวันที่ไว้ด้วยครับ แล้วใช้
datediff ช่วยครับ มันจะ return เป็น int จำนวนวัน แล้วเอาจำนวนวันมาคูณ 24 ก็จะได้ชั่วโมง
Date :
2010-06-16 13:22:05
By :
tungman
รบกวนขอตัวอย่างได้ไหมคับคุณtungman สุดหล่อ
Date :
2010-06-16 22:19:27
By :
want
Load balance : Server 02