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-gqznj[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.