Private Sub ca_Click()

b = Shell("C:\WINDOWS\system32\calc.exe")

End Sub

Private Sub Command1_Click()

If MsgBox("Baïn muoán thoaùt khoâng", vbYesNo + 32 + vbDefaultButton1, "Thoâng Baùo") = vbYes Then

End

End If

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

Timer1.Enabled = Not Timer1.Enabled

If Timer1.Enabled Then

Timer1.Enabled = True

Else

Timer1.Enabled = False

End If

End Sub

Private Sub cp_Click()

c = Shell("C:\WINDOWS\system32\dllcache\control.exe")

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

Dim a As String

Dim b, c, d As Integer

Dim E As Integer

Dim a1, a2, a3, b1, b2, b3, b4 As Long

a = Text1.Text

If Len(Text1.Text) = 19 Then

a1 = Val(Mid(a, 1, 2))

a2 = Val(Mid(a, 4, 5))

a3 = Val(Mid(a, 7, 4))

c = Val(Mid(a, 12, 13))

d = Val(Mid(a, 15, 16))

E = Val(Mid(a, 18, 19))

Text2.Text = "Soá Ngaøy, Giôø, Phuùt, Giaây ñeán thôøi ñieåm  " & Text1.Text & "  Laø"

'Day la code ham tinh ngay

b1 = a1 - Day(Date)

b2 = a2 - Month(Date)

b3 = a3 - Year(Date)

'b4 = b1 + (b2 * 30) + (b3 * 360)

If (a2 = 1) Or (a2 = 3) Or (a2 = 5) Or (a2 = 7) Or (a2 = 8) Or (a2 = 10) Or (a2 = 12) Then

      b4 = b1 + (b2 * 31) + (b3 * 360)

      End If

If (a2 = 4) Or (a2 = 6) Or (a2 = 9) Or (a2 = 11) Then

    b4 = b1 + (b2 * 30) + (b3 * 360)

    End If

If (a2 = 2) And (a3 Mod 4 = 0) Then

   b4 = b1 + (b2 * 29) + (b3 * 360)

   End If

If (a2 = 2) And (a3 Mod 4 <> 0) Then

   b4 = b1 + (b2 * 28) + (b3 * 360)

   End If

   'Day la code ham tinh gio - phut - giay

If E < Second(Time) And d < Minute(Time) And c < Hour(Time) Then

    Text6.Text = 60 - (Second(Time) - E)

        Text5.Text = 60 - (Minute(Time) - d) - 1

        Text4.Text = 24 - (Hour(Time) - c) - 1

         Text3.Text = b4 - 1

    End If

    If E < Second(Time) And d < Minute(Time) And c >= Hour(Time) Then

    Text6.Text = 60 - (Second(Time) - E)

        Text5.Text = 60 - (Minute(Time) - d) - 1

        Text4.Text = c - Hour(Time) - 1

        Text3.Text = b4

        End If

         If E < Second(Time) And d >= Minute(Time) And c < Hour(Time) Then

       Text6.Text = 60 - (Second(Time) - E)

        Text5.Text = d - Minute(Time) - 1

        Text4.Text = 24 - (Hour(Time) - c)

        Text3.Text = b4 - 1

        End If

        If E < Second(Time) And d >= Minute(Time) And c >= Hour(Time) Then

       Text6.Text = 60 - (Second(Time) - E)

        Text5.Text = d - Minute(Time) - 1

        Text4.Text = c - Hour(Time)

        Text3.Text = b4

        End If

      If E >= Second(Time) And d < Minute(Time) And c < Hour(Time) Then

    Text6.Text = E - Second(Time)

        Text5.Text = 60 - (Minute(Time) - d)

        Text4.Text = 24 - (Hour(Time) - c) - 1

        Text3.Text = b4 - 1

    End If

    If E >= Second(Time) And d < Minute(Time) And c >= Hour(Time) Then

     Text6.Text = E - Second(Time)

        Text5.Text = 60 - (Minute(Time) - d)

        Text4.Text = c - Hour(Time) - 1

        Text3.Text = b4

        End If

         If E >= Second(Time) And d >= Minute(Time) And c < Hour(Time) Then

        Text6.Text = E - Second(Time)

        Text5.Text = d - Minute(Time)

        Text4.Text = 24 - (Hour(Time) - c)

         Text3.Text = b4 - 1

        End If

        If E >= Second(Time) And d >= Minute(Time) And c >= Hour(Time) Then

        Text6.Text = E - Second(Time)

        Text5.Text = d - Minute(Time)

        Text4.Text = c - Hour(Time)

        Text3.Text = b4

        End If

End If

End Sub

Private Sub we_Click()

a = Shell("C:\WINDOWS\explorer.exe")

End Sub