In a module add the following - This is to get the time difference between 2 times -
Public Function GetTimeDiff(TimeStart, TimeEnd, txtResult As TextBox) Dim diff As Long diff = DateDiff("s", TimeStart, TimeEnd) TimeString diff, txtResult End Function Public Function TimeString(Seconds As Long, txtResult As TextBox, Optional Verbose As Boolean = False) As String 'if verbose = false, returns 'something like '02:22.08 'if true, returns '2 hours, 22 minutes, and 8 seconds Dim lHrs As Long Dim lMinutes As Long Dim lSeconds As Long lSeconds = Seconds lHrs = Int(lSeconds / 3600) lMinutes = (Int(lSeconds / 60)) - (lHrs * 60) lSeconds = Int(lSeconds Mod 60) Dim sAns As String If lSeconds = 60 Then lMinutes = lMinutes + 1 lSeconds = 0 End If If lMinutes = 60 Then lMinutes = 0 lHrs = lHrs + 1 End If sAns = Format(CStr(lHrs), "#####0") & ":" & _ Format(CStr(lMinutes), "00") & "." & _ Format(CStr(lSeconds), "00") If Verbose Then sAns = TimeStringtoEnglish(sAns) TimeString = sAns txtResult.Text = TimeString End Function Public Function TimeStringtoEnglish(sTimeString As String) As String Dim sAns As String Dim sHour, sMin As String, sSec As String Dim iTemp As Integer, sTemp As String Dim iPos As Integer iPos = InStr(sTimeString, ":") - 1 sHour = Left$(sTimeString, iPos) If CLng(sHour) <> 0 Then sAns = CLng(sHour) & " hour" If CLng(sHour) > 1 Then sAns = sAns & "s" sAns = sAns & ", " End If sMin = Mid$(sTimeString, iPos + 2, 2) iTemp = sMin If sMin = "00" Then sAns = IIf(Len(sAns), sAns & "0 minutes, and ", "") Else sTemp = IIf(iTemp = 1, " minute", " minutes") sTemp = IIf(Len(sAns), sTemp & ", and ", sTemp & " and ") sAns = sAns & Format$(iTemp, "##") & sTemp End If iTemp = Val(Right$(sTimeString, 2)) sSec = Format$(iTemp, "#0") sAns = sAns & sSec & " second" If iTemp <> 1 Then sAns = sAns & "s" TimeStringtoEnglish = sAns End Function
In a event the following -
Dim xTimeOut, xTimeIn xTimeOut = rsValuation!TimeCreated xTimeIn = Format(time, "hh:mm:ss") 'xTimeOut = Format(time, "hh:mm:ss") 'xTimeIn = rsValuation!TimeCreated GetTimeDiff xTimeOut, xTimeIn, txtTimeTaken 'Swop above commented depending on what time came first...
This what you were looking for?
no i'm loooking something like this
if user stored the time value in access liks 10.30 ....
i want to show the table value 10.30 and below that wanna show the time 10.15 in form
Edited 6 Years Ago by gangaloves7: n/a
Try the following -
'Once you get the value from the database into Text1, do the following Dim x As Integer x = DatePart("n", Text1.Text) Text1.Text = x - 15
All you need to do now is to create some code if the -15 is deducted from say 14:01 as a time format, and you will be on your way to the solution.
Write a C program that should create a 10 element array of random integers (0 to 9). The program should total all of the numbers in the odd positions of the array and compare them with the total of the numbers in the even positions of the array and indicate ...
Hi. so this is actually a continuation from another question of mineHere but i was advised to start a new thread as the original question was already answered.
This is the result of previous question answered :
code for the listbox - datagridview interaction
At the top of the code ...
I have a 2d matrix with dimension (3, n) called A, I want to calculate the normalization and cross product of two arrays (b,z) (see the code please) for each column (for the first column, then the second one and so on).
the function that I created to find the ...