home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS030.DSK / AUTOCAL.SMM < prev    next >
INI File  |  1994-08-16  |  31KB  |  2,230 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     HP LaserJet IIISi
  13. [port]
  14.     LPT2:
  15. [lang]
  16.     1
  17. [fldnames]
  18.     Field1
  19.     Field2
  20.     Field3
  21.     Field4
  22.     Field5
  23.     Field6
  24.     Field7
  25.     Field8
  26. [desc]
  27.     This macro is accessed from a power field in ~cal-mon.sty to automate processing monthly calendars. 
  28.     
  29.     
  30.     
  31.     
  32.     777069229
  33.     125
  34.     677005541
  35.     71584095
  36.     7
  37.     0
  38.     0
  39.     0
  40.     0
  41.     
  42.     
  43.     
  44.     
  45.     
  46.     
  47.     0
  48. [fopts]
  49.     0
  50.     1
  51.     0
  52.     0
  53.     
  54.     
  55. [lnopts]
  56.     3
  57.     Body Text
  58.     1
  59. [docopts]
  60.     5
  61.     2
  62. [GramStyle]
  63.     
  64. [tag]
  65.     Body Text
  66.     2
  67.     [fnt]
  68.         TimesNewRomanPS
  69.         200
  70.         0
  71.         49152
  72.     [algn]
  73.         1
  74.         1
  75.         0
  76.         0
  77.         0
  78.     [spc]
  79.         33
  80.         273
  81.         1
  82.         0
  83.         0
  84.         1
  85.         100
  86.     [brk]
  87.         4
  88.     [line]
  89.         8
  90.         0
  91.         1
  92.         0
  93.         1
  94.         1
  95.         1
  96.         10
  97.         10
  98.         1
  99.     [spec]
  100.         0
  101.         0
  102.         
  103.         0
  104.         1
  105.         1
  106.         0
  107.         0
  108.         0
  109.         0
  110.     [nfmt]
  111.         272
  112.         1
  113.         3
  114.         .
  115.         ,
  116.         $
  117.     Body Text
  118.     0
  119.     0
  120. [tag]
  121.     Function
  122.     3
  123.     [fnt]
  124.         TimesNewRomanPS
  125.         200
  126.         0
  127.         49153
  128.     [algn]
  129.         1
  130.         1
  131.         0
  132.         0
  133.         0
  134.     [spc]
  135.         33
  136.         244
  137.         1
  138.         0
  139.         0
  140.         1
  141.         100
  142.     [brk]
  143.         68
  144.     [line]
  145.         8
  146.         0
  147.         1
  148.         0
  149.         1
  150.         1
  151.         1
  152.         10
  153.         10
  154.         1
  155.     [spec]
  156.         0
  157.         0
  158.         
  159.         0
  160.         1
  161.         1
  162.         0
  163.         0
  164.         0
  165.         0
  166.     [nfmt]
  167.         272
  168.         1
  169.         3
  170.         .
  171.         ,
  172.         $
  173.     Body Text
  174.     0
  175.     0
  176. [tag]
  177.     Header
  178.     4
  179.     [fnt]
  180.         TimesNewRomanPS
  181.         200
  182.         0
  183.         49153
  184.     [algn]
  185.         4
  186.         1
  187.         0
  188.         0
  189.         0
  190.     [spc]
  191.         33
  192.         273
  193.         1
  194.         0
  195.         0
  196.         1
  197.         100
  198.     [brk]
  199.         4
  200.     [line]
  201.         8
  202.         0
  203.         1
  204.         0
  205.         1
  206.         1
  207.         1
  208.         10
  209.         10
  210.         1
  211.     [spec]
  212.         0
  213.         0
  214.         
  215.         0
  216.         1
  217.         1
  218.         0
  219.         0
  220.         0
  221.         0
  222.     [nfmt]
  223.         272
  224.         1
  225.         3
  226.         .
  227.         ,
  228.         $
  229.     Header
  230.     0
  231.     0
  232. [tag]
  233.     Remark
  234.     5
  235.     [fnt]
  236.         TimesNewRomanPS
  237.         200
  238.         255
  239.         49152
  240.     [algn]
  241.         1
  242.         1
  243.         0
  244.         0
  245.         0
  246.     [spc]
  247.         33
  248.         273
  249.         1
  250.         0
  251.         0
  252.         1
  253.         100
  254.     [brk]
  255.         4
  256.     [line]
  257.         8
  258.         0
  259.         1
  260.         0
  261.         1
  262.         1
  263.         1
  264.         10
  265.         10
  266.         1
  267.     [spec]
  268.         0
  269.         0
  270.         
  271.         0
  272.         1
  273.         1
  274.         0
  275.         0
  276.         0
  277.         0
  278.     [nfmt]
  279.         272
  280.         1
  281.         3
  282.         .
  283.         ,
  284.         $
  285.     Remark
  286.     0
  287.     0
  288. [tag]
  289.     Est<\a>ndar
  290.     6
  291.     [fnt]
  292.         Tms Rmn
  293.         240
  294.         0
  295.         49152
  296.     [algn]
  297.         1
  298.         1
  299.         0
  300.         0
  301.         0
  302.     [spc]
  303.         17
  304.         0
  305.         1
  306.         0
  307.         0
  308.         1
  309.         100
  310.     [brk]
  311.         4
  312.     [line]
  313.         8
  314.         0
  315.         1
  316.         0
  317.         1
  318.         1
  319.         1
  320.         10
  321.         10
  322.         1
  323.     [spec]
  324.         0
  325.         0
  326.         
  327.         0
  328.         1
  329.         1
  330.         0
  331.         0
  332.         0
  333.         0
  334.     [nfmt]
  335.         24
  336.         1
  337.         2
  338.         ,
  339.          
  340.         F
  341.     Est<\a>ndar
  342.     0
  343.     0
  344. [lay]
  345.     Standard
  346.     513
  347.     [rght]
  348.         15840
  349.         12240
  350.         1
  351.         1440
  352.         1440
  353.         1
  354.         1440
  355.         1440
  356.         0
  357.         1
  358.         0
  359.         1
  360.         0
  361.         2
  362.         1
  363.         1440
  364.         10800
  365.         4
  366.         1
  367.         720
  368.         1
  369.         1440
  370.         1
  371.         2160
  372.         1
  373.         2880
  374.     [hrght]
  375.     [lyfrm]
  376.         1
  377.         11200
  378.         0
  379.         0
  380.         12240
  381.         1440
  382.         0
  383.         1
  384.         3
  385.         1 0 0 0 0 0 0
  386.         0
  387.         0
  388.         1
  389.     [frmlay]
  390.         1440
  391.         12240
  392.         1
  393.         1440
  394.         72
  395.         1
  396.         792
  397.         1440
  398.         0
  399.         1
  400.         0
  401.         1
  402.         1
  403.         0
  404.         1
  405.         1440
  406.         10800
  407.         0
  408.     [txt]
  409. Creator: Powell H. Smith
  410.  
  411. <:R1,1,3,9270,>Date of Creation: 06/22/91    Release 6D
  412.  
  413. >
  414.     [frght]
  415.     [lyfrm]
  416.         1
  417.         13248
  418.         0
  419.         14400
  420.         12240
  421.         15840
  422.         0
  423.         1
  424.         3
  425.         1 0 0 0 0 0 0
  426.         0
  427.         0
  428.         2
  429.     [frmlay]
  430.         15840
  431.         12240
  432.         1
  433.         1440
  434.         792
  435.         1
  436.         14472
  437.         1440
  438.         0
  439.         1
  440.         0
  441.         1
  442.         1
  443.         0
  444.         1
  445.         1440
  446.         10800
  447.         0
  448.     [txt]
  449. >
  450. [elay]
  451. [l1]
  452.     0
  453. [pg]
  454.     7
  455.     53 0 21 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  456.     107 0 21 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  457.     161 0 35 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  458.     212 0 13 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  459.     266 0 16 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  460.     320 0 12 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  461.     363 0 10 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  462. [edoc]
  463. <:#480,9360>'ATTENTION : If you change the name of the calendar style sheet, ~calmon.sty, you must change the blue text on this page to the new  name you have chosen. 
  464.  
  465. <:#197,9360><:f160,2Tms Rmn,194,0,0>'WARNING : If you modify the contents in ~calmon.sty, this macro may not function properly!<:f>
  466.  
  467. <:#197,9360><:f160,2Tms Rmn,194,0,0>'WARNING: This macro is for use with "DD/MM/YY" format ONLY!
  468.  
  469. <:#197,9360><:f><:f160,2Tms Rmn,0,0,0>
  470.  
  471. <:#240,9360>FUNCTION AutoCal()
  472.  
  473. <:#240,9360>SingleStep(0)
  474.  
  475. @Remark@<:#240,9360>'Declaration of Variables
  476.  
  477. <:#240,9360>DEFSTR Month1   <:f160,2Tms Rmn,255,0,0>'This variable contains the month direct from the dialog box.<:f>
  478.  
  479. <:#240,9360>DEFSTR Year1  <:f160,2Tms Rmn,255,0,0> 'This variable contains the year direct from dialog box (YYYY).<:f>
  480.  
  481. <:#240,9360>DEFSTR LMonth  <:f160,2Tms Rmn,255,0,0> 'This variable contains the calendar month in lower case.<:f>
  482.  
  483. <:#240,9360>DEFSTR NMonth <:f160,2Tms Rmn,255,0,0> 'This variable contains the month and day of Calendar Date  (MM/DD/).<:f>
  484.  
  485. <:#240,9360>DEFSTR Stat1   <:f160,2Tms Rmn,255,0,0>'This variable checks for Cancel from dialog box.<:f>
  486.  
  487. <:#240,9360>DEFSTR FirstDayWeek  <:f160,2Tms Rmn,255,0,0> 'This contains the Value of the day of the week the month starts on.<:f>
  488.  
  489. <:#240,9360>DEFSTR LastDay  <:f160,2Tms Rmn,255,0,0>'This contains the value of the number of days in current month.<:f>
  490.  
  491. <:#240,9360>DEFSTR ChkLen  <:f160,2Tms Rmn,255,0,0>'This contains the value representing the number of characters in the year that was typed in Heymon.<:f>
  492.  
  493. <:#240,9360>DEFSTR CurStyleSheet  <:f160,2Tms Rmn,255,0,0>'This contains the style sheet for the current dicument<:f>
  494.  
  495. <:#240,9360>DEFSTR CurDocName <:f160,2Tms Rmn,255,0,0> 'This contains the name of the current document.<:f>
  496.  
  497. <:#240,9360>DEFSTR TotalWindows  <:f160,2Tms Rmn,255,0,0>This contains the number of MDI windows open when starting macro.
  498.  
  499. @Remark@<:#240,9360>'Declaration of Functions.
  500.  
  501. <:#240,9360>DECLARE BuildDate(M,Y,N)
  502.  
  503. <:#240,9360>DECLARE FillCalendar(F,L)
  504.  
  505. <:#240,9360>DECLARE CheckLeap(M,Y,N)
  506.  
  507. <:#240,9360>DECLARE AdjustTable()
  508.  
  509. <:#240,9360>
  510.  
  511. @Changes@<:#231,9360><:f200,BArial,0,0,255>' PMM 6/2/94 Change the hardcoded date format to a date format from the win.ini
  512.  
  513. @Changes@<:#231,9360><:f200,BArial,0,0,255>Declare        ReplaceString(String,Char, ReplaceWith) ' PMM 6/2/94<:f>
  514.  
  515. @Changes@<:#240,9360>
  516.  
  517. @Remark@<:#240,9360><:f200,2TimesNewRomanPS,255,0,0>'Check for no windows open.<:f>
  518.  
  519. <:#240,9360>TotalWindows = GetOpenfileCount()
  520.  
  521. <:#240,9360>IF TotalWindows = 0
  522.  
  523. <:#240,9360>    Message("Click on File/New and choose _calmon.sty with contents to run this macro.")  
  524.  
  525. <:#240,9360>    EXIT FUNCTION
  526.  
  527. <:#240,9360>ENDIF
  528.  
  529. @Remark@<:#240,9360>'Check for error in running macro.
  530.  
  531. <:#240,9360>CurDocName = GetDocInfo$(1)
  532.  
  533. <:#240,9360>CurStyleSheet = GetDocInfo$(3)
  534.  
  535. <+@><:I0,0,0,0><:#240,9360><:f200,2Tms Rmn,0,0,0>
  536.  
  537. <+@><:I0,0,0,0><:#240,9360><:f200,2Tms Rmn,0,0,0>If GetNotesWriteHandle = 0
  538.  
  539. <+@><:I0,0,0,0><:#245,9360>        <:f200,2Tms Rmn,0,0,0>IF CurDocName <<<;> "(Untitled)" OR CurStyleSheet <<<;> "<:f160,2Tms Rmn,0,0,255>_CALMON.STY<:f200,2Tms Rmn,0,0,0>"
  540.  
  541. <+@><:I0,0,0,0><:#245,9360>        <:f200,2Tms Rmn,0,0,0>Message("Click on File/New and choose _calmon.sty with contents to run this macro.")  
  542.  
  543. <+@><:I0,0,0,0><:#245,9360>        <:f200,2Tms Rmn,0,0,0>EXIT FUNCTION
  544.  
  545. <+@><:I0,0,0,0><:#245,9360>        <:f200,2Tms Rmn,0,0,0>ENDIF
  546.  
  547. <+@><:I0,0,0,0><:#240,9360>    <:f200,2Tms Rmn,0,0,0>Endif
  548.  
  549. <:#240,9360> 
  550.  
  551. @Remark@<:#240,9360>'Fill Edit boxes with current Month and Year.
  552.  
  553. <:#240,9360>FillEdit(9500,StrField$(FormatDate$(Now(),"c"),2." "))
  554.  
  555. <:#240,9360>FillEdit(9501,StrField$(FormatDate$(Now(),"c"),3." "))
  556.  
  557. <:#240,9360>FillEdit(9500,"January")
  558.  
  559. <:#240,9360>FillEdit(9500,"February")
  560.  
  561. <:#240,9360>FillEdit(9500,"March")
  562.  
  563. <:#240,9360>FillEdit(9500,"April")
  564.  
  565. <:#240,9360>FillEdit(9500,"May")
  566.  
  567. <:#240,9360>FillEdit(9500,"June")
  568.  
  569. <:#240,9360>FillEdit(9500,"July")
  570.  
  571. <:#240,9360>FillEdit(9500,"August")
  572.  
  573. <:#240,9360>FillEdit(9500,"September")
  574.  
  575. <:#240,9360>FillEdit(9500,"October")
  576.  
  577. <:#240,9360>FillEdit(9500,"November")
  578.  
  579. <:#240,9360>FillEdit(9500,"December")
  580.  
  581. <:#240,9360>FillEdit(9501,"1980")
  582.  
  583. <:#240,9360>FillEdit(9501,"1981")
  584.  
  585. <:#240,9360>FillEdit(9501,"1982")
  586.  
  587. <:#240,9360>FillEdit(9501,"1983")
  588.  
  589. <:#240,9360>FillEdit(9501,"1984")
  590.  
  591. <:#240,9360>FillEdit(9501,"1985")
  592.  
  593. <:#240,9360>FillEdit(9501,"1986")
  594.  
  595. <:#240,9360>FillEdit(9501,"1987")
  596.  
  597. <:#240,9360>FillEdit(9501,"1988")
  598.  
  599. <:#240,9360>FillEdit(9501,"1989")
  600.  
  601. <:#240,9360>FillEdit(9501,"1990")
  602.  
  603. <:#240,9360>FillEdit(9501,"1991")
  604.  
  605. <:#240,9360>FillEdit(9501,"1992")
  606.  
  607. <:#240,9360>FillEdit(9501,"1993")
  608.  
  609. <:#240,9360>FillEdit(9501,"1994")
  610.  
  611. <:#240,9360>FillEdit(9501,"1995")
  612.  
  613. <:#240,9360>FillEdit(9501,"1996")
  614.  
  615. <:#240,9360>FillEdit(9501,"1997")
  616.  
  617. <:#240,9360>FillEdit(9501,"1998")
  618.  
  619. <:#240,9360>FillEdit(9501,"1999")
  620.  
  621. <:#240,9360>LayoutMode()
  622.  
  623. <:#240,9360>FullPageView()
  624.  
  625. <:#240,9360>TryAgain:
  626.  
  627. @Remark@<:#240,9360>'Call Dialog box for data entry and get data from edit boxes.
  628.  
  629. <:#240,9360>Stat1=DialogBox("." "Heymon")
  630.  
  631. <:#240,9360>Month1=GetDialogField$(9500)
  632.  
  633. <:#240,9360>Year1=GetDialogField$(9501)
  634.  
  635. @Remark@<:#240,9360>'Check for Cancel.
  636.  
  637. <:#240,9360>IF Stat1=0
  638.  
  639. <:#240,9360>    EXIT FUNCTION
  640.  
  641. <:#240,9360>ENDIF
  642.  
  643. @Remark@<:#240,9360>'Check for error in entry.
  644.  
  645. <:#240,9360>IF Year1 << 1980 OR Year1 <;> 1999
  646.  
  647. <:#240,9360>    Message("Year must be in the range 1980 to 1999.")
  648.  
  649. <:#240,9360>    FillEdit(9500,Month1)
  650.  
  651. <:#240,9360>    FillEdit(9501,Year1)
  652.  
  653. <:#240,9360>    GOTO TryAgain
  654.  
  655. <:#240,9360>ENDIF
  656.  
  657. <:#240,9360>ChkLen = LEN(Year1)
  658.  
  659. <:#240,9360>IF ChkLen<<<;>4
  660.  
  661. <:#240,9360>    Message("Year must be in the format, YYYY (Ex. '1991')")
  662.  
  663. <:#240,9360>    FillEdit(9500,Month1)
  664.  
  665. <:#240,9360>    FillEdit(9501,Year1)
  666.  
  667. <:#240,9360>    GOTO TryAgain
  668.  
  669. <:#240,9360>'ELSEIF Year1<<1980 OR Year1<;>1999
  670.  
  671. <:#240,9360>    Message("Year must be in a range from 1980 to 1999.")
  672.  
  673. <:#240,9360>    FillEdit(9500,Month1)
  674.  
  675. <:#240,9360>    FillEdit(9501,Year1)
  676.  
  677. <:#240,9360>    GOTO TryAgain
  678.  
  679. <:#240,9360>ENDIF
  680.  
  681. @Remark@<:#240,9360>'Convert month to lower case and process.
  682.  
  683. <:#240,9360>LMonth=LCase$(Month1)
  684.  
  685. <:#240,9360>IF LMonth= "january" 
  686.  
  687. <:#240,9360>    NMonth="01/01/"
  688.  
  689. <:#240,9360>    LastDay=31
  690.  
  691. <:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  692.  
  693. <:#240,9360>    FillCalendar(FirstDayWeek,LastDay)
  694.  
  695. <:#240,9360>ELSEIF LMonth= "february"  
  696.  
  697. <:#240,9360>    NMonth="01/02/"
  698.  
  699. <:#240,9360>    LastDay=CheckLeap(Month1,Year1,NMonth)
  700.  
  701. <:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  702.  
  703. <:#240,9360>    FillCalendar(FirstDayWeek,LastDay)
  704.  
  705. <:#240,9360>ELSEIF LMonth= "march"
  706.  
  707. <:#240,9360>    NMonth="01/03/"
  708.  
  709. <:#240,9360>    LastDay=31
  710.  
  711. <:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  712.  
  713. <:#240,9360>    FillCalendar(FirstDayWeek,LastDay)
  714.  
  715. <:#240,9360>ELSEIF LMonth= "april"  
  716.  
  717. <:#240,9360>    NMonth="01/04/"
  718.  
  719. <:#240,9360>    LastDay=30
  720.  
  721. <:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  722.  
  723. <:#240,9360>    FillCalendar(FirstDayWeek,LastDay)
  724.  
  725. <:#240,9360>ELSEIF LMonth= "may"  
  726.  
  727. <:#240,9360>    NMonth="01/05/"
  728.  
  729. <:#240,9360>    LastDay=31
  730.  
  731. <:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  732.  
  733. <:#240,9360>    FillCalendar(FirstDayWeek,LastDay)
  734.  
  735. <:#240,9360>ELSEIF LMonth= "june"  
  736.  
  737. <:#240,9360>    NMonth="01/06/"
  738.  
  739. <:#240,9360>    LastDay=30
  740.  
  741. <:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  742.  
  743. <:#240,9360>    FillCalendar(FirstDayWeek,LastDay)
  744.  
  745. <:#240,9360>ELSEIF LMonth= "july"
  746.  
  747. <:#240,9360>    NMonth="01/07/"
  748.  
  749. <:#240,9360>    LastDay=31
  750.  
  751. <:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  752.  
  753. <:#240,9360>    FillCalendar(FirstDayWeek,LastDay)
  754.  
  755. <:#240,9360>ELSEIF LMonth= "august"  
  756.  
  757. <:#240,9360>    NMonth="01/08/"
  758.  
  759. <:#240,9360>    LastDay=31
  760.  
  761. <:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  762.  
  763. <:#240,9360>    FillCalendar(FirstDayWeek,LastDay)
  764.  
  765. <:#240,9360>ELSEIF LMonth= "september"  
  766.  
  767. <:#240,9360>    NMonth="01/09/"
  768.  
  769. <:#240,9360>    LastDay=30
  770.  
  771. <:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  772.  
  773. <:#240,9360>    FillCalendar(FirstDayWeek,LastDay)
  774.  
  775. <:#240,9360>ELSEIF LMonth= "october"  
  776.  
  777. <:#240,9360>    NMonth="01/10/"
  778.  
  779. <:#240,9360>    LastDay=31
  780.  
  781. <:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  782.  
  783. <:#240,9360>    FillCalendar(FirstDayWeek,LastDay)
  784.  
  785. <:#240,9360>ELSEIF LMonth= "november"  
  786.  
  787. <:#240,9360>    NMonth="01/11/"
  788.  
  789. <:#240,9360>    LastDay=30
  790.  
  791. <:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  792.  
  793. <:#240,9360>    FillCalendar(FirstDayWeek,LastDay)
  794.  
  795. <:#240,9360>ELSEIF LMonth= "december"  
  796.  
  797. <:#240,9360>    NMonth="01/12/"
  798.  
  799. <:#240,9360>    LastDay=31
  800.  
  801. <:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  802.  
  803. <:#240,9360>    FillCalendar(FirstDayWeek,LastDay)
  804.  
  805. @Remark@<:#240,9360>'Check for error in Month entry
  806.  
  807. <:#240,9360>ELSE 
  808.  
  809. <:#240,9360>    Message ("This is not a valid month.  Please try again.")
  810.  
  811. <:#240,9360>    FillEdit(9500,Month1)
  812.  
  813. <:#240,9360>    FillEdit(9501,Year1)
  814.  
  815. <:#240,9360>    GOTO TryAgain
  816.  
  817. <:#240,9360>ENDIF
  818.  
  819. <:#240,9360>
  820.  
  821. <:#240,9360>END FUNCTION
  822.  
  823. <:#240,9360>
  824.  
  825. <:#240,9360>Function BuildDate(Month1,Year1,NMonth)
  826.  
  827. <:#240,9360>DEFSTR CDate
  828.  
  829. <:#240,9360>DEFSTR NDate
  830.  
  831. <:#240,9360>DEFSTR NDays
  832.  
  833. <:#240,9360>DEFSTR WDate
  834.  
  835. <:#240,9360>DEFSTR DateRef
  836.  
  837. <:#240,9360>DEFSTR TYear
  838.  
  839. @Remark@<:#240,9360>'Extract last two digits of date for processing.
  840.  
  841. <:#240,9360>TYear=Mid$(Year1,3,2)
  842.  
  843. <:#240,9360>CDate=StrCat$(NMonth,TYear) 
  844.  
  845. <:#240,9360>
  846.  
  847. @Changes@<:#231,9360><:f200,BArial,0,0,255>' PMM 6/2/94 Fix the seperator from / to whatever is set in the win.ini<:f>
  848.  
  849. @Changes@<:#240,9360>
  850.  
  851. <:#240,9360>DateRef="01/01/90"
  852.  
  853. <:#240,9360>
  854.  
  855. <:#231,9360><:f200,BArial,0,0,255>
  856.  
  857. @Changes@<:#462,9360><:f200,BArial,0,0,255>sDate = GetProfileString$("intl","sdate","win.ini")    ' Get the date seperator from the win.ini
  858.  
  859. @Changes@<:#462,9360><:f200,BArial,0,0,255>CDate = ReplaceString(CDate,"/",sDate)    ' convert the hard coded date format to good format
  860.  
  861. @Changes@<:#462,9360><:f200,BArial,0,0,255>DateRef = StrCat$("01",sDate,"01",sDate,"90")    ' Build a reference date based on date sep.
  862.  
  863. @Changes@<:#231,9360><:f200,BArial,0,0,255>
  864.  
  865. @Changes@<:#231,9360><:f200,BArial,0,0,255>'********* End changes  *********************<:f>
  866.  
  867. <:#240,9360>
  868.  
  869. <:#240,9360>NDays=DateDiff(CDate,DateRef)
  870.  
  871. <:#240,9360>NDate=NDays*86400+631224000
  872.  
  873. <:#240,9360>WDate=FormatDate$(NDate,"f")
  874.  
  875. <:#240,9360>BuildDate=StrField$(WDate,1," ")
  876.  
  877. <:#240,9360>Type("<[>CtrlHome]{Year1}<[>Tab]{Month1}<[>Tab]{Year1}")
  878.  
  879. <:#240,9360>END FUNCTION
  880.  
  881. <:#240,9360>
  882.  
  883. <:#240,9360>FUNCTION FillCalendar(FirstDayWeek,LastDay)
  884.  
  885. <:#240,9360>DEFSTR DayNum
  886.  
  887. <:#240,9360>DEFSTR Column
  888.  
  889. <:#240,9360>DEFSTR Row
  890.  
  891. <:#240,9360>DEFSTR Row2
  892.  
  893. <:#240,9360>DEFSTR Row3
  894.  
  895. <:#240,9360>DEFSTR R1
  896.  
  897. <:#240,9360>DEFSTR R2
  898.  
  899. <:#240,9360>DEFSTR R3
  900.  
  901. <:#240,9360>DEFSTR R4
  902.  
  903. <:#240,9360>Type( "<[>CTRLHome]<[>Down]<[>Down]<[>Right]" )
  904.  
  905. <:#240,9360>DayNum=1
  906.  
  907. <:#240,9360>IF FirstDayWeek="Sunday"
  908.  
  909. <:#240,9360>    FOR R1=1 TO 6
  910.  
  911. <:#240,9360>        Type("{DayNum}<[>Right]<[>Right]")
  912.  
  913. <:#240,9360>        DayNum=DayNum + 1
  914.  
  915. <:#240,9360>    NEXT
  916.  
  917. <:#240,9360>ELSEIF FirstDayWeek="Monday"
  918.  
  919. <:#240,9360>    Type("<[>Right]<[>Right]")
  920.  
  921. <:#240,9360>    FOR R1=1 TO 5
  922.  
  923. <:#240,9360>        Type("{DayNum}<[>Right]<[>Right]")
  924.  
  925. <:#240,9360>        DayNum=DayNum + 1
  926.  
  927. <:#240,9360>    NEXT
  928.  
  929. <:#240,9360>ELSEIF FirstDayWeek="Tuesday"
  930.  
  931. <:#240,9360>    Type("<[>Right]<[>Right]<[>Right]<[>Right]")
  932.  
  933. <:#240,9360>    FOR R2=1 TO 4
  934.  
  935. <:#240,9360>        Type("{DayNum}<[>Right]<[>Right]")
  936.  
  937. <:#240,9360>        DayNum=DayNum + 1
  938.  
  939. <:#240,9360>    NEXT
  940.  
  941. <:#240,9360>ELSEIF FirstDayWeek="Wednesday"
  942.  
  943. <:#240,9360>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")
  944.  
  945. <:#240,9360>    FOR R3=1 TO 3
  946.  
  947. <:#240,9360>        Type("{DayNum}<[>Right]<[>Right]")
  948.  
  949. <:#240,9360>        DayNum=DayNum + 1
  950.  
  951. <:#240,9360>    NEXT
  952.  
  953. <:#240,9360>ELSEIF FirstDayWeek="Thursday"
  954.  
  955. <:#240,9360>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")
  956.  
  957. <:#240,9360>    FOR R4=1 TO 2
  958.  
  959. <:#240,9360>        Type("{DayNum}<[>Right]<[>Right]")
  960.  
  961. <:#240,9360>        DayNum=DayNum + 1
  962.  
  963. <:#240,9360>    NEXT
  964.  
  965. <:#240,9360>ELSEIF FirstDayWeek="Friday"
  966.  
  967. <:#240,9360>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")
  968.  
  969. <:#240,9360>    Type("{DayNum}<[>Right]<[>Right]")
  970.  
  971. <:#240,9360>    DayNum=DayNum + 1
  972.  
  973. <:#240,9360>ELSEIF FirstDayWeek="Saturday"
  974.  
  975. <:#240,9360>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")
  976.  
  977. <:#240,9360>ENDIF
  978.  
  979. <:#240,9360>Type("{DayNum}<[>Right]<[>Down]<[>Right]")
  980.  
  981. <:#240,9360>DayNum=DayNum + 1
  982.  
  983. <:#240,9360>FOR Column=2 <++>to<-+> 5
  984.  
  985. <:#240,9360>    FOR Row= 1 <++>to<-+> 6
  986.  
  987. <:#240,9360>        Type("{DayNum}<[>Right]<[>Right]")
  988.  
  989. <:#240,9360>        DayNum=DayNum + 1
  990.  
  991. <:#240,9360>        IF DayNum <;> LastDay
  992.  
  993. <:#240,9360>            EXIT FUNCTION
  994.  
  995. <:#240,9360>        ENDIF
  996.  
  997. <:#240,9360>    NEXT 
  998.  
  999. <:#240,9360>    IF Column=5 AND DayNum<<LastDay
  1000.  
  1001. <:#240,9360>        Singlestep(0)
  1002.  
  1003. <:#240,9360>        Type("{DayNum}")
  1004.  
  1005. <:#240,9360>        DayNum=DayNum + 1
  1006.  
  1007. <:#240,9360>        Type("<[>Right]")
  1008.  
  1009. <:#240,9360>        AdjustTable()
  1010.  
  1011. <:#240,9360>        FOR Row2=1 TO 7
  1012.  
  1013. <:#240,9360>            ConnectCells()
  1014.  
  1015. <:#240,9360>            FOR Row3=1 TO 2
  1016.  
  1017. <:#240,9360>                TurnOn=TopSide
  1018.  
  1019. <:#240,9360>                TurnOff=0
  1020.  
  1021. <:#240,9360>                StaySame=CellShade + Outline
  1022.  
  1023. <:#240,9360>                TableLines(TurnOn, TurnOff, StaySame, Hairline, CellShade)
  1024.  
  1025. <:#240,9360>                Type("<[>CTRLRight]")
  1026.  
  1027. <:#240,9360>            NEXT
  1028.  
  1029. <:#240,9360>            Type("<[>CTRLLeft]")
  1030.  
  1031. <:#240,9360>            Type("{DayNum}")
  1032.  
  1033. <:#240,9360>            DayNum=DayNum + 1
  1034.  
  1035. <:#240,9360>            Type("<[>CTRLRight]")
  1036.  
  1037. <:#240,9360>            IF DayNum <;> LastDay
  1038.  
  1039. <:#240,9360>                BREAK
  1040.  
  1041. <:#240,9360>            ENDIF
  1042.  
  1043. <:#240,9360>        NEXT
  1044.  
  1045. <:#240,9360>    ELSEIF DayNum = LastDay
  1046.  
  1047. <:#240,9360>        Type("{DayNum}<[>CtrlHome]")
  1048.  
  1049. <:#240,9360>        BREAK
  1050.  
  1051. <:#240,9360>    ELSE
  1052.  
  1053. <:#240,9360>        Type("{DayNum}<[>Right]<[>Down]<[>Right]")
  1054.  
  1055. <:#240,9360>    ENDIF
  1056.  
  1057. <:#240,9360>    DayNum=DayNum + 1
  1058.  
  1059. <:#240,9360>NEXT
  1060.  
  1061. <:#240,9360>END FUNCTION
  1062.  
  1063. <:#240,9360>
  1064.  
  1065. <:#240,9360>FUNCTION CheckLeap(Month1,Year1,NMonth)
  1066.  
  1067. <:#240,9360>DEFSTR CDate
  1068.  
  1069. <:#240,9360>DEFSTR NDate
  1070.  
  1071. <:#240,9360>DEFSTR NDays
  1072.  
  1073. <:#240,9360>DEFSTR WDate
  1074.  
  1075. <:#240,9360>DEFSTR DateRef
  1076.  
  1077. <:#240,9360>DEFSTR TYear
  1078.  
  1079. <:#240,9360>DEFSTR LNDate
  1080.  
  1081. <:#240,9360>DEFSTR LeapDate
  1082.  
  1083. @Remark@<:#240,9360>'Extract last two digits of date for processing.
  1084.  
  1085. <:#240,9360>TYear=Mid$(Year1,3,2)
  1086.  
  1087. <:#240,9360>CDate=StrCat$(NMonth,TYear) 
  1088.  
  1089. <:#240,9360>DateRef="01/01/90"
  1090.  
  1091. <:#240,9360>NDays=DateDiff(CDate,DateRef)
  1092.  
  1093. <:#240,9360>NDate=NDays*86400+631224000
  1094.  
  1095. <:#240,9360>LNDate=NDate +  2419200
  1096.  
  1097. <:#240,9360>LeapDate=FormatDate$(LNDate,"a")
  1098.  
  1099. <:#240,9360>LeapNum=StrField$(LeapDate,1,"/")
  1100.  
  1101. <:#240,9360>IF LeapNum=3
  1102.  
  1103. <:#240,9360>    CheckLeap=28
  1104.  
  1105. <:#240,9360>ELSE 
  1106.  
  1107. <:#240,9360>    CheckLeap=29
  1108.  
  1109. <:#240,9360>ENDIF
  1110.  
  1111. <:#240,9360>END FUNCTION
  1112.  
  1113. <:#240,9360>
  1114.  
  1115. <:#240,9360>FUNCTION AdjustTable()
  1116.  
  1117. <:#240,9360>SizeColumnRow(-32768 -32768 936 -32768  )
  1118.  
  1119. <:#240,9360>Type( "<[>Up]" )
  1120.  
  1121. <:#240,9360>SizeColumnRow(-32768 -32768 936 -32768  )
  1122.  
  1123. <:#240,9360>Type( "<[>Down]" )
  1124.  
  1125. <:#240,9360>'ConnectCells( )
  1126.  
  1127. <:#240,9360>'Type( "<[>CTRLRight]<[>CTRLRight]" )
  1128.  
  1129. <:#240,9360>'ConnectCells( )
  1130.  
  1131. <:#240,9360>'Type("<[>CTRLLeft]")
  1132.  
  1133. <:#240,9360>'Type("<[>CTRLLeft]<[>CTRLLeft]<[>CTRLLeft]")
  1134.  
  1135. <:#240,9360>END FUNCTION
  1136.  
  1137. <:#231,9360><:f200,BArial,0,0,255>
  1138.  
  1139. @Function@<:#240,9360><:f200,BArial,0,0,255>Function ReplaceString(String,Char, ReplaceWith)
  1140.  
  1141. @Changes@<:#231,9360><:f200,BArial,0,0,255>spos = 1
  1142.  
  1143. @Changes@<:#231,9360><:f200,BArial,0,0,255>newname = ""
  1144.  
  1145. @Changes@<:#231,9360><:f200,BArial,0,0,255>while (1)
  1146.  
  1147. @Changes@<:#231,9360><:f200,BArial,0,0,255>    txt = strfield$(String, spos, Char)
  1148.  
  1149. @Changes@<:#231,9360><:f200,BArial,0,0,255>    if txt = -1
  1150.  
  1151. @Changes@<:#231,9360><:f200,BArial,0,0,255>        break
  1152.  
  1153. @Changes@<:#231,9360><:f200,BArial,0,0,255>    endif
  1154.  
  1155. @Changes@<:#231,9360><:f200,BArial,0,0,255>    newname = strcat$(newname, ReplaceWith, txt)
  1156.  
  1157. @Changes@<:#231,9360><:f200,BArial,0,0,255>    spos = spos + 1
  1158.  
  1159. @Changes@<:#231,9360><:f200,BArial,0,0,255>wend
  1160.  
  1161. @Changes@<:#231,9360><:f200,BArial,0,0,255>return right$(newname, (len(newname) - 1))
  1162.  
  1163. @Changes@<:#231,9360><:f200,BArial,0,0,255>end function<:f>
  1164.  
  1165. <:#240,9360>
  1166.  
  1167. @Remark@<:#240,9360>'Dialog Box Section
  1168.  
  1169. <:#240,9360>DIALOG Heymon
  1170.  
  1171. <:#240,9360>-2134376448 6 93 58 136 50 "" "" "Monthly Calendar"
  1172.  
  1173. <:#240,9360>FONT 8 "Helv"
  1174.  
  1175. <:#240,9360>4 6 27 10 1000 1342177280 "static" "Month :" 0 
  1176.  
  1177. <:#240,9360>8 21 23 10 1001 1342177280 "static" "Year :" 0 
  1178.  
  1179. <:#240,9360>31 4 52 40 9500 1344339979 "combobox" "" 0 
  1180.  
  1181. <:#240,9360>31 19 52 40 9501 1344339979 "combobox" "" 0 
  1182.  
  1183. <:#240,9360>91 3 40 14 1 1342242817 "button" "OK" 0 
  1184.  
  1185. <:#240,9360>91 19 40 14 2 1342242816 "button" "Cancel" 0 
  1186.  
  1187. <:#240,9360>END DIALOG
  1188.  
  1189. >
  1190.  
  1191. [Embedded]
  1192. 00020692
  1193. >
  1194. [macsum] 7
  1195. AutoCal 0 0 23 4
  1196. BuildDate 4975 3 8 181
  1197. FillCalendar 5614 2 13 210
  1198. CheckLeap 8635 3 10 301
  1199. AdjustTable 9256 0 1 326
  1200. ReplaceString 9425 3 4 338
  1201. Heymon 9849 0 -1 353
  1202. [macse]
  1203. 14 AutoCal
  1204. 0 4 0
  1205. 17 3
  1206. 29 1 Month1
  1207. 17 4
  1208. 29 2 Year1
  1209. 17 5
  1210. 29 3 LMonth
  1211. 17 6
  1212. 29 4 NMonth
  1213. 17 7
  1214. 29 5 Stat1
  1215. 17 8
  1216. 29 6 FirstDayWeek
  1217. 17 9
  1218. 29 7 LastDay
  1219. 17 10
  1220. 29 8 ChkLen
  1221. 17 11
  1222. 29 9 CurStyleSheet
  1223. 17 12
  1224. 29 10 CurDocName
  1225. 17 13
  1226. 29 11 TotalWindows
  1227. 29 12 This
  1228. 29 13 contains
  1229. 29 14 the
  1230. 29 15 number
  1231. 29 16 of
  1232. 29 17 MDI
  1233. 29 18 windows
  1234. 29 19 open
  1235. 29 20 when
  1236. 29 21 starting
  1237. 29 22 macro.
  1238. 17 15
  1239. 17 16
  1240. 17 17
  1241. 17 18
  1242. 17 21
  1243. 17 24
  1244. 0 1050
  1245. 13
  1246. 8 11
  1247. 17 25
  1248. 6 11
  1249. 5 0
  1250. 18 0
  1251. 11 00000596
  1252. 17 26
  1253. 0 3 "Click on File/New and choose _calmon.sty with contents to run this macro."
  1254. 6 0
  1255. 15
  1256. 9
  1257. 17 30
  1258. 0 279 1
  1259. 13
  1260. 8 10
  1261. 17 31
  1262. 0 279 3
  1263. 13
  1264. 8 9
  1265. 17 33
  1266. 24 850
  1267. 13
  1268. 5 0
  1269. 18 0
  1270. 11 00000871
  1271. 17 34
  1272. 6 10
  1273. 7 "(Untitled)"
  1274. 18 1
  1275. 6 9
  1276. 7 "_CALMON.STY"
  1277. 18 1
  1278. 1 2
  1279. 11 00000871
  1280. 17 35
  1281. 0 3 "Click on File/New and choose _calmon.sty with contents to run this macro."
  1282. 6 0
  1283. 15
  1284. 9
  1285. 17 41
  1286. 0 772
  1287. 13
  1288. 0 770 [X] "c"
  1289. 13
  1290. 0 20 [X] 2. " "
  1291. 13
  1292. 0 31 9500 [X]
  1293. 17 42
  1294. 0 772
  1295. 13
  1296. 0 770 [X] "c"
  1297. 13
  1298. 0 20 [X] 3. " "
  1299. 13
  1300. 0 31 9501 [X]
  1301. 17 43
  1302. 0 31 9500 "January"
  1303. 17 44
  1304. 0 31 9500 "February"
  1305. 17 45
  1306. 0 31 9500 "March"
  1307. 17 46
  1308. 0 31 9500 "April"
  1309. 17 47
  1310. 0 31 9500 "May"
  1311. 17 48
  1312. 0 31 9500 "June"
  1313. 17 49
  1314. 0 31 9500 "July"
  1315. 17 50
  1316. 0 31 9500 "August"
  1317. 17 51
  1318. 0 31 9500 "September"
  1319. 17 52
  1320. 0 31 9500 "October"
  1321. 17 53
  1322. 0 31 9500 "November"
  1323. 17 54
  1324. 0 31 9500 "December"
  1325. 17 55
  1326. 0 31 9501 "1980"
  1327. 17 56
  1328. 0 31 9501 "1981"
  1329. 17 57
  1330. 0 31 9501 "1982"
  1331. 17 58
  1332. 0 31 9501 "1983"
  1333. 17 59
  1334. 0 31 9501 "1984"
  1335. 17 60
  1336. 0 31 9501 "1985"
  1337. 17 61
  1338. 0 31 9501 "1986"
  1339. 17 62
  1340. 0 31 9501 "1987"
  1341. 17 63
  1342. 0 31 9501 "1988"
  1343. 17 64
  1344. 0 31 9501 "1989"
  1345. 17 65
  1346. 0 31 9501 "1990"
  1347. 17 66
  1348. 0 31 9501 "1991"
  1349. 17 67
  1350. 0 31 9501 "1992"
  1351. 17 68
  1352. 0 31 9501 "1993"
  1353. 17 69
  1354. 0 31 9501 "1994"
  1355. 17 70
  1356. 0 31 9501 "1995"
  1357. 17 71
  1358. 0 31 9501 "1996"
  1359. 17 72
  1360. 0 31 9501 "1997"
  1361. 17 73
  1362. 0 31 9501 "1998"
  1363. 17 74
  1364. 0 31 9501 "1999"
  1365. 17 75
  1366. 2 210 1
  1367. 17 76
  1368. 2 201 1
  1369. 17 79
  1370. 0 26 "." "Heymon"
  1371. 13
  1372. 8 5
  1373. 17 80
  1374. 0 27 9500
  1375. 13
  1376. 8 1
  1377. 17 81
  1378. 0 27 9501
  1379. 13
  1380. 8 2
  1381. 17 83
  1382. 6 5
  1383. 5 0
  1384. 18 0
  1385. 11 00002012
  1386. 6 0
  1387. 15
  1388. 9
  1389. 17 87
  1390. 6 2
  1391. 5 1980
  1392. 18 5
  1393. 6 2
  1394. 5 1999
  1395. 18 3
  1396. 1 2
  1397. 11 00002197
  1398. 17 88
  1399. 0 3 "Year must be in the range 1980 to 1999."
  1400. 17 89
  1401. 0 31 9500 "{1}"
  1402. 17 90
  1403. 0 31 9501 "{2}"
  1404. 17 91
  1405. 10 00001875
  1406. 17 93
  1407. 0 14 "{2}"
  1408. 13
  1409. 8 8
  1410. 17 94
  1411. 6 8
  1412. 5 4
  1413. 18 1
  1414. 11 00002518
  1415. 17 95
  1416. 0 3 "Year must be in the format, YYYY (Ex. '1991')"
  1417. 17 96
  1418. 0 31 9500 "{1}"
  1419. 17 97
  1420. 0 31 9501 "{2}"
  1421. 17 98
  1422. 10 00001875
  1423. 17 100
  1424. 0 3 "Year must be in a range from 1980 to 1999."
  1425. 17 101
  1426. 0 31 9500 "{1}"
  1427. 17 102
  1428. 0 31 9501 "{2}"
  1429. 17 103
  1430. 10 00001875
  1431. 17 106
  1432. 0 17 "{1}"
  1433. 13
  1434. 8 3
  1435. 17 107
  1436. 6 3
  1437. 7 "january"
  1438. 18 0
  1439. 11 00002735
  1440. 17 108
  1441. 7 "01/01/"
  1442. 8 4
  1443. 17 109
  1444. 5 31
  1445. 8 7
  1446. 17 110
  1447. 16 BuildDate "{1}" "{2}" "{4}"
  1448. 13
  1449. 8 6
  1450. 17 111
  1451. 16 FillCalendar "{6}" "{7}"
  1452. 10 00004955
  1453. 17 112
  1454. 6 3
  1455. 7 "february"
  1456. 18 0
  1457. 11 00002954
  1458. 17 113
  1459. 7 "01/02/"
  1460. 8 4
  1461. 17 114
  1462. 16 CheckLeap "{1}" "{2}" "{4}"
  1463. 13
  1464. 8 7
  1465. 17 115
  1466. 16 BuildDate "{1}" "{2}" "{4}"
  1467. 13
  1468. 8 6
  1469. 17 116
  1470. 16 FillCalendar "{6}" "{7}"
  1471. 10 00004955
  1472. 17 117
  1473. 6 3
  1474. 7 "march"
  1475. 18 0
  1476. 11 00003140
  1477. 17 118
  1478. 7 "01/03/"
  1479. 8 4
  1480. 17 119
  1481. 5 31
  1482. 8 7
  1483. 17 120
  1484. 16 BuildDate "{1}" "{2}" "{4}"
  1485. 13
  1486. 8 6
  1487. 17 121
  1488. 16 FillCalendar "{6}" "{7}"
  1489. 10 00004955
  1490. 17 122
  1491. 6 3
  1492. 7 "april"
  1493. 18 0
  1494. 11 00003326
  1495. 17 123
  1496. 7 "01/04/"
  1497. 8 4
  1498. 17 124
  1499. 5 30
  1500. 8 7
  1501. 17 125
  1502. 16 BuildDate "{1}" "{2}" "{4}"
  1503. 13
  1504. 8 6
  1505. 17 126
  1506. 16 FillCalendar "{6}" "{7}"
  1507. 10 00004955
  1508. 17 127
  1509. 6 3
  1510. 7 "may"
  1511. 18 0
  1512. 11 00003510
  1513. 17 128
  1514. 7 "01/05/"
  1515. 8 4
  1516. 17 129
  1517. 5 31
  1518. 8 7
  1519. 17 130
  1520. 16 BuildDate "{1}" "{2}" "{4}"
  1521. 13
  1522. 8 6
  1523. 17 131
  1524. 16 FillCalendar "{6}" "{7}"
  1525. 10 00004955
  1526. 17 132
  1527. 6 3
  1528. 7 "june"
  1529. 18 0
  1530. 11 00003695
  1531. 17 133
  1532. 7 "01/06/"
  1533. 8 4
  1534. 17 134
  1535. 5 30
  1536. 8 7
  1537. 17 135
  1538. 16 BuildDate "{1}" "{2}" "{4}"
  1539. 13
  1540. 8 6
  1541. 17 136
  1542. 16 FillCalendar "{6}" "{7}"
  1543. 10 00004955
  1544. 17 137
  1545. 6 3
  1546. 7 "july"
  1547. 18 0
  1548. 11 00003880
  1549. 17 138
  1550. 7 "01/07/"
  1551. 8 4
  1552. 17 139
  1553. 5 31
  1554. 8 7
  1555. 17 140
  1556. 16 BuildDate "{1}" "{2}" "{4}"
  1557. 13
  1558. 8 6
  1559. 17 141
  1560. 16 FillCalendar "{6}" "{7}"
  1561. 10 00004955
  1562. 17 142
  1563. 6 3
  1564. 7 "august"
  1565. 18 0
  1566. 11 00004067
  1567. 17 143
  1568. 7 "01/08/"
  1569. 8 4
  1570. 17 144
  1571. 5 31
  1572. 8 7
  1573. 17 145
  1574. 16 BuildDate "{1}" "{2}" "{4}"
  1575. 13
  1576. 8 6
  1577. 17 146
  1578. 16 FillCalendar "{6}" "{7}"
  1579. 10 00004955
  1580. 17 147
  1581. 6 3
  1582. 7 "september"
  1583. 18 0
  1584. 11 00004257
  1585. 17 148
  1586. 7 "01/09/"
  1587. 8 4
  1588. 17 149
  1589. 5 30
  1590. 8 7
  1591. 17 150
  1592. 16 BuildDate "{1}" "{2}" "{4}"
  1593. 13
  1594. 8 6
  1595. 17 151
  1596. 16 FillCalendar "{6}" "{7}"
  1597. 10 00004955
  1598. 17 152
  1599. 6 3
  1600. 7 "october"
  1601. 18 0
  1602. 11 00004445
  1603. 17 153
  1604. 7 "01/10/"
  1605. 8 4
  1606. 17 154
  1607. 5 31
  1608. 8 7
  1609. 17 155
  1610. 16 BuildDate "{1}" "{2}" "{4}"
  1611. 13
  1612. 8 6
  1613. 17 156
  1614. 16 FillCalendar "{6}" "{7}"
  1615. 10 00004955
  1616. 17 157
  1617. 6 3
  1618. 7 "november"
  1619. 18 0
  1620. 11 00004634
  1621. 17 158
  1622. 7 "01/11/"
  1623. 8 4
  1624. 17 159
  1625. 5 30
  1626. 8 7
  1627. 17 160
  1628. 16 BuildDate "{1}" "{2}" "{4}"
  1629. 13
  1630. 8 6
  1631. 17 161
  1632. 16 FillCalendar "{6}" "{7}"
  1633. 10 00004955
  1634. 17 162
  1635. 6 3
  1636. 7 "december"
  1637. 18 0
  1638. 11 00004823
  1639. 17 163
  1640. 7 "01/12/"
  1641. 8 4
  1642. 17 164
  1643. 5 31
  1644. 8 7
  1645. 17 165
  1646. 16 BuildDate "{1}" "{2}" "{4}"
  1647. 13
  1648. 8 6
  1649. 17 166
  1650. 16 FillCalendar "{6}" "{7}"
  1651. 10 00004955
  1652. 17 169
  1653. 0 3 "This is not a valid month.  Please try again."
  1654. 17 170
  1655. 0 31 9500 "{1}"
  1656. 17 171
  1657. 0 31 9501 "{2}"
  1658. 17 172
  1659. 10 00001875
  1660. 6 0
  1661. 15
  1662. 17 175
  1663. 9
  1664. 14 BuildDate
  1665. 29 0 Month1
  1666. 29 1 Year1
  1667. 29 2 NMonth
  1668. 29 3 BuildDate
  1669. 17 1
  1670. 29 4 CDate
  1671. 17 2
  1672. 29 5 NDate
  1673. 17 3
  1674. 29 6 NDays
  1675. 17 4
  1676. 29 7 WDate
  1677. 17 5
  1678. 29 8 DateRef
  1679. 17 6
  1680. 29 9 TYear
  1681. 17 8
  1682. 0 15 "{1}" 3 2
  1683. 13
  1684. 8 9
  1685. 17 9
  1686. 0 16 "{2}" "{9}"
  1687. 13
  1688. 8 4
  1689. 17 13
  1690. 7 "01/01/90"
  1691. 8 8
  1692. 17 16
  1693. 29 10 sDate
  1694. 0 286 "intl" "sdate" "win.ini"
  1695. 13
  1696. 8 10
  1697. 17 17
  1698. 16 ReplaceString "{4}" "/" "{10}"
  1699. 13
  1700. 8 4
  1701. 17 18
  1702. 0 16 "01" "{10}" "01" "{10}" "90"
  1703. 13
  1704. 8 8
  1705. 17 22
  1706. 0 769 "{4}" "{8}"
  1707. 13
  1708. 8 6
  1709. 17 23
  1710. 6 6
  1711. 5 86400
  1712. 4 0
  1713. 5 631224000
  1714. 3 0
  1715. 8 5
  1716. 17 24
  1717. 0 770 "{5}" "f"
  1718. 13
  1719. 8 7
  1720. 17 25
  1721. 0 20 "{7}" 1 " "
  1722. 13
  1723. 8 3
  1724. 17 26
  1725. 0 6 "[16420]{1}[9]{0}[9]{1}"
  1726. 6 3
  1727. 15
  1728. 17 27
  1729. 9
  1730. 14 FillCalendar
  1731. 29 0 FirstDayWeek
  1732. 29 1 LastDay
  1733. 29 2 FillCalendar
  1734. 17 1
  1735. 29 3 DayNum
  1736. 17 2
  1737. 29 4 Column
  1738. 17 3
  1739. 29 5 Row
  1740. 17 4
  1741. 29 6 Row2
  1742. 17 5
  1743. 29 7 Row3
  1744. 17 6
  1745. 29 8 R1
  1746. 17 7
  1747. 29 9 R2
  1748. 17 8
  1749. 29 10 R3
  1750. 17 9
  1751. 29 11 R4
  1752. 17 10
  1753. 0 6 "[16420][40][40][39]"
  1754. 17 11
  1755. 5 1
  1756. 8 3
  1757. 17 12
  1758. 6 0
  1759. 7 "Sunday"
  1760. 18 0
  1761. 11 00000484
  1762. 5 1
  1763. 8 8
  1764. 17 13
  1765. 5 6
  1766. 6 8
  1767. 18 2
  1768. 12 00000405
  1769. 10 00000471
  1770. 5 1
  1771. 6 8
  1772. 3 0
  1773. 8 8
  1774. 10 00000323
  1775. 17 14
  1776. 0 6 "{3}[39][39]"
  1777. 17 15
  1778. 6 3
  1779. 5 1
  1780. 3 0
  1781. 8 3
  1782. 10 00000372
  1783. 10 00001766
  1784. 17 17
  1785. 6 0
  1786. 7 "Monday"
  1787. 18 0
  1788. 11 00000721
  1789. 17 18
  1790. 0 6 "[39][39]"
  1791. 5 1
  1792. 8 8
  1793. 17 19
  1794. 5 5
  1795. 6 8
  1796. 18 2
  1797. 12 00000642
  1798. 10 00000708
  1799. 5 1
  1800. 6 8
  1801. 3 0
  1802. 8 8
  1803. 10 00000560
  1804. 17 20
  1805. 0 6 "{3}[39][39]"
  1806. 17 21
  1807. 6 3
  1808. 5 1
  1809. 3 0
  1810. 8 3
  1811. 10 00000609
  1812. 10 00001766
  1813. 17 23
  1814. 6 0
  1815. 7 "Tuesday"
  1816. 18 0
  1817. 11 00000967
  1818. 17 24
  1819. 0 6 "[39][39][39][39]"
  1820. 5 1
  1821. 8 9
  1822. 17 25
  1823. 5 4
  1824. 6 9
  1825. 18 2
  1826. 12 00000888
  1827. 10 00000954
  1828. 5 1
  1829. 6 9
  1830. 3 0
  1831. 8 9
  1832. 10 00000806
  1833. 17 26
  1834. 0 6 "{3}[39][39]"
  1835. 17 27
  1836. 6 3
  1837. 5 1
  1838. 3 0
  1839. 8 3
  1840. 10 00000855
  1841. 10 00001766
  1842. 17 29
  1843. 6 0
  1844. 7 "Wednesday"
  1845. 18 0
  1846. 11 00001227
  1847. 17 30
  1848. 0 6 "[39][39][39][39][39][39]"
  1849. 5 1
  1850. 8 10
  1851. 17 31
  1852. 5 3
  1853. 6 10
  1854. 18 2
  1855. 12 00001148
  1856. 10 00001214
  1857. 5 1
  1858. 6 10
  1859. 3 0
  1860. 8 10
  1861. 10 00001063
  1862. 17 32
  1863. 0 6 "{3}[39][39]"
  1864. 17 33
  1865. 6 3
  1866. 5 1
  1867. 3 0
  1868. 8 3
  1869. 10 00001113
  1870. 10 00001766
  1871. 17 35
  1872. 6 0
  1873. 7 "Thursday"
  1874. 18 0
  1875. 11 00001494
  1876. 17 36
  1877. 0 6 "[39][39][39][39][39][39][39][39]"
  1878. 5 1
  1879. 8 11
  1880. 17 37
  1881. 5 2
  1882. 6 11
  1883. 18 2
  1884. 12 00001415
  1885. 10 00001481
  1886. 5 1
  1887. 6 11
  1888. 3 0
  1889. 8 11
  1890. 10 00001330
  1891. 17 38
  1892. 0 6 "{3}[39][39]"
  1893. 17 39
  1894. 6 3
  1895. 5 1
  1896. 3 0
  1897. 8 3
  1898. 10 00001380
  1899. 10 00001766
  1900. 17 41
  1901. 6 0
  1902. 7 "Friday"
  1903. 18 0
  1904. 11 00001658
  1905. 17 42
  1906. 0 6 "[39][39][39][39][39][39][39][39][39][39]"
  1907. 17 43
  1908. 0 6 "{3}[39][39]"
  1909. 17 44
  1910. 6 3
  1911. 5 1
  1912. 3 0
  1913. 8 3
  1914. 10 00001766
  1915. 17 45
  1916. 6 0
  1917. 7 "Saturday"
  1918. 18 0
  1919. 11 00001766
  1920. 17 46
  1921. 0 6 "[39][39][39][39][39][39][39][39][39][39][39][39]"
  1922. 17 48
  1923. 0 6 "{3}[39][40][39]"
  1924. 17 49
  1925. 6 3
  1926. 5 1
  1927. 3 0
  1928. 8 3
  1929. 5 2
  1930. 8 4
  1931. 17 50
  1932. 5 5
  1933. 6 4
  1934. 18 2
  1935. 12 00001915
  1936. 10 00003002
  1937. 5 1
  1938. 6 4
  1939. 3 0
  1940. 8 4
  1941. 10 00001833
  1942. 5 1
  1943. 8 5
  1944. 17 51
  1945. 5 6
  1946. 6 5
  1947. 18 2
  1948. 12 00002007
  1949. 10 00002121
  1950. 5 1
  1951. 6 5
  1952. 3 0
  1953. 8 5
  1954. 10 00001925
  1955. 17 52
  1956. 0 6 "{3}[39][39]"
  1957. 17 53
  1958. 6 3
  1959. 5 1
  1960. 3 0
  1961. 8 3
  1962. 17 54
  1963. 6 3
  1964. 6 1
  1965. 18 3
  1966. 11 00002108
  1967. 6 2
  1968. 15
  1969. 9
  1970. 10 00001974
  1971. 17 58
  1972. 6 4
  1973. 5 5
  1974. 18 0
  1975. 6 3
  1976. 6 1
  1977. 18 5
  1978. 1 1
  1979. 11 00002838
  1980. 17 59
  1981. 0 4 0
  1982. 17 60
  1983. 0 6 "{3}"
  1984. 17 61
  1985. 6 3
  1986. 5 1
  1987. 3 0
  1988. 8 3
  1989. 17 62
  1990. 0 6 "[39]"
  1991. 17 63
  1992. 16 AdjustTable
  1993. 5 1
  1994. 8 6
  1995. 17 64
  1996. 5 7
  1997. 6 6
  1998. 18 2
  1999. 12 00002371
  2000. 10 00002825
  2001. 5 1
  2002. 6 6
  2003. 3 0
  2004. 8 6
  2005. 10 00002289
  2006. 17 65
  2007. 2 635 1
  2008. 5 1
  2009. 8 7
  2010. 17 66
  2011. 5 2
  2012. 6 7
  2013. 18 2
  2014. 12 00002479
  2015. 10 00002667
  2016. 5 1
  2017. 6 7
  2018. 3 0
  2019. 8 7
  2020. 10 00002397
  2021. 17 67
  2022. 29 12 TurnOn
  2023. 5 16
  2024. 8 12
  2025. 17 68
  2026. 29 13 TurnOff
  2027. 5 0
  2028. 8 13
  2029. 17 69
  2030. 29 14 StaySame
  2031. 5 64
  2032. 5 2
  2033. 3 0
  2034. 8 14
  2035. 17 70
  2036. 2 632 1 "{12}" "{13}" "{14}" 1 64
  2037. 17 71
  2038. 0 6 "[16423]"
  2039. 10 00002446
  2040. 17 73
  2041. 0 6 "[16421]"
  2042. 17 74
  2043. 0 6 "{3}"
  2044. 17 75
  2045. 6 3
  2046. 5 1
  2047. 3 0
  2048. 8 3
  2049. 17 76
  2050. 0 6 "[16423]"
  2051. 17 77
  2052. 6 3
  2053. 6 1
  2054. 18 3
  2055. 11 00002812
  2056. 17 78
  2057. 10 00002825
  2058. 10 00002338
  2059. 10 00002962
  2060. 17 81
  2061. 6 3
  2062. 6 1
  2063. 18 0
  2064. 11 00002932
  2065. 17 82
  2066. 0 6 "{3}[16420]"
  2067. 17 83
  2068. 10 00003002
  2069. 10 00002962
  2070. 17 85
  2071. 0 6 "{3}[39][40][39]"
  2072. 17 87
  2073. 6 3
  2074. 5 1
  2075. 3 0
  2076. 8 3
  2077. 10 00001882
  2078. 6 2
  2079. 15
  2080. 17 89
  2081. 9
  2082. 14 CheckLeap
  2083. 29 0 Month1
  2084. 29 1 Year1
  2085. 29 2 NMonth
  2086. 29 3 CheckLeap
  2087. 17 1
  2088. 29 4 CDate
  2089. 17 2
  2090. 29 5 NDate
  2091. 17 3
  2092. 29 6 NDays
  2093. 17 4
  2094. 29 7 WDate
  2095. 17 5
  2096. 29 8 DateRef
  2097. 17 6
  2098. 29 9 TYear
  2099. 17 7
  2100. 29 10 LNDate
  2101. 17 8
  2102. 29 11 LeapDate
  2103. 17 10
  2104. 0 15 "{1}" 3 2
  2105. 13
  2106. 8 9
  2107. 17 11
  2108. 0 16 "{2}" "{9}"
  2109. 13
  2110. 8 4
  2111. 17 12
  2112. 7 "01/01/90"
  2113. 8 8
  2114. 17 13
  2115. 0 769 "{4}" "{8}"
  2116. 13
  2117. 8 6
  2118. 17 14
  2119. 6 6
  2120. 5 86400
  2121. 4 0
  2122. 5 631224000
  2123. 3 0
  2124. 8 5
  2125. 17 15
  2126. 6 5
  2127. 5 2419200
  2128. 3 0
  2129. 8 10
  2130. 17 16
  2131. 0 770 "{10}" "a"
  2132. 13
  2133. 8 11
  2134. 17 17
  2135. 29 12 LeapNum
  2136. 0 20 "{11}" 1 "/"
  2137. 13
  2138. 8 12
  2139. 17 18
  2140. 6 12
  2141. 5 3
  2142. 18 0
  2143. 11 00000584
  2144. 17 19
  2145. 5 28
  2146. 8 3
  2147. 10 00000602
  2148. 17 21
  2149. 5 29
  2150. 8 3
  2151. 6 3
  2152. 15
  2153. 17 23
  2154. 9
  2155. 14 AdjustTable
  2156. 29 0 AdjustTable
  2157. 17 1
  2158. 2 634 1 -32768 -32768 936 -32768
  2159. 17 2
  2160. 0 6 "[38]"
  2161. 17 3
  2162. 2 634 1 -32768 -32768 936 -32768
  2163. 17 4
  2164. 0 6 "[40]"
  2165. 6 0
  2166. 15
  2167. 17 10
  2168. 9
  2169. 14 ReplaceString
  2170. 29 0 String
  2171. 29 1 Char
  2172. 29 2 ReplaceWith
  2173. 29 3 ReplaceString
  2174. 17 1
  2175. 29 4 spos
  2176. 5 1
  2177. 8 4
  2178. 17 2
  2179. 29 5 newname
  2180. 7 ""
  2181. 8 5
  2182. 17 3
  2183. 5 1
  2184. 11 00000344
  2185. 17 4
  2186. 29 6 txt
  2187. 0 20 "{0}" "{4}" "{1}"
  2188. 13
  2189. 8 6
  2190. 17 5
  2191. 6 6
  2192. 5 -1
  2193. 18 0
  2194. 11 00000266
  2195. 17 6
  2196. 10 00000344
  2197. 17 8
  2198. 0 16 "{5}" "{2}" "{6}"
  2199. 13
  2200. 8 5
  2201. 17 9
  2202. 6 4
  2203. 5 1
  2204. 3 0
  2205. 8 4
  2206. 10 00000138
  2207. 17 11
  2208. 0 14 "{5}"
  2209. 13
  2210. 5 1
  2211. 3 1
  2212. 0 807 "{5}" [X]
  2213. 13
  2214. 15
  2215. 9
  2216. 6 3
  2217. 15
  2218. 17 12
  2219. 9
  2220. DIALOG Heymon
  2221. -2134376448 6 93 58 136 50 "" "" "Monthly Calendar" 
  2222. FONT 8 "Helv" 
  2223. 4 6 27 10 1000 1342177280 "static" "Month :" 0 
  2224. 8 21 23 10 1001 1342177280 "static" "Year :" 0 
  2225. 31 4 52 40 9500 1344339979 "combobox" "" 0 
  2226. 31 19 52 40 9501 1344339979 "combobox" "" 0 
  2227. 91 3 40 14 1 1342242817 "button" "OK" 0 
  2228. 91 19 40 14 2 1342242816 "button" "Cancel" 0 
  2229. 00020717
  2230.