WPCmz 1 ؃Ij~ܺ؃IjskƭHjLgYګL„V *C>_У<q5EeQא'7&dT}|yP9 H;Hoǖ#`n(dBُmd /X̹LN4{_*7zp )Ts3 @>51wc&Auc+dktB#n| ]%Q880rz(fV$USUS.,TRW6&A4X3' Letter 6&A4\3'LetterTHP LaserJet 5L,,,,0X,iAZArial "Arial Regular'z Z(Times New Roman a8?K5:i+003|x Uttttt)!dxdx(mK Z6Times New Roman Regular95?H:\MasterMacros\Julian.wcmYY[ [5[* $CHECKVERSION11@Hx LIB)VHRTHxLIB)VBOLDONHxLIB)VBOLDOFFVDATE VYVYTODAYVMTODAYVDTODAYNDIFFVDATE1VY1VMONTH1VDAY1VM1VD1NJULIAN1NSS1VDATE2VY2VMONTH2VDAY2VM2VD2NJULIAN2NSS2YVMODEHB)VDATE HrVDATELcB)VDATE1!HrVDATELcB) VY1"HrVDATELcB)VMONTH1#HrVDATELcB)VDAY1$ rVY1VYTODAY&HrVMONTH1LQB )[*?' o0HrVMONTH1[0LIB) VM1(i)rVMONTH1 VM1*+HrVDAY1LQB )[*, o0HrVDAY1[0LIB) VD1-.rVDAY1 VD1/0 rVM1VMTODAY1 rVD1VDTODAY2rVDATE1JULIANNTODAY3rVDATE1VDATE24 rVY1 VY25 rVM1 VM26 rVD1 VD27[NDIFF8[NJULIAN1[NJULIAN29[NSS1[NSS2=HoJulianLQ[2LE[LExLE[PLE[LIoJulianLNB'@>HoJulianLQ[eLQ[LE[LE[LE[*LE[[LIB{'@?HoJulianLQ[eLQ[ILE[ LE[ZLE[ LE[ LIrVBOLDONo First DateLQB'@@HoJulianLQxLQ[LE[ LE[LE[ LE[ LI o LQB'@AHoJulianLQ[oLQ[LE[LE[<LE[ LE[ LIrVBOLDONoYearLQB'@BHoJulianLQ[pLQ[PLE[LE[<LE[ LE[ LIrVBOLDONoMonthLQB'@CHoJulianLQ[qLQ[LE[LE[LE[ LE[ LIrVBOLDON oDayLQB'@DH oJulianLQ[LQ[LE[LE[2LE[ LEx@LI vVY1LRxAL @xL @[L @B x'@EH oJulianLQ[LQ[KLE[LE[(LE[sLE[LI vVM1LRB w'@FHoJulianLQ[LQ o01LQI o02LQI o03LQI o04LQI o05LQI o06LQI o07L QI o08L QI o09L QI o10L QI o11L QI o12LQB'@GH oJulianLQ[LQ[}LE[LE[(LExcLE[LI vVD1LRB w'@IHoJulianLQ[LQ o01LQI o02LQI o03LQI o04LQI o05LQI o06LQI o07L QI o08L QI o09L QI o10L QI o11L QI o12LQI o13LQI o14LQI o15LQI o16LQI o17LQI o18LQI o19LQI o20LQI o21LQI o22LQI o23LQI o24LQI o25LQI o26LQI o27LQI o28LQI o29LQI o30L QI o31L!QB!'@JHoJulianLQ[LQ[LE[LE[LE[*LE[[LIB{'@KHoJulianLQ[LQx LE[ LE[ZLE[ LE[ LIrVBOLDONo Second DateLQB'@LHoJulianLQxLQ[LE[ LE[LE[ LE[ LI o LQB'@MHoJulianLQ[LQ[LE[LE[<LE[ LE[ LIrVBOLDONoYearLQB'@NHoJulianLQ[LQxLE[LE[<LE[ LE[ LIrVBOLDONoMonthLQB'@OHoJulianLQ[LQxOLE[LE[LE[ LE[ LIrVBOLDON oDayLQB'@QHoJulianLQx7LQ[LE[LE[LE[ LE[ LIrVBOLDONCoNumber of days from first dateLQB'@RH oJulianLQ[LQ[LE[LE[2LE[ LEx@LI vVY2LRxAL @xL @[L @B x'@SH oJulianLQ[LQxLE[LE[(LE[sLE[LI vVM2LRB w'@THoJulianLQ[LQ o01LQI o02LQI o03LQI o04LQI o05LQI o06LQI o07L QI o08L QI o09L QI o10L QI o11L QI o12LQB'@UH oJulianLQ[LQxELE[LE[(LExcLE[LI vVD2LRB w'@XHoJulianLQ[LQ o01LQI o02LQI o03LQI o04LQI o05LQI o06LQI o07L QI o08L QI o09L QI o10L QI o11L QI o12LQI o13LQI o14LQI o15LQI o16LQI o17LQI o18LQI o19LQI o20LQI o21LQI o22LQI o23LQI o24LQI o25LQI o26LQI o27LQI o28LQI o29LQI o30L QI o31L!QB!'@YH oJulianLQ[uLQxLE[LE[-LE[ LE[x@LIvNDIFFLR[L EB y'@ZHoJulianLQ[ LQxLE[#LE[(LE[LE[[LIo &CalculateLNB'@[HoJulianLQ[ LQ[KLE[7LE[(LE[LE[LIo&TodayLNB'@\HoJulianLQ[ LQxLE[7LE[FLE[LE[LIo Switch &ModeLNB'@]HoJulianLQ[ LQxLE[7LE[(LE[LE[LIo &FinishedLNB'@^HoJulianLQ[ LQxLE[7LE[FLE[LE[LI'oNew &CalculationLNB'@`HoJulianLQxLQ[LE[LE[LE[LE[ LIrVBOLDONrNJULIAN1LQB'@aHoJulianLQxLQ[LE[LE[LE[LE[ LIrVBOLDONrNSS1LQB'@bHoJulianLQxLQ[LE[LE[LE[LE[ LIrVBOLDONrNJULIAN2LQB'@cHoJulianLQxLQ[LE[LE[LE[LE[ LIrVBOLDONrNSS2LQB'@dHoJulianLQxLQ[LE[<LE[LE[LE[ LIrVBOLDONrNDIFFLQB'@f  INITIALSETUP@gHoJulianLQo DIALOGMSGSLO[LQB'@hHE*iHE*m--o[[S DIALOGMSGS[( q(x* @rHoJulianLQB'@sHE*uj-(x*g-@w[[S DIALOGMSGS[ x( o9* !@zL_MAIN@|\-( o10*"@~ GETVALUES@rVYTODAY VY1rVMTODAY VM1rVDTODAY VD1H rVM2LQB )[*2" o0H rVM2[0LIB) VM22"H rVD2LQB )[*" o0 rVD2 VD2"LDISPLAY@ GETVALUES@\-( o11*|#@[rVMODEVMODE GETVALUES@  INITIALSETUP@\-( o13*#@  INITIALSETUP@LDISPLAY@\-( o12*Y-@HE* GETVALUES@H rVM1LQB )[*$ o0H rVM1[0LIB) VM1$H rVD1LQB )[*% o0 rVD1 VD1%H rVM2LQB )[*% o0H rVM2[0LIB) VM2%H rVD2LQB )[*% o0 rVD2 VD2%H rVD1LU rVM1LI rVY1LEB)VNDATE1HrVNDATE1Lco yyyy/MM/ddLNB)VDATE1H rVD2LU rVM2LI rVY2LEB)VNDATE2HrVNDATE2Lco yyyy/MM/ddLNB)VDATE2rVDATE1JULIANNJULIAN1rVDATE2JULIANNJULIAN2rNJULIAN1c$NSS1rNJULIAN2c$NSS2rVMODE(rNJULIAN2rNJULIAN1NDIFF1-rNDIFF  CHECKINTEGERNDIFFrNDIFFoError*)Ho Julian DayLNso6The date difference must be an integer. Please re-runLNBn)@,SKIPON)rNJULIAN1rNDIFFNJULIAN2rNJULIAN2c/#2rNJULIAN2c;0-?+Ho Julian DayLNoWThe result is outside the permitted date range: 1601/01/01 to 4000/12/31. Please re-runLNBn)@,SKIPON+rNJULIAN2 tVY2 tVM2 tVD2 GREGORIAN@H rVD2LU rVM2LI rVY2LEB)c$VNDATE2HrVNDATE2Lco yyyy/MM/ddLNB)VDATE2rVDATE2JULIANNJULIAN2rNJULIAN2c$NSS2RESULTS@\-@j-@[|[|51$L_MAIN1j-SKIPON44 GREGORIANLEN SEPARATOR IPOS1POS2VAL1VAL2VAL3 Y M DNEGC JDHr GREGORIANLQB ) LEN rLEN[ ; /[<| / o/ SEPARATORHr GREGORIANLQr SEPARATORLQB )POS1HHr GREGORIANLQrPOS1[LU rLENLUB)LQr SEPARATORLQB )rPOS1POS2HHr GREGORIANLQ[LUrPOS1[LUB)LQB )VAL1HHr GREGORIANLQrPOS1[LUrPOS2rPOS1[LUB)LQB )VAL2HHr GREGORIANLQrPOS2[LU rLENrPOS2LUB)LQB )VAL3rVAL1 YrVAL2 MrVAL3 D[ tY tM tD ISVALIDDATE*2[<|2 rM[22 rM[  M rY[ Y2 rY[2/3[<NEGCI3[NEGCHx rY:rNEGC[!LJB(HcQ rM[:x'!LJB( rDcB JD[d rY: rM[d: rDch.4 rJD[H rY[d!LJB(HH rY[d!LJB([!LJB( JD4 rJD| rJDc$|[|588DAYMONTHYEAR JD A C T EALPHA rJD[25[<YEAR[<MONTH[< DAY 5" rJDc$ A$ rAc#.6%H[ rA:cAqc:!LJB(ALPHA& rA[rALPHAHrALPHA[!LJB( A'6)H[ rA:xmx!LJB( C* rAxHx rC:[!LJB( T+Hx' rT:cQ!LJB( E- rTHcQ rE:x'!LJB( DAY. rE[[ rE[.:MONTH/ rCxkrMONTH[-YEAR1[|5I99DAYMONTHYEARJH rDAYLUrMONTHLIrYEARLEB)VVALIDKHrVVALIDLco yyyy/MM/ddLNB)VVALIDLrVVALIDo*9M[|N9O[|P[|5S;;THoJulian.3LQB' VY1UHoJulian.5LQB' VM1VHoJulian.7LQB' VD1WHo Julian.15LQB' VY2XHo Julian.16LQB' VM2YHo Julian.17LQB' VD2ZHo Julian.117LQB'NDIFF[[|5]CC^HoJulian.3LQ[LIE'_HoJulian.5LQ[LIE'`HoJulian.7LQ[LIE'aHoJulian.9LQ[LIE'bHo Julian.10LQ[LIE'cHo Julian.11LQ[LIE'dHo Julian.12LQ[LIE'eHo Julian.13LQ[LIE'fHo Julian.101LQ[LIE'gHo Julian.111LQ[LIE'hHo Julian.112LQ[LIE'iHo Julian.113LQ[LIE'jHo Julian.201LQ[LIE'kHo Julian.401LQ[LIE'lHo Julian.501LQ[LIE'mHo Julian.411LQ[LIE'nHo Julian.412LQ[LIE'oHo Julian.511LQ[LIE'pHo Julian.512LQ[LIE'qHo Julian.515LQ[LIE'rrVMODEBsHo Julian.15LQ[LIE'tHo Julian.16LQ[LIE'uHo Julian.17LQ[LIE'vHo Julian.117LQ[LIE'wHo Julian.211LQ[LIE'xHo Julian.212LQ[LIE'yHo Julian.213LQ[LIE'zHo Julian.311LQ[LIE'{C|Ho Julian.15LQ[LIE'}Ho Julian.16LQ[LIE'~Ho Julian.17LQ[LIE'Ho Julian.117LQ[LIE'Ho Julian.211LQ[LIE'Ho Julian.212LQ[LIE'Ho Julian.213LQ[LIE'Ho Julian.311LQ[LIE'[|5OO[oMondayoTuesdayo WednesdayoThursdayoFridayoSaturdayoSunday[P WDAY[[rNJULIAN1[8WDAY1[rNJULIAN2[8WDAY2Ho Julian.401LQrVBOLDONrVDATE1 o (rWDAY1[SWDAY[ o) LQE'Ho Julian.411LQrVBOLDON1oThe Julian day is rNJULIAN1LQE'Ho Julian.412LQrVBOLDON;oThe Spreadsheet day is rNSS1LQE'Ho Julian.501LQrVBOLDONrVDATE2 o (rWDAY2[SWDAY[ o) LQE'Ho Julian.511LQrVBOLDON1oThe Julian day is rNJULIAN2LQE'Ho Julian.512LQrVBOLDON;oThe Spreadsheet day is rNSS2LQE'Ho Julian.515LQrVBOLDON]o+The number of days between the dates is rNDIFFLQE'HoJulian.3LQ[LIE'HoJulian.5LQ[LIE'HoJulian.7LQ[LIE'HoJulian.9LQ[LIE'Ho Julian.10LQ[LIE'Ho Julian.11LQ[LIE'Ho Julian.13LQ[LIE'Ho Julian.15LQ[LIE'Ho Julian.16LQ[LIE'Ho Julian.17LQ[LIE'Ho Julian.117LQ[LIE'Ho Julian.111LQ[LIE'Ho Julian.112LQ[LIE'Ho Julian.113LQ[LIE'Ho Julian.211LQ[LIE'Ho Julian.212LQ[LIE'Ho Julian.213LQ[LIE'Ho Julian.311LQ[LIE'Ho Julian.401LQ[LIE'Ho Julian.501LQ[LIE'Ho Julian.411LQ[LIE'Ho Julian.412LQ[LIE'Ho Julian.511LQ[LIE'Ho Julian.512LQ[LIE'Ho Julian.515LQ[LIE'[|5SSHoJulian.3LQ rVY1LQE'HoJulian.5LQ rVM1LQE'HoJulian.7LQ rVD1LQE'HoJulian.3LQ[LIE'HoJulian.5LQ[LIE'HoJulian.7LQ[LIE'rVMODERHo Julian.15LQ rVY2LQE'Ho Julian.16LQ rVM2LQE'Ho Julian.17LQ rVD2LQE'Ho Julian.15LQ[LIE'Ho Julian.16LQ[LIE'Ho Julian.17LQ[LIE'URHo Julian.117LQ[LIE'Ho Julian.101LQrVBOLDONo First DateLQE'Ho Julian.201LQrVBOLDONo Second DateLQE'Ho Julian.101LQ[LIE'Ho Julian.201LQ[LIE'[|5UUNNNH rNNNLQB ) V[STARTPOSH rNNNLQ[LUB) o+*H rNNNLQ[LUB) o-*?T[STARTPOSTH rNNNLQrSTARTPOSLT[LI[L@B) VV rVV rV3eUoError NNNeU rNNN|[|5YYHx LIB)VHRTH[L@[LIB,+ NNN rNNN aXb/FB2 rNNN a`/FB-YHvVANSLR!o Macro VersionLN]o+ You are running the first build of WPWin11rVHRToFThere is no certainty that any macro will run correctly in that build.rVHRTrVHRToYPlease install the latest service pack from ftp://ftp.corel.com/pub/WordPerfect/wpwin/11/rVHRTrVHRTo=Click "OK" to run the macro anyway. Click "Cancel" otherwiserVHRTLN[[LIBn)@rVANS[-yYHE*yYY[|5[)5+ '1S CHECKINTEGER+1UCHECKVERSION11#1m DIALOGMSGS!14 GREGORIAN!1S9 GETVALUES%1I8 ISVALIDDATE'1]; INITIALSETUP1-JULIAN1(OLDISPLAY1CRESULTSN!OEN WordPerfect!OEN WordPerfect)OENPSMacroFacility/OENPSMacroInterpreterH \ 4'USUS.,  _ WX{XXXXX{  _Julian.wcm_@```Version_14.0_Ԁ2006March15==<"Page  1  ڀof  10  ڈ  Stan_Mulder_@`ModifiedbyCharlesRossiter 2" charles@rossiter.co.za  x At5) xdE?aA(3$ V!USUS.,TRW6&A4X3' Letter 6&A4\3'LetterT  4>2Arail 10XWXXX$XXW dtttt)!dxdx,Sticky Notedd)!dxdx  d)!dxdxP Pd)!dxdx d)!dxdx d)! dxdx)!dxdx&0 d d)!dxdx&P d d)!dxdx&p d Pd)!dxdx&p Pd d)!dxdx3+0 d d d3+0 d d dd ddd(d2d3182395))#".; //Isseconddateoutsidedaterange? 8Ԉ ;$ ЀMessageBox(;"JulianDay";    "Theresultisoutsidethepermitteddaterange:1601/01/01to4000/12/31.Pleasererun")  ЀGo(SkipOn) h EndIf ?(  CallGregorian(nJulian2;&vY2;&vM2;&vD2)  " vNDate2=DateAndTime(vD2;vM2;vY2)2415020 !h# vDate2=DateString(vNDate2;;"yyyy/MM/dd") ?"($ nJulian2=Julian(vDate2) "% nSS2=nJulian22415020 #& EndIf $h' CallResults() %)  EndSwitch  'p +  EndSwitch  O(8!,  Label(SkipOn) )"- Return )". EndProc  *#/ @pp`//EndofmacroJulian.wcm<Ԉ o+X$0   3,%1 @< < `//ProceduresandRoutinesforJulian.wcm<  //*****************************************************************************************  //Name:0 ` Julian[ D` "` " //Purpose:0 ` ThisfunctionacceptsaGregoriandateintheformat"2002/03/27" ` "` " //  0 `  andconvertsittoitsJuliannumericdateequivalent. ` "` " //Input:0   ` GregorianAdatestringinthefollowingformatyyyy/mm/dd "" //Returns:0 ` Juliannumber[ D` "` " //0  0` ""Returns1onerror(invaliddate) ` "` " //0  0` "" OriginalroutinefromStanMulder   ` "` " //*******************************************************************************************   = FUNCTIONJulian(Gregorian)@  cL  Local(len;Separator;i;pos1;pos2;val1;val2;val3;Y;M;D;negc;JD) +  len=strlen(Gregorian)0 #5".  " "#0@ (# (#0@h(#(#//lengthofstring   A if(len<>10)0 ` #  +".` ` ` "` "#0@ ` (#` (#//mustbe10characterslong oX  PB 0  return(1)3 "" endif    -". //determinedateseparator   =C Separator="/" w`  11 ". //findpositionsofthedateseparators 7  C pos1=strpos(Gregorian;Separator)  pos2=strpos(SubStr(Gregorian;pos1+1;len);Separator)+pos1   )". //extractthethreedatevalues {d D val1=StrNum(SubStr(Gregorian;1;pos11)) ?( val2=StrNum(SubStr(Gregorian;pos1+1;pos2pos11))  val3=StrNum(SubStr(Gregorian;pos2+1;lenpos2))    ". //0 @b storeactualy,m,dvaluesfromextractedvaluesabovebasedondateformat h CF Y=val1 C, M=val2  D=val3  0   "" if(0=IsValidDate(&Y;&M;&D)) 1".*0 @ //seeifdateisvalid C,  G 0  return(1) !"" endif  " If(M<3) G"0$ 0  M=M+120 ""0 " "Y=Y1#%"" EndIf #& If(Y<0) G%0( 0  negc=3&)"" Else0  negc=0&*"" EndIf 'p + 0   JD=Integer((1461*Y+negc)/4)+Integer((306001*(M+1))/10000)+D+1720995)!-"" If((100*Y+M)*100+D>=15821015) )". 0  JD=JD+(2-Integer(Y/100)+Integer(Integer(Y/100)/4))*p#/"" EndIf G+0$0 return(JD) ,$1   0 ` return(JD2415020)0h` "` " #$".hh#h"h"#//forspreadsheetbasedjuliandate ,%2 eKEndFunc K -t&3   S.<'4 //*********************************************************************************************  //ProcedureName:0 Gregorian " " //Purpose:0 ` Returnsmonth,dayandyearvaluesbasedonaJuliannumericdate` "` " //Input:0 ` 1)0 ` "` "JuliananumberrepresentingadateW @ " " //0  0` ""0 ` "` "Thefollwingvariablesonlyhavevalidvaluesonthereturn:  " " //0  0` ""2)&yeartheaddressfortheyearvariable ` "` " //0  0` ""3)&monththeaddressforthemonthvariable ` "` " //0  0` ""4)&daytheaddressforthedayvariable_ H` "` " //Returns: ` 0 Threevariablesbyaddress:#  " " //0  0` ""1)yearfourdigityear(16014000)  ` "` " //0  0` ""2)monthmonth(112) ` "` " //0  0` ""3)dayday(131)cL ` "` " //Example:0 ` Gregorian(32643)# ` "` " //0  0` ""0 ` "` "Returns:  " " //0  0` ""Y=1989 ` "` " //0  0` ""M=5cL ` "` " //0  0` ""D=16# ` "` " //0  0` "" OriginalroutinefromStanMulder  ` "` " AL//*********************************************************************************************    PROCEDUREGregorian(JD;&year;&month;&day)BS  + LOCAL(A;C;t;E;alpha)  If(JD<1) s\ 0  year=13"" 0  month=1"" 0  day=1""   //return s\ EndIf 3 A=JD+2415020 0 #$".  " "#0 @ //forspreadsheetbasedJuliandate  dU If(A>=2299161) 7   0  alpha=Integer((4*A-7468865)/146097)!"" 0  A=A+1+alpha-Integer(alpha/4) """ EndIf w!`# C=Integer((20*A+28038)/7305) "% t=A+1524-Integer((1461*C)/4) #& E=Integer((10000*t)/306001) w$`' day=(t-Integer((306001*E)/10000)) %) month=E(1+(12*(E>=14))) &* year=C(4715+(month>2)) w'` +  EndProc  (!- IX  )". //TheIsLeapFunctionisonlyincludedforthecompleterecordX  //**************************************************************************  //FunctionName:0 IsLeap " " //Purpose:0 ` Returns1ifyearwasaleapyear,0otherwiseW @` "` " //0  0` "" OriginalroutinefromStanMulder  ` "` " Y//**************************************************************************Z   //FunctionIsLeap(Year) _ H //Return(DateIsLeapYear(Year))   //0  Return((Year%4=0)and(Year%100<>0)or(Year%400=0))  "" //EndFunc \   //*************************************************************************   // FunctionName:0 IsValidDate   " " //Purpose:0 ` 0 ` "` "Receivesdateparametersandverifiesthatthisisavaliddate.gP  " " //   `  Theyearmustbe1601orgreater. '  //Input: ` 0 0 " "1)threenumbers:year,month,day "" //Returns:0 ` 0 ` "` "1ifvalid,0ifinvalid  " " //0  0` ""0 ` "` " OriginalroutinefromStanMulder gP " " N\//*************************************************************************Z_ /  FunctionIsValidDate(&year;&month;&day)_   vValid=DateAndTime(day;month;year) w` vValid=DateString(vValid;;"yyyy/MM/dd") 7  If(vValid="")  Ѐreturn(0)  EndIf w` Ѐreturn(1) 7   EndFunc La   ProcedureGetValues()a  ?(  vY1=RegionGetWindowText("Julian.3")  ! vM1=RegionGetWindowText("Julian.5")  " vD1=RegionGetWindowText("Julian.7") !p# vY2=RegionGetWindowText("Julian.15") G"0$ vM2=RegionGetWindowText("Julian.16") #% vD2=RegionGetWindowText("Julian.17") #& nDiff=RegionGetWindowText("Julian.117") $p'  EndProc c G%0( c  &)  ProcedureInitialSetup() d  RegionShowWindow("Julian.3";Show!)  RegionShowWindow("Julian.5";Show!)  RegionShowWindow("Julian.7";Show!) _ H RegionShowWindow("Julian.9";Show!)   RegionShowWindow("Julian.10";Show!)   RegionShowWindow("Julian.11";Show!)   RegionShowWindow("Julian.12";Show!) _ H RegionShowWindow("Julian.13";Hide!)   RegionShowWindow("Julian.101";Show!)    RegionShowWindow("Julian.111";Show!)   RegionShowWindow("Julian.112";Show!) _H  RegionShowWindow("Julian.113";Show!)   RegionShowWindow("Julian.201";Show!)   RegionShowWindow("Julian.401";Hide!)   RegionShowWindow("Julian.501";Hide!) _H  RegionShowWindow("Julian.411";Hide!)   RegionShowWindow("Julian.412";Hide!)   RegionShowWindow("Julian.511";Hide!)   RegionShowWindow("Julian.512";Hide!) _H RegionShowWindow("Julian.515";Hide!)  If(vMode)  RegionShowWindow("Julian.15";Show!)  RegionShowWindow("Julian.16";Show!) _H RegionShowWindow("Julian.17";Show!)  RegionShowWindow("Julian.117";Hide!)  RegionShowWindow("Julian.211";Show!)  RegionShowWindow("Julian.212";Show!) _H RegionShowWindow("Julian.213";Show!)  RegionShowWindow("Julian.311";Hide!)  Else  RegionShowWindow("Julian.15";Hide!) _H RegionShowWindow("Julian.16";Hide!)   RegionShowWindow("Julian.17";Hide!) ! RegionShowWindow("Julian.117";Show!)  " RegionShowWindow("Julian.211";Hide!) _!H# RegionShowWindow("Julian.212";Hide!) "$ RegionShowWindow("Julian.213";Hide!) "% RegionShowWindow("Julian.311";Show!) #& EndIf _$H'  EndProc l %(    &* ProcedureResults() Im  WDay[]={"Monday";"Tuesday";"Wednesday";"Thursday";"Friday";"Saturday";"Sunday"}  WDay1=1+(nJulian1%7)  WDay2=1+(nJulian2%7) _ H RegionSetWindowText("Julian.401";vBoldOn+vDate1+"("+WDay[WDay1]+")")   RegionSetWindowText("Julian.411";vBoldOn+"TheJuliandayis"+nJulian1)   RegionSetWindowText("Julian.412";vBoldOn+"TheSpreadsheetdayis"+nSS1)   RegionSetWindowText("Julian.501";vBoldOn+vDate2+"("+WDay[WDay2]+")") _ H RegionSetWindowText("Julian.511";vBoldOn+"TheJuliandayis"+nJulian2)   RegionSetWindowText("Julian.512";vBoldOn+"TheSpreadsheetdayis"+nSS2)    RegionSetWindowText("Julian.515";vBoldOn+"Thenumberofdaysbetweenthedatesis"+   nDiff) _H  RegionShowWindow("Julian.3";Hide!)   RegionShowWindow("Julian.5";Hide!)   RegionShowWindow("Julian.7";Hide!)   RegionShowWindow("Julian.9";Hide!) _H  RegionShowWindow("Julian.10";Hide!)   RegionShowWindow("Julian.11";Hide!)   RegionShowWindow("Julian.13";Show!)   RegionShowWindow("Julian.15";Hide!) _H RegionShowWindow("Julian.16";Hide!)  RegionShowWindow("Julian.17";Hide!)  RegionShowWindow("Julian.117";Hide!)  RegionShowWindow("Julian.111";Hide!) _H RegionShowWindow("Julian.112";Hide!)  RegionShowWindow("Julian.113";Hide!)  RegionShowWindow("Julian.211";Hide!)  RegionShowWindow("Julian.212";Hide!) _H RegionShowWindow("Julian.213";Hide!)  RegionShowWindow("Julian.311";Hide!)   RegionShowWindow("Julian.401";Show!)   RegionShowWindow("Julian.501";Show!) _H  RegionShowWindow("Julian.411";Show!)   RegionShowWindow("Julian.412";Show!) !  RegionShowWindow("Julian.511";Show!)  " RegionShowWindow("Julian.512";Show!) _!H# RegionShowWindow("Julian.515";Show!) "$  EndProc >w "%   g$P'  ProcedurelDisplay()w   RegionSetWindowText("Julian.3";vY1)  RegionSetWindowText("Julian.5";vM1)  RegionSetWindowText("Julian.7";vD1) _ H RegionShowWindow("Julian.3";Show!)   RegionShowWindow("Julian.5";Show!)   RegionShowWindow("Julian.7";Show!)   If(vMode) _ H RegionSetWindowText("Julian.15";vY2)   RegionSetWindowText("Julian.16";vM2)    RegionSetWindowText("Julian.17";vD2)   RegionShowWindow("Julian.15";Show!) _H  RegionShowWindow("Julian.16";Show!)   RegionShowWindow("Julian.17";Show!)   Else   RegionShowWindow("Julian.117";Show!) _H  EndIf   RegionSetWindowText("Julian.101";vBoldOn+"FirstDate")   RegionSetWindowText("Julian.201";vBoldOn+"SecondDate")   RegionShowWindow("Julian.101";Show!) _H RegionShowWindow("Julian.201";Show!)   EndProc D|   FunctionCheckInteger(nnn)| /  v=StrLen(nnn)  StartPos=1  If((StrLeft(nnn;1)="+")or(StrLeft(nnn;1)="")) w` ЀStartPos=2 7  EndIf  vv=StrScan(nnn;Startpos;NotEqualTo!;Numeric!)  If(vv<=v) w` Ѐnnn="Error" 7   EndIf ! Return(nnn)  "  EndFunc ~ w!`# //**************************************~ "%  ProcedureCheckVersion11() #& /". //CheckBuildofWPWin11  S%<( 6vHRt=NToC(63754) &) nnn=VersionInfo(PerfectFitVersion!;ProductVersionNumber!) &* If(nnn<11000000000300.0andnnn>11000000000000.0) ' + MessageBox(vAns;"MacroVersion";"YouarerunningthefirstbuildofWPWin11"+vHRt+ [(D!, "Thereisnocertaintythatanymacrowillruncorrectlyinthatbuild."+vHRt+vHRt+ )"- "Pleaseinstallthelatestservicepackfromftp://ftp.corel.com/pub/WordPerfect/wpwin/11/"+vHRt )". +vHRt+ *#/ "Click""OK""torunthemacroanyway.Click""Cancel""otherwise"+vHRt; [+D$0 OKCancel!|IconWarning!) ,%1 If(vAns>1)0 ` Quit0 ` "` "EndIf0 " "EndIf-&3""  EndProc  [.D'4  #:h4##XnX:4#