Thank you Tracey, I'll try it.
Joanne Barrett-Haramis Sr. Programmer /Analyst Data Management and User Provisioning Halifax Health - IT 386-254-4116 X 1115 E-Mail: [email protected] <mailto:[email protected]> Learn IT, Use IT, Love IT "A mistake is an event, the full benefit of which has not yet been turned to your advantage; the key is to recognize the opportunity to learn and to change." Edwin Land, Founder of Polaroid P please consider the environment before printing this email Electronic communications originating from or sent to Halifax Health are subject to monitoring and public inspection under § 119.07, Florida Statutes. This message and any attachments are the property of Halifax Health and are intended to be received only by the individuals or entities identified in the message. If you have received this message in error, please take notice: 1) that any use, copying, printing, forwarding or distribution of this message in any form is strictly prohibited, and 2) please notify the Halifax Health Compliance Department at (386) 254-4278 and/or forward the message to [email protected], and please delete or destroy all copies of the message and any attachments. ________________________________ From: [email protected] [mailto:[email protected]] Sent: Wednesday, February 24, 2010 8:40 AM To: [email protected] Subject: [talkbws] RE: Script Code Hope this helps Function FirstOfLastMonth() MyMonth = Format(Now, "MM") MyMonth2 = Format(DateAdd("m", -1, Now), "MM") Myday = "01" If MyMonth2 = 12 Then MyYear = Format(DateAdd("yyyy", -1, Now), "YY") Else MyYear = Format(Now, "YY") End If 'If MyMonth < 10 Then 'MyMonth = "0" & Trim(Str(MyMonth)) 'Else 'MyMonth = Trim(Str(MyMonth)) 'End If FirstOfLastMonth = MyMonth2 & " " & MyYear Function EndOfLastMonth2() MyMonth = Format(Now, "MM") MyMonth2 = Format(DateAdd("m", -1, Now), "MM") Myday = "01" If MyMonth2 = 12 Then MyYear = Format(DateAdd("yyyy", -1, Now), "YY") Else MyYear = Format(Now, "YY") End If datetemp = Format(Myday & "/" & MyMonth & "/" & MyYear, "DD/MM/YY") datetemp2 = DateAdd("d", -1, datetemp) EndOfLastMonth2 = Format(datetemp2, "DD") & Format(datetemp2, "MM") & Format(datetemp, "YY") Tracey Locke Applications Security Analyst FacilicorpNB Information Services/Service informatique Zone 1 The Moncton Hospital Tel/tel. :(506)857-5641 Email/Courielle: [email protected] <mailto:[email protected]> Please consider the environment before printing this email. /Pensez a l'environmenment, n'imprimer que si necessaire. ________________________________ From: [email protected] [mailto:[email protected]] Sent: February 24, 2010 9:36 AM To: [email protected] Cc: Barrett, Joanne Subject: [talkbws] Script Code Hi Everyone, I'm trying to write a script; all I need help with is that I want to run the report for the 1st to the last day of the previous month, how do I write that code, thanks. Joanne Barrett-Haramis Sr. Programmer /Analyst Data Management and User Provisioning Halifax Health - IT 386-254-4116 X 1115 E-Mail: [email protected] <mailto:[email protected]> Learn IT, Use IT, Love IT "A mistake is an event, the full benefit of which has not yet been turned to your advantage; the key is to recognize the opportunity to learn and to change." Edwin Land, Founder of Polaroid P please consider the environment before printing this email Electronic communications originating from or sent to Halifax Health are subject to monitoring and public inspection under § 119.07, Florida Statutes. This message and any attachments are the property of Halifax Health and are intended to be received only by the individuals or entities identified in the message. If you have received this message in error, please take notice: 1) that any use, copying, printing, forwarding or distribution of this message in any form is strictly prohibited, and 2) please notify the Halifax Health Compliance Department at (386) 254-4278 and/or forward the message to [email protected], and please delete or destroy all copies of the message and any attachments. --- 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 ------- Avis de confidentialité FacilicorpNB Disclaimer ------- This e-mail communication (including any or all attachments) is intended only for the use of the person or entity to which it is addressed and may contain confidential and/or privileged material. If you are not the intended recipient of this e-mail, any use, review, retransmission, distribution, dissemination, copying, printing, or other use of, or taking of any action in reliance upon this e-mail, is strictly prohibited. If you have received this e-mail in error, please contact the sender and delete the original and any copy of this e-mail and any printout thereof, immediately. Your co-operation is appreciated. Le présent courriel (y compris toute pièce jointe) s'adresse uniquement à son destinataire, qu'il soit une personne ou un organisme, et pourrait comporter des renseignements privilégiés ou confidentiels. Si vous n'êtes pas le destinataire du courriel, il est interdit d'utiliser, de revoir, de retransmettre, de distribuer, de disséminer, de copier ou d'imprimer ce courriel, d'agir en vous y fiant ou de vous en servir de toute autre façon. Si vous avez reçu le présent courriel par erreur, prière de communiquer avec l'expéditeur et d'éliminer l'original du courriel, ainsi que toute copie électronique ou imprimée de celui-ci, immédiatement. Nous sommes reconnaissants de votre collaboration. --- 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 --- 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
