VBA subtracting times using DTPicker

dido444

New Member
Joined
Mar 8, 2016
Messages
8
Hey all,

Another new guy question here. I'm trying to create a UserForm for people to enter information that includes a DTPicker that will be saved in a worksheet. What I'm trying to do is use the values of the DTPicker to get the total time between the two inputs, in total hours. I am trying to use the DateDiff function but it does not seem to be working for me. My code is very simple and I think there is an obvious answer in here, but I'm very new at VBA. Any help on how you guys subtract times would be greatly appreciated!
 

Excel Facts

Links? Where??
If Excel says you have links but you can't find them, go to Formulas, Name Manager. Look for old links to dead workbooks & delete.
I haven't got the DTP installed at work but could you post the code you are using, and what the issue is / which line of code the issues occurs?
 
Upvote 0
Try this on a new userform and see if it does what you are looking for in part or whole:

2 DTPickers with format: dtpShortDate named DTPicker1 and DTPicker2
2 DTPickers with format: dtpTime named DTPicker1T and DTPicker2T

then attach this code to a commandbutton:

Code:
Private Sub CommandButton1_Click()
Dim ddiff As Integer, hdiff As Double, mdiff As Double, tdiff As Double
    ddiff = (DTPicker2.Day - DTPicker1.Day) * 24
    hdiff = DTPicker2T.Hour - DTPicker1T.Hour
    mdiff = (DTPicker2T.Minute - DTPicker1T.Minute) / 60
    tdiff = ddiff + hdiff + mdiff
    
    MsgBox ddiff & vbNewLine & hdiff & vbNewLine & mdiff & vbNewLine & "=" & tdiff
End Sub

If it works in part, we can modify it from here. Let me know.

Regards,

CJ
 
Upvote 0
CJ, that worked great, I was honestly just so unfamiliar with the DTP that I was unaware of the Hour/Minute syntax. I had to do some basic arithmetic to get the results I wanted on the output, but it helped debug my program. Thanks again! I'm sure I'll have more questions in the future as I learn more about VBA. You guys rock.

Best,

Mike
 
Upvote 0
Yeah, after getting some much needed sleep last night and looking at this again with fresh eyes, I realized the math was a bit 'fuzzy' when certain times were inputted. I'm glad you got it figured out though.

Regards,

CJ
 
Upvote 0

Forum statistics

Threads
1,213,546
Messages
6,114,256
Members
448,557
Latest member
richa mishra

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top