Loading ...
Sorry, an error occurred while loading the content.

Expand Messages
  • graham lawrence
    Peter, From one old guy to another, I think this will do what you want, at least thru 2099. ^!Set %yr%=2000 ^!Set %dy%=7 ^!Set %feb%=29 ^!Set %swa%=1 ^!Set
    Message 1 of 1 , Sep 16, 2010
    • 0 Attachment
      Peter,

      From one old guy to another, I think this will do what you want, at least thru 2099.

      ^!Set %yr%=2000
      ^!Set %dy%=7
      ^!Set %feb%=29
      ^!Set %swa%=1
      ^!Set %opt%=
      :Loop
      ^!Set %opt%=^%opt%^%dy%^%feb%;
      ^!Set %feb%=28
      ^!Inc %yr%
      ^!Inc %dy% ^%swa%
      ^!Set %swa%=0
      ^!If ^%yr%>2099 Endjob
      ^!If ^$Calc(^%yr%MOD4)$>0 Loopa
      ^!Inc %swa%
      ^!Inc %feb%
      :Loopa
      ^!Inc %dy%
      ^!If ^%dy%<8 Skip
      ^!Dec %dy% 7
      ^!Goto Loop
      :Endjob
      ^!SetArray %ArrayYears%=^$StrDeleteRight("^%opt%";1)$


      Graham Lawrence




      [Non-text portions of this message have been removed]
    Your message has been successfully submitted and would be delivered to recipients shortly.