difference in minutes using vba from text cells in a userform

[Stephen Cross]

My first post to the forum. Thanks in advance for any help

I have used excel for some time, but fairly new to VBA.

I am creating a userform to use as an audit tool at work (my first time doing a form). I want to calculate the time difference in minutes between a patient arriving at hospital and receiving a drug. The result would then be put into a field within the userform. I'm building the form at home with Excel 2007

I have put the dates and times into separate text boxes and after update set the dates to dd/mm/yyyy and times to hh:mm formats. I have kept the data and time separate to make it easier to fill dates in other parts of the form.

I can't calculate just off the times as the arrival date and drug given date may not be the same, but drug would always come after arrival.

Text boxes are called:
Arrival date = ArrivalDateTxt
Arrival time = ArrivalTimeTxt
Drug given date = tPAStartedDateTXT
Drug given time = tPAStartedTimeTXT
Result in minutes to go into = tPADTNMinutesTXT


Cheers
Steve
I have tried different things but non have worked, think due to my lack of understanding/experience with VBA

[Greg M]

Hi there,

See if the UserForm in the attached workbook gets you moving in the right direction.

The UserForm uses the following code:

Please Login or Register  to view this content.

Hope this helps - please let me know how you get on.

Regards,

Greg M

[dmcgov]

or you can try this:

[Stephen Cross]

Hi Greg

Many thanks for the reply, think I will need to spend a bit of time to work my head around the code.

One question at the moment though, in the initialize coding what does this code do:
.btnClose.Cancel = True
.btnClose.SetFocus

I can tell it is to do with the close button

Thanks again
Steve

[Stephen Cross]

Hi dmcgov

Many thanks for the file, I like the way the buttons put in today's date. That I will use as the audit will be done as patients are in our ED.

I am not understanding the parts in Button5 coding, where you use "If a <10" and "If b < 10". What does the a and b stand for?

Cheers
Steve

[Greg M]

Hi again,

Many thanks for your feedback.


The .btnClose.Cancel = True statement just means that the routine associated with clicking on the Close button will be executed if the ESC key is pressed - I find this provides a quick way of closing the UserForm.

The .btnClose.SetFocus statement means that the Close button will have the focus (i.e. be "selected") when the UserForm is displayed.


Feel free to shout if you need any further information.

Regards,

Greg M

[Stephen Cross]

Thanks for the clarification Greg.

That code makes perfect sense now

Steve