doedit usage

[Jose Lerebours]

Jose Lerebours wrote:
[snip]
>  19  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -
> MTHDATEþ If: zw eq "00"                  'Cannot have this as a month
>        Then: zw=""; goto GETDATE
>  20  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>        þ If: not("01" co mid(zw,"1","1"))
>        Then: zw="0"{mid(zw,"1","1"){"/"{mid(zw,"2","1"); goto GETDATE

Insert this on line 21

  21  -------   -   -   -   -   -   -   -   -   -   -   -   -   -
        þ If: mid(zw,"1","2") gt "12" 

        Then: zw="0"{mid(zw,"1","1"){"/"{mid(zw,"2","1"); goto GETDATE 


>  21  -------   -   -   -   -   -   -   -   -   -   -   -   -
>        þ If:
>        Then: zw=zw{"/"; goto GETDATE

I neglected to check if month may be teens over 12 ...

Jose Lerebours
954-559-7186
http://www.fpgroups.com