<div>
If you have a routine that runs at least once each day, then you can do this:<br />
<br />
Dim vTestDate as variant<br />
vTestDate = CDate(&quot;1/10/2003)&quot;<br />
<br />
If DateDiff(&quot;d&quot;, Date(), vTestDate) Mod 14 = 0 Then<br />
<br />
&nbsp; &nbsp;Set qy9ActiveConnection = conn1<br />
&nbsp; &nbsp;qy9.CommandType = adCmdStoredProc<br />
&nbsp; &nbsp;qy9.CommandText = &quot;sp&quot;<br />
&nbsp; &nbsp;qy9.Execute<br />
<br />
End if <br />
<br />
What this will do is tell you if the current date is (2 Weeks * n) away from the critical date.
</div>


If you have a routine that runs at least once each day, then you can do this:

Dim vTestDate as variant
vTestDate = CDate("1/10/2003)"

If DateDiff("d", Date(), vTestDate) Mod 14 = 0 Then

   Set qy9ActiveConnection = conn1
   qy9.CommandType = adCmdStoredProc
   qy9.CommandText = "sp"
   qy9.Execute

End if

What this will do is tell you if the current date is (2 Weeks * n) away from the critical date.

<div>
Thanks to all responders. &nbsp;I knew it had to be something simply but when you're stressed you can't think clearly.<br />
<br />
I think this should work fine.<br />
<br />
Thanks,<br />
<br />

</div>


Thanks to all responders.  I knew it had to be something simply but when you're stressed you can't think clearly.

I think this should work fine.

Thanks,



<div>
<div class="content wysiwyg-content">
I need to call a SQL SP with this following idea:<br />
<br />
Start January 10th<br />
Run once every 2 weeks until January 10th<br />
<br />
I don't know how to code VB for this. &nbsp;I know how to code the following:<br />
<br />
&nbsp;Do While frmmain.Caption = &quot;Employee Time Tracking Tool&quot;<br />
&nbsp; &nbsp; DoEvents<br />
&nbsp; &nbsp;If Hour(Now) = 6 And Minute(Now) = 35 Then<br />
<br />
&nbsp; &nbsp; Set qy9ActiveConnection = conn1<br />
&nbsp; &nbsp; qy9.CommandType = adCmdStoredProc<br />
&nbsp; &nbsp; qy9.CommandText = &quot;sp&quot;<br />
&nbsp; &nbsp; qy9.Execute<br />

</div>
</div>


I need to call a SQL SP with this following idea:

Start January 10th
Run once every 2 weeks until January 10th

I don't know how to code VB for this.  I know how to code the following:

 Do While frmmain.Caption = "Employee Time Tracking Tool"
    DoEvents
   If Hour(Now) = 6 And Minute(Now) = 35 Then

    Set qy9ActiveConnection = conn1
    qy9.CommandType = adCmdStoredProc
    qy9.CommandText = "sp"
    qy9.Execute


Calculation Question

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.