Time VBA label and inbetween

[Lauren279]

hi

I need help, I have a label that displays the date and time "dd-mmm-yyhh:mm ampm"
once the user form shows I have 2 images that I want it to show based on theresult of what the time is currently.

for example if the label says 07-Jul-18 06:00 am and the label is within 20minutes of the current time then image1 will show but anything outside of thistime image2 will show.
So far I have
If label1.Caption > Format(Now – 0.01, "dd-mmm-yyhh:mm ampm") Then
Image2.Visible= False
Image1.Visible= True
Else
Image2.Visible= True
Image1.Visible= False
End If
But that doesn’t seem to be working and I think I am justgetting confused with images/greater than/less than and the whole time factoris just not working for me.

Please HELP me.

 

[mrhstn]

Hi

Sorry if this seems too obvious, but should there be a space in between the date and time?

dd-mmm-yyhh:mm ampm

dd-mmm-yy hh:mm ampm

So that this doesn't appear to Excel as a string of number characters.

 

[dmt32]

Hi,
untested but see if this update to your code does what you want

 Dim Date1 As Date, Date2 As Date
    Dim Diff As Long
    
    Date1 = CDate(Me.Label1.Caption)
    Date2 = Now - 0.01
    Diff = (Date1 - Date2) * 24 * 60
    
    Image1.Visible = CBool(Diff < 20)
    Image2.Visible = CBool(Diff > 20)

solution assumes that your label caption contains a valid date


Dave

 

[Lauren279]

worked perfectly, but I just had to change a few things
Image1.Visible = CBool(Diff < 0.002)
Image2.Visible = CBool(Diff > 0.002)

Date2 = Now - 0.007 (But that’s cause I decided on a shorter time frame)

Thank You!

 

[dmt32]

Hi,
glad solution helped - many thanks for feedback

Dave