Date time compare

Janos · December 9th, 2009, 01:00 AM

Hi All,

I’m a bit stuck I want to compare my last transaction date / time which display in a label ‘that I get from the data base’ to the system date / time and if there is a deference of 5 minutes then I get a massage.
I have played around and I do get a massage when the last transaction date is smaller but it doesn’t look for a 5 minute deference even if I use a timer.

Help will be much appreciated’
This is what I’ve got but it’s not doing what I expected

Code:

Private Sub Command1_Click()
Dim date1 As Date
Dim label1 As Date
    
date1 = Format(Now, "yyyy/mm/dd hh:mm:ss")
date2 = label1
If DateDiff("n", Now, date1) > DateDiff("n", Now, label1) Then
   MsgBox ("Not Vending")
 End If
End Sub

I try this no luck

Code:

Private Sub Command1_Click()

If DateDiff("n", Now, label1) > 5 Then
   MsgBox ("Not Vending")
 End If
End Sub

And this no luck

Code:

Private Sub Command1_Click()
Dim date1 As Date
date1 = label1
If DateDiff("n", Now, label1) < 5 Then
   MsgBox ("Not Vending")
 End If
End Sub

New to date time functions and cant seem to get it right

Shasur · December 9th, 2009, 07:32 AM

Can you check if the following works

Code:

Dim date1 As Date
Dim date2 As Date
Dim label1
    
date1 = Format(Now, "yyyy/mm/dd hh:mm:ss")
date2 = Format(label1, "yyyy/mm/dd hh:mm:ss")
If DateDiff("n", date1, date2) > 5 Then
   MsgBox ("Not Vending")
 End If
End Sub

Cheers
Shasur

Janos · December 9th, 2009, 09:01 AM

Thanks for the replay still not working, I was wondering my system date time displays in a label is it possible to compare the two labels with each other and if the label with the transaction date time in it is 5 mins smaller than the system date time then I get a massage,, do not now ?

Shasur · December 9th, 2009, 10:01 PM

Hi

You Can try the following

Code:

Dim date1 As Date
Dim date2 As Date
    
date1 = Format(label1.Caption, "yyyy/mm/dd hh:mm:ss")
date2 = Format(label2.Caption, "yyyy/mm/dd hh:mm:ss")
If DateDiff("n", date1, date2) > 5 Then
   MsgBox ("Not Vending")
 End If
End Sub

or

Code:

Dim date1 As Date
Dim date2 As Date
    
date1 = Format(label1.Caption, "yyyy/mm/dd hh:mm:ss")
date2 = Format(Now(), "yyyy/mm/dd hh:mm:ss")
If DateDiff("n", date1, date2) > 5 Then
   MsgBox ("Not Vending")
End If
End Sub

Cheers
Shasur

Janos · December 11th, 2009, 12:52 AM

Thanks for the afford Shasur your code snippets does work but it still doesnât look for a 5 minute deferens. I well get it sooner or later having a hard time grasping these date time functions.

Shasur · December 11th, 2009, 06:09 AM

I am afraid if the label text is converted as date?

You can check that by IsDate function

Cheers
Shasur