How to test whether date is today

[lee123]

how do i change this code to do dates instead if time:

  CurrentTime = Format(Time, "hh:mm")
    If CurrentTime = txtBillTime.Text Then
        Beep
        frmAppointment.WindowState = 0 'Restore form
    End If

lee123

[VijaySofist]

Hi!

I think this is the one you looked for

Code: ( text )

1. CurrentDate = Format(Date, "dd-MM-yyyy")
2. If CurrentDate = Format(txtBillD ate.Text,"dd-MM-yyyy") Then
3. Beep
4. frmAppointment. WindowState = 0 'Restore form
5. End If


If the above is not the code you looked for means, Can you please explain clearly.


All the Best

With Regards
Vijay. R

[debasisdas]

If you want date why passing time ?

Instead of passing time ,you need to pass date.

[lee123]

Debasisdas,
i stumbled on to this code for a project im doing. and the way they did this it only had time. but i wanted something with dates. so when that date hit it would pop up the form (a reminder)

thanks vijaysofist i'll try this and see if it works.

lee123

[lee123]

hey vijaysofist,

i found this code in a book i have because it deals with something i've been trying to do but it only has the time i wanted it for the date. so i can set it and when the date hit it would pop up the message i typed in the form like a reminder the whole code to this is:

Private Sub cmdSetTime_Click()    
    frmAppointment.WindowState = 1  ('this is to set the form to close to the task bar)
    Timer1.Enabled = True  
End Sub

then in the timer i have this:

Private Sub Timer1_Timer()
    On Error Resume Next
   CurrentDate = Format(Date, "mm-dd-yy")
    If CurrentDate = Format(Txtbilldate, "mm-dd-yy") Then
        Beep
        frmAppointment.WindowState = 0 'Restore form
    End If
End Sub

I wanted this code to do dates so i can enter in a date so when the date came it would remind me of a task or appointment. but i tried your code and the form doesn't close to the taskbar it keeps popping back up when i try to set the date


lee123

[lee123]

i have posted a reply but it never shows up

[lee123]

hi there i have been posting posts but they don't show up anyway

to vijaysofist,

i have tried your code but it doesn't work the whole code i have in my form is this. in the button to (set the date):

Private Sub SetDate_Click()
    On Error Resume Next
    frmAppointment.WindowState = 1
    Timer1.Enabled = True  'Start timer
End Sub

and for the timer i have this now.

Private Sub Timer1_Timer()
    On Error Resume Next
   CurrentDate = Format(Date, "mm/dd/yy")
    If CurrentDate = Format(Txtbilldate, "MM/DD/YY") Then
        Beep
        Timer1.Enabled = False
        frmAppointment.WindowState = 0 'Restore form
    End If
End Sub
 

but the whole thing is suppose to be a (reminder form) that pops up when you set the date you want to be reminded of a task or appointment. but i can't get it to work right.

to debasisdas:

to answer your question i found this code in a book i have but it deals with the time only and it's similar to what i wanted to do but with dates i wanted to use this code for the project above. by the way what did you mean by this:

If you want date why passing time ?
 
Instead of passing time ,you need to pass date.

lee123

[VijaySofist]

hey vijaysofist,

i found this code in a book i have because it deals with something i've been trying to do but it only has the time i wanted it for the date. so i can set it and when the date hit it would pop up the message i typed in the form like a reminder the whole code to this is:

Private Sub cmdSetTime_Click()    
    frmAppointment.WindowState = 1  ('this is to set the form to close to the task bar)
    Timer1.Enabled = True  
End Sub

then in the timer i have this:

Private Sub Timer1_Timer()
    On Error Resume Next
   CurrentDate = Format(Date, "mm-dd-yy")
    If CurrentDate = Format(Txtbilldate, "mm-dd-yy") Then
        Beep
        frmAppointment.WindowState = 0 'Restore form
    End If
End Sub

I wanted this code to do dates so i can enter in a date so when the date came it would remind me of a task or appointment. but i tried your code and the form doesn't close to the taskbar it keeps popping back up when i try to set the date


lee123

Hi!

So you want your form to close to the taskbar! Right.

Please Look back your code. This is because in the cmdSetTime_Clic k() Event - you minimized the Form and then Enabled the Timer - where the timer maximizes the form again.

Use
---------------
frmAppointment. WindowState = 0 'in the cmdSetTime_Clic k() Event

and Use
--------------
frmAppointment. WindowState = 1 'in the Timer1_Timer() Event

Please get back to me, whether it works for you or not.


All the Best

With Regards
Vijay. R

[VijaySofist]

Hi!

Check whether if you are using a text box named Txtbilldate to get the date.

Check it and reply My Friend!


With Regards
Vijay. R

[9815402440]

hi
replace line
If CurrentDate = Format(Txtbilld ate, "MM/DD/YY") Then
with following line

If datediff("d",fo rmat(CurrentDat e,"mm/dd/yy") , Format(Txtbilld ate, "MM/DD/YY"))=0 Then

because using CurrentDate = Format(Txtbilld ate, "MM/DD/YY") you are comparing two strings not two dates.

regards
manpreet singh dhillon hoshiarpur