Here is some code I have used for dates. 
 
    If Weekday(Now()) = 2 Then ' Monday
        ' Friday
        dtStart = Format(DateAdd("d", -3, Now()), "mmddyy")
        'Sunday
        dtEnd = Format(DateAdd("d", -1, Now()), "mmddyy")
    Else
        dtStart = Format(DateAdd("d", -1, Now()), "mmddyy")
        dtEnd = dtStart
    End If
 
 
    
 
 
    ' Report start date first of last month
    dtStart = Format(DateAdd("m", -1, Now()), "mm" & "01" & "yy")
    
    ' Report end date last day of last month
    dtEnd = DateAdd("m", 1, Format(DateAdd("m", -1, Now()), "mm/" & "01" & 
"/yy"))
    dtEnd = Format(DateAdd("d", -1, dtEnd), "mmddyy")
 
 
 
 
 
John Burdek
Programmer Analyst
Saint Clare's Health System
66 Ford Road
Denville, NJ 07834
Phone: (973) 983-1532
Pager: (973) 259-2721
Fax: (973) 983-1530
[email protected] <mailto:[email protected]> 
 


________________________________

        From: [email protected] [mailto:[email protected]] 
        Sent: Thursday, May 14, 2009 12:12 PM
        To: [email protected]
        Subject: [talkbws] RE: NPR Report date parameters ?
        
        

        Thanks for the info Paul….I appreciate your help!!

         

        Travis Hanson 

        618.288.5711 ext. 5862

        From: [email protected] [mailto:[email protected]] 
        Sent: Thursday, May 14, 2009 10:36 AM
        To: [email protected]
        Subject: [talkbws] RE: NPR Report date parameters ?

         

        Here is one way to accomplish what you are trying to do within BW.  
Although this is not clean as an experienced programmer would write it, it 
should work.

        Thanks!

        Paul

         

         

        Paul Brungardt

        Clinical Analyst

        HaysMedicalCenter

        PH: 785-623-2196

        PG: 785-650-5989

         

         

        
-----------------------------------------------------------------------------------------------------------------------------------------------------

        CURRENTDATE = Format(Date, "mmddyy")

        CURRENTMONTH = Left(CURRENTDATE, 2)

        CURRENTDAY = Mid(CURRENTDATE, 3, 2)

        CURRENTYEAR = Right(CURRENTDATE, 2)

         

         

        If CURRENTMONTH = "01" Then ENDMONTHDAY = "31"

        If CURRENTMONTH = "02" Then ENDMONTHDAY = "28"

        If CURRENTMONTH = "03" Then ENDMONTHDAY = "31"

        If CURRENTMONTH = "04" Then ENDMONTHDAY = "30"

        If CURRENTMONTH = "05" Then ENDMONTHDAY = "31"

        If CURRENTMONTH = "06" Then ENDMONTHDAY = "30"

        If CURRENTMONTH = "07" Then ENDMONTHDAY = "31"

        If CURRENTMONTH = "08" Then ENDMONTHDAY = "31"

        If CURRENTMONTH = "09" Then ENDMONTHDAY = "30"

        If CURRENTMONTH = "10" Then ENDMONTHDAY = "31"

        If CURRENTMONTH = "11" Then ENDMONTHDAY = "30"

        If CURRENTMONTH = "12" Then ENDMONTHDAY = "31"

         

         

        If CURRENTDAY < "16" Then

        REPORTSTARTDATE = CURRENTMONTH & "01" & CURRENTYEAR

        REPORTENDDATE = CURRENTMONTH & "15" & CURRENTYEAR

        End If

         

        If CURRENTDAY > "15" Then

        REPORTSTARTDATE = CURRENTMONTH & "16" & CURRENTYEAR

        REPORTSENDDATE = CURRENTMONTH & ENDMONTHDAY & CURRENTYEAR

        
-----------------------------------------------------------------------------------------------------------------------------------------------------

         

         

         

         

        
________________________________


        From: [email protected] [mailto:[email protected]] 
        Sent: Thursday, May 14, 2009 9:14 AM
        To: [email protected]
        Subject: [talkbws] NPR Report date parameters ?

         

        Good morning…

         

        I have a script that will run an NPR report that once completed will 
run on the 1st and 15th of every month. I need the script to be able to 
evaluate what day is it running and based from that,  input either the 1st day 
of the month (05/01/09) to the 15th day of the month (05/15/09) if it’s being 
run on the 15th OR input the 16th (05/16/09) and the last day of the month 
(05/31/09) which of course will change month to month depending on what month 
it is if it’s being run on the 1st of the month…

         

        I’m kind of at a loss on how to accomplish this…Anyone will to share 
their thoughts or ideas on it? 

         

        Thanks!

         

        Travis D. Hanson, Application Analyst

        Anderson Hospital

        6800 State Route 162

        Maryville, IL  62062

        618.288.5711 ext 5862

        [email protected] 

        --- 
        To post a message to this list, send mail to: [email protected] 
        
        You are currently subscribed as: [email protected] 
        
        Unsubscribe in the customer center on our website: 
http://www.bostonworkstation.com/customer_center/virtual_user_group_talk.aspx 

        Nh֦zh+-ݙZF&b.\&u#nzK{\޲R{.n+^r-gqz'y"m h +Z*'rr-gqznj[z+mjY




  
         
             
             
DISCLAIMER:  Saint Clare's Health System Confidentiality Notice: This e-mail 
and any accompanying documents may be confidential and/or legally privileged. 
If you are not the intended recipient, you are hereby notified that any 
disclosure, copying, distribution or the taking of any action in reliance on 
the contents of this information is strictly prohibited. If you have received 
this e-mail in error, please notify the sender immediately by reply e-mail and 
delete the message and any attachments.  Thank you.
              
   
     

Reply via email to