VB.NET Windows Service Not Runnign Code

I have built a windows service that I want to run on every monday and the 2nd and 16th of any given month.  The service installed correctly and when I start/restart the service it runs the code, but it doesn't run it on the Mondays, 2nd, or 16th.  I put my code in below.  Any ideas on why this isn't working.  This is my first windows service I have built.  I am using a global date variable to hold the the current date as the service runs.
EventLog.WriteEntry("Dup Remover Started")
        If Date.Today <> dDate Then
            If DatePart(DateInterval.Weekday, Now()) = vbMonday Or DatePart(DateInterval.Day, Now()) = 16 Or DatePart(DateInterval.Day, Now()) = 2 Then
                'run dup checker
                'Dim CL As New Dupcl.dupClean
                EventLog.WriteEntry("Service Started On " & Date.Today)
                dDate = Date.Today
                EventLog.WriteEntry("Service Completed")
            End If
        End If

Open in new window

Who is Participating?
loftywormConnect With a Mentor Commented:
Why make this a service?
If I have something I want to run regularly, I "Schedule Task"
If it has to be a service, then make a batch file to start and stop it, and schedule that.

Otherwise, I would start with updating your ASP.net to 3.5 +patches.
CodeCruiserConnect With a Mentor Commented:
Make this into a windows application and schedule that application in the task scheduler.
bengelhartAuthor Commented:
will give that a try.
Guy Hengel [angelIII / a3]Billing EngineerCommented:
the code you showed is fine, AFAIK.

however, did you set up some "timed-event" to the service code runs/checks the above regularly?
bengelhartAuthor Commented:
I just scheduled the task and it works fine that way.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.