Compare filename date to todays date
Posted on 2015-02-22
I am trying to make a personal reminder program.
Compare file names to todays date
I have files that are saved with the files date as the name
the file names are loaded into a listbox
Private Sub lstTasks_Click()
Dim myDate As Date
myDate = Len(lstTasks.Text) - 4 'minus extension
If myDate = Date Then ' a new task to handle
Call MsgBox("You have a scheduled task to consider", vbInformation, "Needs attention")
'call load the rtf file here to richtextbox
this code produces
Debug.Print myDate = 1/9/1900
how can this be fixed ?