كيفية جمع الوقت

 

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class DateMembers

   [color= #000000; font-weight: bold;]Public Shared Sub Main[color= #009900;]([color= #009900;])

      Dim dat [color= #b1b100;]As [color= #990000;]Date [color= #339933;]= [color= #000000; font-weight: bold;]New [color= #990000;]Date[color= #009900;]([color= #cc66cc;]2000[color= #339933;], [color= #cc66cc;]1[color= #339933;], [color= #cc66cc;]1[color= #009900;])

      Dim ts [color= #b1b100;]As [color= #000000; font-weight: bold;]New TimeSpan[color= #009900;]([color= #cc66cc;]30[color= #339933;], [color= #cc66cc;]0[color= #339933;], [color= #cc66cc;]0[color= #339933;], [color= #cc66cc;]0[color= #009900;])

      Console[color= #339933;].WriteLine[color= #009900;]([color= #0000ff;]"The original date is " [color= #339933;]& dat[color= #009900;])

 

      dat [color= #339933;]= dat[color= #339933;].AddMonths[color= #009900;]([color= #cc66cc;]5[color= #009900;])

      Console[color= #339933;].WriteLine[color= #009900;]([color= #0000ff;]"The new date is " [color= #339933;]& dat[color= #009900;])

 

      dat [color= #339933;]= dat [color= #339933;]+ ts

      Console[color= #339933;].WriteLine[color= #009900;]([color= #0000ff;]"The new date is " [color= #339933;]& dat[color= #009900;])

   [color= #990000;]End Sub

[color= #990000;]End [color= #000000; font-weight: bold;]Class

1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handl
   es Button1.Click
2. Dim time1 As String = "01:50:15:10"
3. Dim time2 As String = "00:10:10:20"
4. Dim TRInt(4) As Integer
5.  
6. TRInt = AddTimes(time1, time2)
7. MessageBox.Show(String.Format("{0:00}:{1:00}:{2:00}:{3:00}", TRInt(0), TRInt(1), TRInt(
   2), TRInt(3)))
8. End Sub
9.  
10. Private Function AddTimes(ByVal time1 As String, ByVal time2 As String) As Integer()
11. Dim T1Array As String()
12. Dim T2Array As String()
13. Dim T1Int(4) As Integer
14. Dim T2Int(4) As Integer
15. Dim TRInt(4) As Integer
16. Dim value As Integer
17.  
18. T1Array = time1.Split(":")
19. T2Array = time2.Split(":")
20.  
21. If (T1Array.Length <> 4 Or T2Array.Length <> 4) Then
22. AddTimes = TRInt
23. Exit Function
24. End If
25.  
26. For n = 0 To 3
27. T1Int(n) = CInt(T1Array(n))
28. T2Int(n) = CInt(T2Array(n))
29. TRInt(n) = 0
30. Next
31.  
32. value = T1Int(3) + T2Int(3)
33. TRInt(3) = value Mod 25
34. TRInt(2) = value / 25
35.  
36. value = TRInt(2) + (T1Int(2) + T2Int(2))
37. TRInt(2) = value Mod 60
38. TRInt(1) = value / 60
39.  
40. value = TRInt(1) + (T1Int(1) + T2Int(1))
41. TRInt(1) = value Mod 60
42. TRInt(0) = value / 60
43.  
44. value = TRInt(0) + (T1Int(0) + T2Int(0))
45. TRInt(0) = value
46.  
47. AddTimes = TRInt
48. End Function
49.  
    
    

1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
2. Dim time1 As String = "01:50:15:10"
3. Dim time2 As String = "00:10:10:20"
4. Dim TRInt(4) As Integer
5.  
6. TRInt = AddTimes(time1, time2)
7. MessageBox.Show(String.Format("{0:00}:{1:00}:{2:00}:{3:00}", TRInt(0), TRInt(1), TRInt(2), TRInt(3)))
8. End Sub
9.  

1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handl
   es Button1.Click
2. Dim TRInt(4) As Integer
3.  
4. TRInt = AddTimes(TextBox1.Text, TextBox2.Text)
5. TextBox3.Text = String.Format("{0:00}:{1:00}:{2:00}:{3:00}", TRInt(0), TRInt(1), TRInt(
   2), TRInt(3))
6. End Sub
7.  
   
   

1. Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles
   TextBox1.LostFocus
2. CalcTimes()
3. End Sub
4.  
5. Private Sub TextBox2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles
   TextBox1.LostFocus
6. CalcTimes()
7. End Sub
8.  
9. Private Sub CalcTimes()
10. Dim TRInt(4) As Integer
11.  
12. TRInt = AddTimes(TextBox1.Text, TextBox2.Text)
13. TextBox3.Text = String.Format("{0:00}:{1:00}:{2:00}:{3:00}", TRInt(0), TRInt(1), TRInt(
    2), TRInt(3))
14. End Sub
15.