|
This is very similar to what Paul has
done, but I have a “leap year check” that is referenced by the
script for the month of February. Sub leapYearCheck() currYear = Format(Date, "YYYY") getDate = "2/28/" & currYear Feb = CDate(getDate) workingMonth =
Format(DateAdd("M", -2, Date), "MM") workingYear =
Format(DateAdd("M", -2, Date), "YY") strTodaysDate = Format(Feb,
"yymmdd") strTomorrowsDate = Format(Feb + 1,
"yymmdd") intTodaysDay = Mid(strTodaysDate, 5, 2) intTomorrowsDay = Mid(strTomorrowsDate, 5,
2) If intTodaysDay = "28" And
intTomorrowsDay = "01" Then lydate = "28" 'No leap year If intTodaysDay = "28" And
intTomorrowsDay = "29" Then lydate = "29" 'Leap year Exit Sub End Sub Sub KHDS() Select Case workingMonth Case Is = "01" fromDate = "0101" toDate = "0131" Case Is = "02" leapYearCheck fromDate = "0201" toDate = "02" & lydate Case Is = "03" fromDate = "0301" toDate = "0331" Case Is = "04" fromDate = "0401" toDate = "0430" Case Is = "05" fromDate = "0501" toDate = "0531" Case Is = "06" fromDate = "0601" toDate = "0630" Case Is = "07" fromDate = "0701" toDate = "0731" Case Is = "08" fromDate = "0801" toDate = "0831" Case Is = "09" fromDate = "0901" toDate = "0930" Case Is = "10" fromDate = "1001" toDate = "1031" Case Is = "11" fromDate = "1101" toDate = "1130" Case Is = "12" fromDate = "1201" toDate = "1231" End Select Key "KHDS" Wait 0.25 Key "{tab}{tab}" Wait 0.25 Key fromDate ' 1st thru last of 2 months
ago i.e. March = Jan1 - Jan31 Key workingYear Wait 0.25 Key "{tab}" Wait 0.25 Key toDate Key workingYear ‘continue doing stuff -------------------------------------------------------------------- Heather Castillo 785.623.5594 fax From: [email protected]
[mailto:[email protected]] Leap year = broken. Thank you, Mitch Lawrence Lead Applications Analyst Technical Support - NPR/Automation CHRISTUS Information Management
Send a "thank you" to
someone! From: 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: 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 618.288.5711 ext 5862 --- --- |
Important: This email and any attachments may contain confidential information subject to protection under the Federal Standards for Privacy of Individually Identifiable Health Information (45 C.F.R. Parts 160 and 164). If you or your organization is a “Covered Entity” under the above mentioned regulations, you are obligated to treat such information in a manner consistent with the regulations. If it appears that this email was sent to you in error, (1) you are prohibited from utilizing or disseminating this email or any attachments; (2) please immediately delete it from your computer and any servers or other locations where it might be stored, and email this sender or call the Hays Medical Center Privacy Officer at (785) 623-2188 advising that you have done so. We appreciate your cooperation.
--- 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
