[Last Call] Learn how to a build a cloud-first strategyRegister Now

  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 158
  • Last Modified:

How rest one minute at time

I have a problem with rest one minute at my time for exaple:

dim date1 as date

private sub button_click
date1 = "6:00:00 a.m."

text1.Text = date1- CDate("00:01:00 a.m.")
end sub

and i want to obtain in my text box 5:59:00 p.m.
1 Solution
Mike TomlinsonMiddle School Assistant TeacherCommented:
Dim date1 As Date

Private Sub button_click()
    date1 = #6:00:00 AM#
    Text1.Text = DateAdd("n", -1, date1)
End Sub

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now