ME Ўљ)_ŒŽ–^рЇу@Date String to Date Variable(2000)!*{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil Tahoma;}} \viewkind4\uc1\pard\f0\fs16 \par } )LHConvert date and time text string to Date/Time Variable and Decimal time))0,bDateError: error in the date or time entry))1-dCurrent DateTime: current date/time variable)NJdSubtracted DateTime: running value of date/time variable for target date))decSubtracted DateTime)HDdecTarget: array of decimal value of month, day, year of target date)B>decTargetRem: remainder in division to determine if leap year))73nTarget: array of integer values of month day year)RNnDiff: array of differences in month, day, year, for current and target dates)0,nCurrent: array of current month, day, year)1-nCurrentToD: array of current hour, min, sec)1-nToD: array of hour, min, sec of target time)).*tTarget Date: input string of target date)1-tTarget: array of month, day, year of target)HDtTarget Mod: array of month, day, year of target with leading zeros)NJtSubtracted DateTime: running value of date/time variable for target date)@<tShort Sub DateTime: date/time string reduced to date only)40tTarget ToD: input string of target time of day);7tToD: array of hour, minute, sec of target time of day)<8tLeap: string indication the target year is a leap year)))3/Extract Target month, day, year and pad with 0s„r%tTarget Date%@Enter Date as mm/dd/yyyy Leading Zeros not Required eg 1/1/2002CenterCenter0„б %tTarget ToD% Enter Time of Day Required on Target Date as hh/mm/ss 24hr clock Leading Zeros not Required eg 14/3/0 or 14/03/00 are 2.03PM Enter nothing for Mid-Day 12pmCenterCenter0‘ %tTarget ToD%„ %tTarget ToD%12/00/00Ž))A=Input here %tTarget Date% and %tTarget ToD% by whatever means„%tTarget Date%1/2/2012„ %tTarget ToD%14/55/00)%tTarget Date%/ %tTarget%1 113%N[1]%‡+%tTarget[%N[1]%]%%nTarget[%N[1]%]%ˆ+%nTarget[%N[1]%]%%tTarget[%N[1]%]%‡ %tTarget[%N[1]%]%2‡"%tTarget[%N[1]%]% 0 - %tTarget%13/ %tTarget Mod%) Sub Input Quality Sub Input Quality Out))2.Obtain Jan 1st 2000 12:00:00am and Target YearVБРес@000000CenterCenter0 %d112000%… %nCurrent[3]%2000… %nCurrent[1]%1… %nCurrent[2]%1…%nCurrentToD[1]%…%nCurrentToD[2]%…%nCurrentToD[3]%ˆ' %nDiff[3]%2000 %nTarget[3]%8%dSubtracted DateTime% %d112000% %nDiff[3]%))>:Work through Target Year until Date String = Target String 11366%N[1]%H%dSubtracted DateTime% mm'/'dd'/'yyyy%tShort Sub DateTime%‘,%tShort Sub DateTime% %tTarget Mod%Ž<%dSubtracted DateTime%%dSubtracted DateTime%1 6%dSubtracted DateTime%%decSubtracted DateTime%>/Date Conversion Resultт{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} \viewkind4\uc1\pard\lang4105\f0\fs16 \par \pard\qc Original Date: \par %tTarget Date% \par \par Final Date Time String is: \par Date/Time Variable: %dSubtracted DateTime% \par Decimal Time Variable: %decSubtracted DateTime% \par \par Note the above are the variables based on the Time of Day the macro runs \par \pard \par \par \par \par \lang1033\f1 \par } CenterCenter477213006%decSubtracted DateTime%%dSubtracted DateTime%>Н>Validation of Results Decimal Time back to Date/Time VariableH{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} \viewkind4\uc1\pard\lang4105\f0\fs16 \par Original Date as Month/Day/Year: %tTarget Date% \par \par Reconverted Decimal Time as Date/Time Variable: %dSubtracted DateTime% \par \par \par \par \lang1033\f1 \par } CenterCenter52914700))+'Convert to Required Time of Day on Date% %tTarget ToD%/%tToD%1 113%N[1]%‡%%tToD[%N[1]%]%%nToD[%N[1]%]% - %tTarget%13/ %tTarget Mod%‘ %nToD[1]%23Ф‘ %nToD[2]%59Ф‘ %nToD[3]%59C:\WINDOWS\Media\chord.wav>‹Warning!L{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} {\colortbl ;\red255\green0\blue0;\red0\green0\blue0;} \viewkind4\uc1\pard\lang4105\f0\fs16 \par \pard\qc\cf1 Time entered is not in correct format hh/mm/ss \par or is invalid \par \cf2 Macro will Terminate\lang1033\f1 \par } CenterCenter28614300ŽD%dSubtracted DateTime%%dSubtracted DateTime% %nToD[1]%D%dSubtracted DateTime%%dSubtracted DateTime% %nToD[2]%D%dSubtracted DateTime%%dSubtracted DateTime% %nToD[3]%6%dSubtracted DateTime%%decSubtracted DateTime%‡ %tTarget ToD%/:)>њDate Conversion Result­{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} \viewkind4\uc1\pard\lang4105\f0\fs16 \par \pard\qc Original Date and Time: \par %tTarget Date% %tTarget ToD%hrs (24hr clock) \par \par Final Date Time String is: \par Date/Time Variable: %dSubtracted DateTime% \par Decimal Time Variable: %decSubtracted DateTime% \par \pard \par \par \par \lang1033\f1 \par } CenterCenter47717900)6%decSubtracted DateTime%%dSubtracted DateTime%>ђ>Validation of Results Decimal Time back to Date/Time Variable}{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} \viewkind4\uc1\pard\qc\lang4105\f0\fs16 \par Original Date as Month/Day/Year Hour/Min/Sec: %tTarget Date% %tTarget ToD%hrs (24hr clock) \par \par Reconverted Decimal Time as Date/Time Variable: %dSubtracted DateTime% \par \par \pard \par \par \lang1033\f1 \par } CenterCenter52914700)3/Date/Time Variable is in %dSubtracted DateTime%)/+Decimal Time is in %decSubtracted DateTime%  End of Macro))…_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ Sub Input Quality)?;Input quality check - remove if data is known to be correct)leap year calc„%tLeap% NotLeapYear %bDateError%ˆ# %nTarget[3]%%decTarget[3]%‰*%decTarget[3]%%decTarget[3]%4‰(%decTarget[3]%%decTargetRem[3]%‘"%decTargetRem[3]%0.00001„%tLeap%LeapYearŽˆ# %nTarget[3]%%decTarget[3]%‰,%decTarget[3]%%decTarget[3]%100‰(%decTarget[3]%%decTargetRem[3]%‘"%decTargetRem[3]%0.00001„%tLeap% NotLeapYearŽˆ# %nTarget[3]%%decTarget[3]%‰,%decTarget[3]%%decTarget[3]%400‰(%decTarget[3]%%decTargetRem[3]%‘"%decTargetRem[3]%0.00001„%tLeap%LeapYearŽ‘%tLeap%LeapYearУ‘ %nTarget[1]%2У‘ %nTarget[2]%29Ф‘%tLeap%LeapYearУ‘ %nTarget[1]%2У‘ %nTarget[2]%28 %bDateError%Ž)end of leap year calc‘ %nTarget[1]%4Ф‘ %nTarget[1]%6Ф‘ %nTarget[1]%9Ф‘ %nTarget[1]%11У‘ %nTarget[2]%30 %bDateError%Ž‘ %nTarget[1]%12Ф‘ %nTarget[2]%31Ф‘ %nTarget[3]%1900 %bDateError%Ž‘ %bDateError%TrueC:\WINDOWS\Media\chord.wav>Warning!N{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} {\colortbl ;\red255\green0\blue0;\red0\green0\blue0;} \viewkind4\uc1\pard\lang4105\f0\fs16 \par \pard\qc\cf1 Date entered is not in correct format mm/dd/yyyy \par or is invalid \par \cf2 Macro will Terminate\lang1033\f1 \par } CenterCenter28614300Ž)End of Sub Input)…_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ Sub Input Quality Out)  End of MacroџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџTcNcDcCctTarget DateetTargettnTargettTarget ModdCurrent DateTimenDiffDiffnCurrentdSubtracted DateTimetSubtracted DateTimetShort Sub DateTimeteTimedecSubtracted DateTimenCurrentToDtTarget ToDtToDnToD]decTargettLeapdecTargetRembDateErrord112000C:\Program Files\Common F ##RepeatB8045484DECB27A23AEB528B&+##End RepeatFA52F98CF70A7F167F27+&Sub Input Quality Outџ`//ЯvЌПGАЯvщ?A##RepeatмGАЯv№Ѓ1ˆ=C##End RepeatpEHАЯvБ… C=##RepeatKM##End RepeatЉи MK]‘SWSub Input Quality3-ggџџџџoquw{}џџPWvˆŠray of differences in month,”–r, for current and target dates›,nCurrent: array of currenžЂEnd of Macro)1-nCurrenЇЇmanual input of Datemanual input of Time of Daydefault time of day@input target date here as mm/dd/yyyy leading zeros not requiredIinput target time here as hh/mm/ss leading zeros not required 24hr clockmonth, day, yearinteger month, day, year%start conversion to add leading zeros!pad left with zeros to width of 2check quality of inputsinput quality checkedyear difference1st Jan in Target Year/%dSubtracted DateTime% to %tShort Sub DateTime%$exit with correct Date/Time Variable1 day incrementresult with current ToDReconversion Checkmonth, day, yearinteger hour, minute, secdisplay purposes only>FINAL RESULT in %dSubtracted DateTime% - display purposes onlydisplay purposes only*Reconversion Check - display purposes onlydivisble by 4 is leap yeardivisble by 100 not leap yeardivisble by 400 is leap yearfebruaryfebruaryapriljune septembernovember short month long monthsnormal end of macro)Date String to Date Variable (currentday)!*{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil Tahoma;}} \viewkind4\uc1\pard\f0\fs16 \par } uGЦ)lhBasic version with no check on input data validity and no output display Remove unnecessary input lines))A=Input here %tTarget Date% and %tTarget ToD% by whatever means) Manual Input„r%tTarget Date%@Enter Date as mm/dd/yyyy Leading Zeros not Required eg 1/1/2002CenterCenter0„б %tTarget ToD% Enter Time of Day Required on Target Date as hh/mm/ss 24hr clock Leading Zeros not Required eg 14/3/0 or 14/03/00 are 2.03PM Enter nothing for Mid-Day 12pmCenterCenter0‘ %tTarget ToD%„ %tTarget ToD%12/00/00Ž))?;Input by Clipboard or Variable - change to suit application„%tTarget Date%1/2/2012„ %tTarget ToD%14/55/00))3/Extract Target month, day, year and pad with 0s)%tTarget Date%/ %tTarget%1 113%N[1]%‡+%tTarget[%N[1]%]%%nTarget[%N[1]%]%ˆ+%nTarget[%N[1]%]%%tTarget[%N[1]%]%‡ %tTarget[%N[1]%]%2‡"%tTarget[%N[1]%]% 0 - %tTarget%13/ %tTarget Mod%))HDObtain Jan 1st in current year and Target Year as Date/Time Variable`Аm г†.Їу@000000CenterCenter0%dCurrent DateTime%… %nCurrent[3]%… %nCurrent[1]%… %nCurrent[2]%…%nCurrentToD[1]%…%nCurrentToD[2]%…%nCurrentToD[3]%E%dSubtracted DateTime%%dCurrent DateTime% %nCurrent[2]%<%dSubtracted DateTime%%dSubtracted DateTime%1H%dSubtracted DateTime%%dSubtracted DateTime% %nCurrent[1]%<%dSubtracted DateTime%%dSubtracted DateTime%1ˆ0 %nDiff[3]% %nCurrent[3]% %nTarget[3]%E%dSubtracted DateTime%%dSubtracted DateTime% %nDiff[3]%))>:Work through Target Year until Date String = Target String 11366%N[1]%H%dSubtracted DateTime% mm'/'dd'/'yyyy%tShort Sub DateTime%‘,%tShort Sub DateTime% %tTarget Mod%Ž<%dSubtracted DateTime%%dSubtracted DateTime%1 8%dFromNowDateTime%%dSubtracted DateTime%0.%dFromNowDateTime%%decFromNowDateTime%>ЪDate Conversion Result}{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} \viewkind4\uc1\pard\lang4105\f0\fs16 \par \pard\qc Original Date: \par %tTarget Date% \par \par Time Strings based on exact time the macro runs: \par Date/Time Variable: %dFromNowDateTime% \par Decimal Time Variable: %decFromNowDateTime% \par \pard\lang1033\f1 \par } CenterCenter47718500)ЉЅUse values of %dFromNowDateTime% and %decFromNowDateTime% here if Time of Day is desired to be the time the macro runs. Delete rest of macro below if not required.))0,Convert to Target Time of Day on Target Date% %tTarget ToD%/%tToD%1 113%N[1]%‡%%tToD[%N[1]%]%%nToD[%N[1]%]% - %tTarget%13/ %tTarget Mod%ˆ0 %hourdiff% %nToD[1]%%nCurrentToD[1]%ˆ/ %mindiff% %nToD[2]%%nCurrentToD[2]%ˆ/ %secdiff% %nToD[3]%%nCurrentToD[3]%E%dSubtracted DateTime%%dSubtracted DateTime% %hourdiff%D%dSubtracted DateTime%%dSubtracted DateTime% %mindiff%D%dSubtracted DateTime%%dSubtracted DateTime% %secdiff%6%dSubtracted DateTime%%decSubtracted DateTime%>њDate Conversion Result­{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} \viewkind4\uc1\pard\lang4105\f0\fs16 \par \pard\qc Original Date and Time: \par %tTarget Date% %tTarget ToD%hrs (24hr clock) \par \par Final Date Time String is: \par Date/Time Variable: %dSubtracted DateTime% \par Decimal Time Variable: %decSubtracted DateTime% \par \pard \par \par \par \lang1033\f1 \par } CenterCenter47717900)3/Date/Time Variable is in %dSubtracted DateTime%)/+Decimal Time is in %decSubtracted DateTime%Target Date% \par \par Time Strings based on exact time the macro runs: \par Date/Time Variable: %dFromNowDateTime% \par Decimal Time Variable: %decFromNowDateTime% \par \pard\lang1033\f1 \par } CenterCenter47718500.%decFromNowDateTime%%dFromNowDateTime%>В>Validation of Results Decimal Time back to Date/Time Variable={\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} \viewkind4\uc1\pard\lang4105\f0\fs16 \par Original Date as Month/Day/Year: %tTarget Date% \par \par Reconverted Decimal Time as Date/Time Variable: %dFromNowDateTime% \par \par \par \lang1033\f1 \par } CenterCenter52914700)ЊІUse values of %dFromNowDateTime% and %%decFromNowDateTime% here if Time of Day is desired to be the time the macro runs. Delete rest of macro below if not required.))0,Convert to Target Time of Day on Target Date% %tTarget ToD%/%tToD%1 113%N[1]%‡%%tToD[%N[1]%]%%nToD[%N[1]%]% - %tTarget%13/ %tTarget Mod%‘ %nToD[1]%23Ф‘ %nToD[2]%59Ф‘ %nToD[3]%59C:\WINDOWS\Media\chord.wav>‹Warning!L{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} {\colortbl ;\red255\green0\blue0;\red0\green0\blue0;} \viewkind4\uc1\pard\lang4105\f0\fs16 \par \pard\qc\cf1 Time entered is not in correct format hh/mm/ss \par or is invalid \par \cf2 Macro will Terminate\lang1033\f1 \par } CenterCenter28614300Žˆ0 %hourdiff% %nToD[1]%%nCurrentToD[1]%ˆ/ %mindiff% %nToD[2]%%nCurrentToD[2]%ˆ/ %secdiff% %nToD[3]%%nCurrentToD[3]%E%dSubtracted DateTime%%dSubtracted DateTime% %hourdiff%D%dSubtracted DateTime%%dSubtracted DateTime% %mindiff%D%dSubtracted DateTime%%dSubtracted DateTime% %secdiff%6%dSubtracted DateTime%%decSubtracted DateTime%‡ %tTarget ToD%/:)>њDate Conversion Result­{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} \viewkind4\uc1\pard\lang4105\f0\fs16 \par \pard\qc Original Date and Time: \par %tTarget Date% %tTarget ToD%hrs (24hr clock) \par \par Final Date Time String is: \par Date/Time Variable: %dSubtracted DateTime% \par Decimal Time Variable: %decSubtracted DateTime% \par \pard \par \par \par \lang1033\f1 \par } CenterCenter47717900)6%decSubtracted DateTime%%dSubtracted DateTime%>ђ>Validation of Results Decimal Time back to Date/Time Variable}{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} \viewkind4\uc1\pard\qc\lang4105\f0\fs16 \par Original Date as Month/Day/Year Hour/Min/Sec: %tTarget Date% %tTarget ToD%hrs (24hr clock) \par \par Reconverted Decimal Time as Date/Time Variable: %dSubtracted DateTime% \par \par \pard \par \par \lang1033\f1 \par } CenterCenter52914700)3/Date/Time Variable is in %dSubtracted DateTime%)/+Decimal Time is in %decSubtracted DateTime%  End of Macro))…_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ Sub Input Quality)?;Input quality check - remove if data is known to be correct)leap year calc„%tLeap% NotLeapYear %bDateError%ˆ# %nTarget[3]%%decTarget[3]%‰*%decTarget[3]%%decTarget[3]%4‰(%decTarget[3]%%decTargetRem[3]%‘"%decTargetRem[3]%0.00001„%tLeap%LeapYearŽˆ# %nTarget[3]%%decTarget[3]%‰,%decTarget[3]%%decTarget[3]%100‰(%decTarget[3]%%decTargetRem[3]%‘"%decTargetRem[3]%0.00001„%tLeap% NotLeapYearŽˆ# %nTarget[3]%%decTarget[3]%‰,%decTarget[3]%%decTarget[3]%400‰(%decTarget[3]%%decTargetRem[3]%‘"%decTargetRem[3]%0.00001„%tLeap%LeapYearŽ‘%tLeap%LeapYearУ‘ %nTarget[1]%2У‘ %nTarget[2]%29Ф‘%tLeap%LeapYearУ‘ %nTarget[1]%2У‘ %nTarget[2]%28 %bDateError%Ž)end of leap year calc‘ %nTarget[1]%4Ф‘ %nTarget[1]%6Ф‘ %nTarget[1]%9Ф‘ %nTarget[1]%11У‘ %nTarget[2]%30 %bDateError%Ž‘ %nTarget[1]%12Ф‘ %nTarget[2]%31Ф‘ %nTarget[3]%1900 %bDateError%Ž‘ %bDateError%TrueC:\WINDOWS\Media\chord.wav>Warning!N{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} {\colortbl ;\red255\green0\blue0;\red0\green0\blue0;} \viewkind4\uc1\pard\lang4105\f0\fs16 \par \pard\qc\cf1 Date entered is not in correct format mm/dd/yyyy \par or is invalid \par \cf2 Macro will Terminate\lang1033\f1 \par } CenterCenter28614300Ž)End of Sub Input)…_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ Sub Input Quality Out)  End of MacroџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџTcNcDcCctTarget DateetTargettnTargettTarget ModdCurrent DateTimenDiffDiffnCurrentdSubtracted DateTimetSubtracted DateTimetShort Sub DateTimeteTimedecSubtracted DateTimenCurrentToDtTarget ToDtToDnToD]hourdiffmindiffsecdiffdecTargettLeapdecTargetRembDateErrordFromNowDateTimedecFromNowDateTimeC:\Program Files\Common F#%##Repeat1033{\\fonttbl{\\f0\\fni+0##End Repeat{\\f1\\fnil Tahoma;}0+Sub Input Quality Out)144ent DateTime: current date/time HJ##RepeatJdSubtracted DateTFL##End Repeatf date/time variableLF##RepeatVX##End RepeatЉи XV]‘^bSub Input Qualityђ-uuџџџџ}ƒ…‰‹–˜s)HDdecTarget: ЂЄdecimal value of month, day, yeaЉЋet date)B>decTargetЌАEnd of Macrovision to determine ЕЕmanual input of Datemanual input of Time of Daydefault time of day@input target date here as mm/dd/yyyy leading zeros not requiredIinput target time here as hh/mm/ss leading zeros not required 24hr clockmonth, day, yearinteger month, day, year%start conversion to add leading zeros!pad left with zeros to width of 2check quality of inputsinput quality checkedyear difference1st Jan in Target Year$exit with correct Date/Time Variable1 day incrementresult with current ToDReconversion Checkmonth, day, yearinteger hour, minute, secdisplay purposes only>FINAL RESULT in %dSubtracted DateTime% - display purposes onlydisplay purposes only*Reconversion Check - display purposes onlydivisble by 4 is leap yeardivisble by 100 not leap yeardivisble by 400 is leap yearfebruaryfebruaryapriljune septembernovember short month long monthsnormal end of macro/Date String to Date Variable (short currentday)!*{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil Tahoma;}} \viewkind4\uc1\pard\f0\fs16 \par } џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџmanual input of Datemanual input of Time of Daydefault time of day@input target date here as mm/dd/yyyy leading zeros not requiredIinput target time here as hh/mm/ss leading zeros not required 24hr clockmonth, day, yearinteger month, day, year%start conversion to add leading zeros!pad left with zeros to width of 2year difference1st Jan in Target Year$exit with correct Date/Time Variable1 day incrementresult with current ToDmonth, day, yearinteger hour, minute, sectest>FINAL RESULT in %dSubtracted DateTime% - display purposes only00CenterCenter0%dCurrent DateTime%… %nCurrent[3]%… %nCurrent[1]%… %nCurrent[2]%…%nCurrentToD[1]%…%nCurrentToD[2]%…%nCurrentToD[3]%E%dSubtracted DateTime%%dCurrent DateTime% %nCurrent[2]%<%dSubtracted DateTime%%dSubtracted DateTime%1H%dSubtracted DateTime%%dSubtracted DateTime% %nCurrent[1]%<%dSubtracted DateTime%%dSubtracted DateTime%1ˆ0 %nDiff[3]% %nCurrent[3]% %nTarget[3]%E%dSubtracted DateTime%%dSubtracted DateTime% %nDiff[3]%))>:Work through Target Year until Date String = Target String 11366%N[1]%H%dSubtracted DateTime% mm'/'dd'/'yyyy%tShort Sub DateTime%‘,%tShort Sub DateTime% %tTarget Mod%Ž<%dSubtracted DateTime%%dSubtracted DateTime%1 8%dFromNowDateTime%%dSubtracted DateTime%0.%dFromNowDateTime%%decFromNowDateTime%)ЉЅUse values of %dFromNowDateTime% and %decFromNowDateTime% here if Time of Day is desired to be the time the macro runs. Delete rest of macro below if not required.))0,Convert to Target Time of Day on Target Date% %tTarget ToD%/%tToD%1 113%N[1]%‡%%tToD[%N[1]%]%%nToD[%N[1]%]% - %tTarget%13/ %tTarget Mod%ˆ0 %hourdiff% %nToD[1]%%nCurrentToD[1]%ˆ/ %mindiff% %nToD[2]%%nCurrentToD[2]%ˆ/ %secdiff% %nToD[3]%%nCurrentToD[3]%E%dSubtracted DateTime%%dSubtracted DateTime% %hourdiff%D%dSubtracted DateTime%%dSubtracted DateTime% %mindiff%D%dSubtracted DateTime%%dSubtracted DateTime% %secdiff%6%dSubtracted DateTime%%decSubtracted DateTime%>њDate Conversion Result­{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} \viewkind4\uc1\pard\lang4105\f0\fs16 \par \pard\qc Original Date and Time: \par %tTarget Date% %tTarget ToD%hrs (24hr clock) \par \par Final Date Time String is: \par Date/Time Variable: %dSubtracted DateTime% \par Decimal Time Variable: %decSubtracted DateTime% \par \pard \par \par \par \lang1033\f1 \par } CenterCenter47717900)3/Date/Time Variable is in %dSubtracted DateTime%)/+Decimal Time is in %decSubtracted DateTime%џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџTcNcDcCctTarget DateetTargettnTargettTarget ModdCurrent DateTimenDiffDiffnCurrentdSubtracted DateTimetSubtracted DateTimetShort Sub DateTimeteTimedecSubtracted DateTimenCurrentToDtTarget ToDtToDnToD]hourdiffmindiffsecdiffdecTargettLeapdecTargetRembDateErrordFromNowDateTimedecFromNowDateTimeC:\Program Files\Common F##RepeatB8045484DECB27A23AEB528B##End RepeatFA52F98CF70A7F167F27re %tTarget Date% and %tTarget T*,##Repeateans) Manu(.##End Repeat%tTarget Date%@.(##Repeatm/dd/yyyy Leading Zeros68##End Repeat86manual input of Datemanual input of Time of Daydefault time of day@input target date here as mm/dd/yyyy leading zeros not requiredIinput target time here as hh/mm/ss leading zeros not required 24hr clockmonth, day, yearinteger month, day, year%start conversion to add leading zeros!pad left with zeros to width of 2year difference1st Jan in Target Year$exit with correct Date/Time Variable1 day incrementmonth, day, yearinteger hour, minute, sectest>FINAL RESULT in %dSubtracted DateTime% - display purposes only$Date String to Date Variable (short)ones)!*{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil Tahoma;}} \viewkind4\uc1\pard\f0\fs16 \par } )lhBasic version with no check on input data validity and no output display Remove unnecessary input lines))A=Input here %tTarget Date% and %tTarget ToD% by whatever means) Manual Input„r%tTarget Date%@Enter Date as mm/dd/yyyy Leading Zeros not Required eg 1/1/2002CenterCenter0„б %tTarget ToD% Enter Time of Day Required on Target Date as hh/mm/ss 24hr clock Leading Zeros not Required eg 14/3/0 or 14/03/00 are 2.03PM Enter nothing for Mid-Day 12pmCenterCenter0‘ %tTarget ToD%„ %tTarget ToD%12/00/00Ž))?;Input by Clipboard or Variable - change to suit application„%tTarget Date%1/2/2012„ %tTarget ToD%14/55/00))3/Extract Target month, day, year and pad with 0s)%tTarget Date%/ %tTarget%1 113%N[1]%‡+%tTarget[%N[1]%]%%nTarget[%N[1]%]%ˆ+%nTarget[%N[1]%]%%tTarget[%N[1]%]%‡ %tTarget[%N[1]%]%2‡"%tTarget[%N[1]%]% 0 - %tTarget%13/ %tTarget Mod%))2.Obtain Jan 1st 2000 12:00:00am and Target YearVБхZРес@000000CenterCenter0 %d112000%… %nCurrent[3]%2000… %nCurrent[1]%1… %nCurrent[2]%1…%nCurrentToD[1]%…%nCurrentToD[2]%…%nCurrentToD[3]%ˆ' %nDiff[3]%2000 %nTarget[3]%8%dSubtracted DateTime% %d112000% %nDiff[3]%))>:Work through Target Year until Date String = Target String 11366%N[1]%H%dSubtracted DateTime% mm'/'dd'/'yyyy%tShort Sub DateTime%‘,%tShort Sub DateTime% %tTarget Mod%Ž<%dSubtracted DateTime%%dSubtracted DateTime%1 6%dSubtracted DateTime%%decSubtracted DateTime%))+'Convert to Required Time of Day on Date% %tTarget ToD%/%tToD%1 113%N[1]%‡%%tToD[%N[1]%]%%nToD[%N[1]%]% D%dSubtracted DateTime%%dSubtracted DateTime% %nToD[1]%D%dSubtracted DateTime%%dSubtracted DateTime% %nToD[2]%D%dSubtracted DateTime%%dSubtracted DateTime% %nToD[3]%6%dSubtracted DateTime%%decSubtracted DateTime%>њDate Conversion Result­{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} \viewkind4\uc1\pard\lang4105\f0\fs16 \par \pard\qc Original Date and Time: \par %tTarget Date% %tTarget ToD%hrs (24hr clock) \par \par Final Date Time String is: \par Date/Time Variable: %dSubtracted DateTime% \par Decimal Time Variable: %decSubtracted DateTime% \par \pard \par \par \par \lang1033\f1 \par } CenterCenter47717900)3/Date/Time Variable is in %dSubtracted DateTime%)/+Decimal Time is in %decSubtracted DateTime%џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџTcNcDcCctTarget DateetTargettnTargettTarget ModdCurrent DateTimenDiffDiffnCurrentdSubtracted DateTimetSubtracted DateTimetShort Sub DateTimeteTimedecSubtracted DateTimenCurrentToDtTarget ToDtToDnToD]hourdiffmindiffsecdiffdecTargettLeapdecTargetRembDateErrort112000d112000C:\Program Files\Common F##RepeatB8045484DECB27A23AEB528B##End RepeatFA52F98CF70A7F167F27re %tTarget Date% and %tTarget T&(##Repeateans) Manu$*##End Repeat%tTarget Date%@*$##Repeatm/dd/yyyy Leading Zeros/1##End Repeat1/manual input of Datemanual input of Time of Daydefault time of day@input target date here as mm/dd/yyyy leading zeros not requiredIinput target time here as hh/mm/ss leading zeros not required 24hr clockmonth, day, yearinteger month, day, year%start conversion to add leading zeros!pad left with zeros to width of 2year difference1st Jan in Target Year$exit with correct Date/Time Variable1 day incrementmonth, day, yearinteger hour, minute, sec>FINAL RESULT in %dSubtracted DateTime% - display purposes onlyuGЦuGЦuGЦ)lhBasic version with no check on input data validity and no output display Remove unnecessary input lines))A=Input here %tTarget Date% and %tTarget ToD% by whatever means) Manual Input„r%tTarget Date%@Enter Date as mm/dd/yyyy Leading Zeros not Required eg 1/1/2002CenterCenter0„б %tTarget ToD% Enter Time of Day Required on Target Date as hh/mm/ss 24hr clock Leading Zeros not Required eg 14/3/0 or 14/03/00 are 2.03PM Enter nothing for Mid-Day 12pmCenterCenter0‘ %tTarget ToD%„ %tTarget ToD%12/00/00Ž))?;Input by Clipboard or Variable - change to suit application„%tTarget Date%1/2/2012„ %tTarget ToD%14/55/00))3/Extract Target month, day, year and pad with 0s)%tTarget Date%/ %tTarget%1 113%N[1]%‡+%tTarget[%N[1]%]%%nTarget[%N[1]%]%ˆ+%nTarget[%N[1]%]%%tTarget[%N[1]%]%‡ %tTarget[%N[1]%]%2‡"%tTarget[%N[1]%]% 0 - %tTarget%13/ %tTarget Mod%))84Obtain Jan 1st in current year as Date/Time Variable`Аm г†.Їу@000000CenterCenter0%dCurrent DateTime%… %nCurrent[3]%… %nCurrent[1]%… %nCurrent[2]%…%nCurrentToD[1]%…%nCurrentToD[2]%…%nCurrentToD[3]%E%dSubtracted DateTime%%dCurrent DateTime% %nCurrent[2]%<%dSubtracted DateTime%%dSubtracted DateTime%1H%dSubtracted DateTime%%dSubtracted DateTime% %nCurrent[1]%<%dSubtracted DateTime%%dSubtracted DateTime%1ˆ0 %nDiff[3]% %nCurrent[3]% %nTarget[3]%E%dSubtracted DateTime%%dSubtracted DateTime% %nDiff[3]%))>:Work through Target Year until Date String = Target String 11366%N[1]%H%dSubtracted DateTime% mm'/'dd'/'yyyy%tShort Sub DateTime%‘,%tShort Sub DateTime% %tTarget Mod%Ž<%dSubtracted DateTime%%dSubtracted DateTime%1 8%dFromNowDateTime%%dSubtracted DateTime%0.%dFromNowDateTime%%decFromNowDateTime%>ЪDate Conversion Result}{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} \viewkind4\uc1\pard\lang4105\f0\fs16 \par \pard\qc Original Date: \par %tTarget Date% \par \par Time Strings based on exact time the macro runs: \par Date/Time Variable: %dFromNowDateTime% \par Decimal Time Variable: %decFromNowDateTime% \par \pard\lang1033\f1 \par } CenterCenter47718500)ЉЅUse values of %dFromNowDateTime% and %decFromNowDateTime% here if Time of Day is desired to be the time the macro runs. Delete rest of macro below if not required.))0,Convert to Target Time of Day on Target Date% %tTarget ToD%/%tToD%1 113%N[1]%‡%%tToD[%N[1]%]%%nToD[%N[1]%]% - %tTarget%13/ %tTarget Mod%ˆ0 %hourdiff% %nToD[1]%%nCurrentToD[1]%ˆ/ %mindiff% %nToD[2]%%nCurrentToD[2]%ˆ/ %secdiff% %nToD[3]%%nCurrentToD[3]%E%dSubtracted DateTime%%dSubtracted DateTime% %hourdiff%D%dSubtracted DateTime%%dSubtracted DateTime% %mindiff%D%dSubtracted DateTime%%dSubtracted DateTime% %secdiff%6%dSubtracted DateTime%%decSubtracted DateTime%>њDate Conversion Result­{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} \viewkind4\uc1\pard\lang4105\f0\fs16 \par \pard\qc Original Date and Time: \par %tTarget Date% %tTarget ToD%hrs (24hr clock) \par \par Final Date Time String is: \par Date/Time Variable: %dSubtracted DateTime% \par Decimal Time Variable: %decSubtracted DateTime% \par \pard \par \par \par \lang1033\f1 \par } CenterCenter47717900)3/Date/Time Variable is in %dSubtracted DateTime%)/+Decimal Time is in %decSubtracted DateTime%)LHConvert date and time text string to Date/Time Variable and Decimal time))0,bDateError: error in the date or time entry))1-dCurrent DateTime: current date/time variable)NJdSubtracted DateTime: running value of date/time variable for target date)\XdFromNowDateTime: value of date/time variable for target date at time of day macro runs))PLdecSubtracted DateTime: decimal value of date/time variable for target date)fbdecFromNowDateTime: decimal value of date/time variable for target date at time of day macro runs)HDdecTarget: array of decimal value of month, day, year of target date)B>decTargetRem: remainder in division to determine if leap year))73nTarget: array of integer values of month day year)RNnDiff: array of differences in month, day, year, for current and target dates)0,nCurrent: array of current month, day, year)1-nCurrentToD: array of current hour, min, sec)1-nToD: array of hour, min, sec of target time)?;hourdiff: hours difference between current and target hour)A=mindiff: minutes difference between current and target minute)C?secdiff: seconds difference between current and target seconds)).*tTarget Date: input string of target date)1-tTarget: array of month, day, year of target)HDtTarget Mod: array of month, day, year of target with leading zeros)NJtSubtracted DateTime: running value of date/time variable for target date)@<tShort Sub DateTime: date/time string reduced to date only)40tTarget ToD: input string of target time of day);7tToD: array of hour, minute, sec of target time of day)<8tLeap: string indication the target year is a leap year)))3/Extract Target month, day, year and pad with 0s„r%tTarget Date%@Enter Date as mm/dd/yyyy Leading Zeros not Required eg 1/1/2002CenterCenter0„б %tTarget ToD% Enter Time of Day Required on Target Date as hh/mm/ss 24hr clock Leading Zeros not Required eg 14/3/0 or 14/03/00 are 2.03PM Enter nothing for Mid-Day 12pmCenterCenter0‘ %tTarget ToD%„ %tTarget ToD%12/00/00Ž))A=Input here %tTarget Date% and %tTarget ToD% by whatever means„%tTarget Date%1/2/2012„ %tTarget ToD%14/55/00)%tTarget Date%/ %tTarget%1 113%N[1]%‡+%tTarget[%N[1]%]%%nTarget[%N[1]%]%ˆ+%nTarget[%N[1]%]%%tTarget[%N[1]%]%‡ %tTarget[%N[1]%]%2‡"%tTarget[%N[1]%]% 0 - %tTarget%13/ %tTarget Mod%) Sub Input Quality Sub Input Quality Out))IEObtain Jan 1st in current year and Target Year as Date/Time Variable `Аm г†.Їу@000000CenterCenter0%dCurrent DateTime%… %nCurrent[3]%… %nCurrent[1]%… %nCurrent[2]%…%nCurrentToD[1]%…%nCurrentToD[2]%…%nCurrentToD[3]%E%dSubtracted DateTime%%dCurrent DateTime% %nCurrent[2]%<%dSubtracted DateTime%%dSubtracted DateTime%1H%dSubtracted DateTime%%dSubtracted DateTime% %nCurrent[1]%<%dSubtracted DateTime%%dSubtracted DateTime%1ˆ0 %nDiff[3]% %nCurrent[3]% %nTarget[3]%E%dSubtracted DateTime%%dSubtracted DateTime% %nDiff[3]%))>:Work through Target Year until Date String = Target String 11366%N[1]%H%dSubtracted DateTime% mm'/'dd'/'yyyy%tShort Sub DateTime%‘,%tShort Sub DateTime% %tTarget Mod%Ž<%dSubtracted DateTime%%dSubtracted DateTime%1 8%dFromNowDateTime%%dSubtracted DateTime%0.%dFromNowDateTime%%decFromNowDateTime%>ЪDate Conversion Result}{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} \viewkind4\uc1\pard\lang4105\f0\fs16 \par \pard\qc Original Date: \par %tTarget Date% \par \par Time Strings based on exact time the macro runs: \par Date/Time Variable: %dFromNowDateTime% \par Decimal Time Variable: %decFromNowDateTime% \par \pard\lang1033\f1 \par } CenterCenter47718500.%decFromNowDateTime%%dFromNowDateTime%>В>Validation of Results Decimal Time back to Date/Time Variable={\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} \viewkind4\uc1\pard\lang4105\f0\fs16 \par Original Date as Month/Day/Year: %tTarget Date% \par \par Reconverted Decimal Time as Date/Time Variable: %dFromNowDateTime% \par \par \par \lang1033\f1 \par } CenterCenter52914700)ЊІUse values of %dFromNowDateTime% and %%decFromNowDateTime% here if Time of Day is desired to be the time the macro runs. Delete rest of macro below if not required.))0,Convert to Target Time of Day on Target Date% %tTarget ToD%/%tToD%1 113%N[1]%‡%%tToD[%N[1]%]%%nToD[%N[1]%]% - %tTarget%13/ %tTarget Mod%‘ %nToD[1]%23Ф‘ %nToD[2]%59Ф‘ %nToD[3]%59C:\WINDOWS\Media\chord.wav>‹Warning!L{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} {\colortbl ;\red255\green0\blue0;\red0\green0\blue0;} \viewkind4\uc1\pard\lang4105\f0\fs16 \par \pard\qc\cf1 Time entered is not in correct format hh/mm/ss \par or is invalid \par \cf2 Macro will Terminate\lang1033\f1 \par } CenterCenter28614300Žˆ0 %hourdiff% %nToD[1]%%nCurrentToD[1]%ˆ/ %mindiff% %nToD[2]%%nCurrentToD[2]%ˆ/ %secdiff% %nToD[3]%%nCurrentToD[3]%E%dSubtracted DateTime%%dSubtracted DateTime% %hourdiff%D%dSubtracted DateTime%%dSubtracted DateTime% %mindiff%D%dSubtracted DateTime%%dSubtracted DateTime% %secdiff%6%dSubtracted DateTime%%decSubtracted DateTime%‡ %tTarget ToD%/:)>њDate Conversion Result­{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} \viewkind4\uc1\pard\lang4105\f0\fs16 \par \pard\qc Original Date and Time: \par %tTarget Date% %tTarget ToD%hrs (24hr clock) \par \par Final Date Time String is: \par Date/Time Variable: %dSubtracted DateTime% \par Decimal Time Variable: %decSubtracted DateTime% \par \pard \par \par \par \lang1033\f1 \par } CenterCenter47717900)6%decSubtracted DateTime%%dSubtracted DateTime%>ђ>Validation of Results Decimal Time back to Date/Time Variable}{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} \viewkind4\uc1\pard\qc\lang4105\f0\fs16 \par Original Date as Month/Day/Year Hour/Min/Sec: %tTarget Date% %tTarget ToD%hrs (24hr clock) \par \par Reconverted Decimal Time as Date/Time Variable: %dSubtracted DateTime% \par \par \pard \par \par \lang1033\f1 \par } CenterCenter52914700)3/Date/Time Variable is in %dSubtracted DateTime%)/+Decimal Time is in %decSubtracted DateTime%  End of Macro))…_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ Sub Input Quality)?;Input quality check - remove if data is known to be correct)leap year calc„%tLeap% NotLeapYear %bDateError%ˆ# %nTarget[3]%%decTarget[3]%‰*%decTarget[3]%%decTarget[3]%4‰(%decTarget[3]%%decTargetRem[3]%‘"%decTargetRem[3]%0.00001„%tLeap%LeapYearŽˆ# %nTarget[3]%%decTarget[3]%‰,%decTarget[3]%%decTarget[3]%100‰(%decTarget[3]%%decTargetRem[3]%‘"%decTargetRem[3]%0.00001„%tLeap% NotLeapYearŽˆ# %nTarget[3]%%decTarget[3]%‰,%decTarget[3]%%decTarget[3]%400‰(%decTarget[3]%%decTargetRem[3]%‘"%decTargetRem[3]%0.00001„%tLeap%LeapYearŽ‘%tLeap%LeapYearУ‘ %nTarget[1]%2У‘ %nTarget[2]%29Ф‘%tLeap%LeapYearУ‘ %nTarget[1]%2У‘ %nTarget[2]%28 %bDateError%Ž)end of leap year calc‘ %nTarget[1]%4Ф‘ %nTarget[1]%6Ф‘ %nTarget[1]%9Ф‘ %nTarget[1]%11У‘ %nTarget[2]%30 %bDateError%Ž‘ %nTarget[1]%12Ф‘ %nTarget[2]%31Ф‘ %nTarget[3]%1900 %bDateError%Ž‘ %bDateError%TrueC:\WINDOWS\Media\chord.wav>Warning!N{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} {\colortbl ;\red255\green0\blue0;\red0\green0\blue0;} \viewkind4\uc1\pard\lang4105\f0\fs16 \par \pard\qc\cf1 Date entered is not in correct format mm/dd/yyyy \par or is invalid \par \cf2 Macro will Terminate\lang1033\f1 \par } CenterCenter28614300Ž)End of Sub Input)…_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ Sub Input Quality Out)  End of Macro+pк њЇу@H<+pк њЇу@n„ +pк њЇу@В&ђ +pк њЇу@Є(+pк њЇу@ёA*+pк њЇу@20+pк њЇу@ Т3+pк њЇу@Э6­Оѕ њЇу@Hч<­Оѕ њЇу@n/>CFьЇу@> "і њЇу@Сi"і њЇу@o^k"і њЇу@(Эq"і њЇу@ ѕu"і њЇу@#yњЏ њЇу@H#/  њЇу@nk€/  њЇу@dй€ /  њЇу@J‘˜В—^рЇу@[ч’/  њЇу@(B•/  њЇу@Hj™˜В—^рЇу@Вš|ў+ њЇу@HК|ў+ њЇу@nŸ Б[, њЇу@F pŸ Б[, њЇу@ЖЌБ[, њЇу@SЎБ[, њЇу@(TАБ[, њЇу@H|ДБ[, њЇу@мФЕqCCьЇу@ ИъuwЅыЇу@ЄИъ[—ыЇу@ЈИ rюuЅыЇу@GЌИ/  њЇу@#=ƒъ `† "і њЇу@5+ѓЪ /  њЇу@WЁ>ЩјP