date format

[ken gray]

I'm trying to get a list of weekend dates to plug into a query prompt ie

"06052004","06062004"

Here is the code I'm using but it doesnt put the leading "0"s in the month and days. How can I do this?

Code:

Copy      Help

DATE d="06/01/2004"
SYSTEMTIME st
int x
str dd ddd tot
tot="'"
rep 30
    st.wDay=x
    d.add(&st)
    dd=d
    ddd.time(d "%A")
    if ddd="Sunday" or ddd="Saturday"
        tot+dd
        tot+"[34],[34]"
    x=1
tot.get(tot 0 ((len(tot))-2))
tot.findreplace("/" "")
outp tot

[Gintaras]

Code:

Copy      Help

DATE d="06/01/2004"
SYSTEMTIME st
str tot="''"
rep 30
,d.tosystemtime(st)
,if(st.wDayOfWeek=0 or st.wDayOfWeek=6)
,,tot.formata("%s'',''" _s.time(d "%m%d%Y"))
,d=d+1
tot.fix(tot.len-2)
out tot