ME v=üدūä@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 1130‡! %tTarget[0]% %nTarget[0]%ˆ! %nTarget[0]% %tTarget[0]%‡ %tTarget[0]%2‡ %tTarget[0]% 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 113660H%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 1130‡ %tToD[0]% %nToD[0]% - %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\lang1033\f1 \par } Center49647719200)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]decTargettLeapdecTargetRembDateErrord1120000"C:\USERS\TERRY\MACROS\FUL ##RepeatB8045484DECB27A23AEB528B&+##End RepeatFA52F98CF70A7F167F27+&Sub Input Quality Out)1//ent DateTime: current date/time ?A##RepeatJdSubtracted DateT=C##End Repeatf date/time variableC=##RepeatKM##End RepeatMKßSWSub Input Qualitygg˙˙˙˙oquw{}`}–ˆŠ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ę|Û¯ūä@H<ę|Û¯ūä@n„ ‹=ܯūä@k&ō ‹=ܯūä@](‹=ܯūä@ņú)‹=ܯūä@ļë/‹=ܯūä@ Ą3‹=ܯūä@Ŧ6