Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Solved
How to calculate total hours and minutes between two time? (Urgent)
Posted on 2002-03-28
In my form, it has two text box that i set its format to ##:## using MaskEdit.
These two textboxes are for user to key in time.
From 01:00 To 11:15
When user click the calculate button, program will calculate the time. This is use to calculate total working hours.
The result.. should be 10:15, right? how to do this? any VB function can calculate this directly?
I used DateDiff function to calculate and return in minutes but the result not accurate. If not mistaken, it return 1 hours for this.
I have to save the calculation result in 10.15 (numberic field) so that i can use it to calculate total salary. 10.15 means 10 hours + 10 minutes.
I know the design is not good.. any good suggestion?
I have to save the total hours in numberic data type because in other forms, i used SQL to calculate total salary. if save in string, the result will not accurate.
Please tell me how to solve this problem, thanks.
These two textboxes are for user to key in time.
From 01:00 To 11:15
When user click the calculate button, program will calculate the time. This is use to calculate total working hours.
The result.. should be 10:15, right? how to do this? any VB function can calculate this directly?
I used DateDiff function to calculate and return in minutes but the result not accurate. If not mistaken, it return 1 hours for this.
I have to save the calculation result in 10.15 (numberic field) so that i can use it to calculate total salary. 10.15 means 10 hours + 10 minutes.
I know the design is not good.. any good suggestion?
I have to save the total hours in numberic data type because in other forms, i used SQL to calculate total salary. if save in string, the result will not accurate.
Please tell me how to solve this problem, thanks.
4-
2
- +1
8 Comments
Hi yongyih,
you can use datediff
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
HTH:O)Bruintje
you can use datediff
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
HTH:O)Bruintje
Active 1 day ago
Hi yongyih,
Try this:
Private Sub Command3_Click()
Text1 = "13:00"
Text2 = "23:15"
Dim starttime As Date
Dim stoptime As Date
starttime = Date + CDate(Text1)
stoptime = Date + CDate(Text2)
MsgBox Format(stoptime - starttime, "hh:mm")
End Sub
Try this:
Private Sub Command3_Click()
Text1 = "13:00"
Text2 = "23:15"
Dim starttime As Date
Dim stoptime As Date
starttime = Date + CDate(Text1)
stoptime = Date + CDate(Text2)
MsgBox Format(stoptime - starttime, "hh:mm")
End Sub
you used it already, i'm getting lazy
you have to format the result
Sub test()
Dim TimeOne As String
Dim TimeTwo As String
TimeOne = TimeValue(Now)
TimeTwo = TimeValue(NOw-.5)
MsgBox Format$(TimeValue(dteOut) - TimeValue(dteIn), "h:mm:ss")
end sub
HTH:O)Bruintje
you have to format the result
Sub test()
Dim TimeOne As String
Dim TimeTwo As String
TimeOne = TimeValue(Now)
TimeTwo = TimeValue(NOw-.5)
MsgBox Format$(TimeValue(dteOut) - TimeValue(dteIn), "h:mm:ss")
end sub
HTH:O)Bruintje
oops....
Sub test()
Dim TimeOne As String
Dim TimeTwo As String
TimeOne = TimeValue(Now)
TimeTwo = TimeValue(Now - 0.5)
MsgBox Format$(TimeValue(TimeOne)
End Sub
Sub test()
Dim TimeOne As String
Dim TimeTwo As String
TimeOne = TimeValue(Now)
TimeTwo = TimeValue(Now - 0.5)
MsgBox Format$(TimeValue(TimeOne)
End Sub
Try this:
Public Function TimeDiff(ByVal Interval As String, ByVal Time1 As String, ByVal Time2 As String)
Dim HourTime1, HourTime2, MinuteTime1, MinuteTime2, SecondTime1, SecondTime2, TimeDifference
Dim Time1InSeconds, Time2InSeconds
Time1 = FormatDateTime(Time1, vbLongTime)
Time2 = FormatDateTime(Time2, vbLongTime)
HourTime1 = Hour(Time1)
HourTime2 = Hour(Time2)
MinuteTime1 = Minute(Time1)
MinuteTime2 = Minute(Time2)
SecondTime1 = Second(Time1)
SecondTime2 = Second(Time2)
Time1InSeconds = SecondTime1 + (MinuteTime1 * 60) + (HourTime1 * 3600)
Time2InSeconds = SecondTime2 + (MinuteTime2 * 60) + (HourTime2 * 3600)
TimeDifference = Time2InSeconds - Time1InSeconds
Select Case Interval
Case "h"
TimeDifference = TimeDifference / 3600
Case "m"
TimeDifference = TimeDifference / 60
End Select
TimeDiff = TimeDifference
End Function
Call it this way,
TIME = TimeDiff("h", timStart, timNow)
Use "h" "m" "s" for hours minutes and seconds.
Good luck!
RichW
Public Function TimeDiff(ByVal Interval As String, ByVal Time1 As String, ByVal Time2 As String)
Dim HourTime1, HourTime2, MinuteTime1, MinuteTime2, SecondTime1, SecondTime2, TimeDifference
Dim Time1InSeconds, Time2InSeconds
Time1 = FormatDateTime(Time1, vbLongTime)
Time2 = FormatDateTime(Time2, vbLongTime)
HourTime1 = Hour(Time1)
HourTime2 = Hour(Time2)
MinuteTime1 = Minute(Time1)
MinuteTime2 = Minute(Time2)
SecondTime1 = Second(Time1)
SecondTime2 = Second(Time2)
Time1InSeconds = SecondTime1 + (MinuteTime1 * 60) + (HourTime1 * 3600)
Time2InSeconds = SecondTime2 + (MinuteTime2 * 60) + (HourTime2 * 3600)
TimeDifference = Time2InSeconds - Time1InSeconds
Select Case Interval
Case "h"
TimeDifference = TimeDifference / 3600
Case "m"
TimeDifference = TimeDifference / 60
End Select
TimeDiff = TimeDifference
End Function
Call it this way,
TIME = TimeDiff("h", timStart, timNow)
Use "h" "m" "s" for hours minutes and seconds.
Good luck!
RichW
Featured Post
The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
Introduction
While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library. This article will introduce you to the SC library a…
You can of course define an array to hold data that is of a particular type like an array of Strings to hold customer names or an array of Doubles to hold customer sales, but what do you do if you want to coordinate that data? This article describes…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code.
This l…
- Microsoft Office
- Office 365
- Microsoft Access
- VBA
- Microsoft Excel
- Visual Basic Classic
Suggested Courses
Course of the Month9 days, 1 hour left to enroll
595 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.