Clear 
Date1={^2013.05.12}
Date2={^2013.06.10}
Local AlnDow[7] && 存储星期N的天数
Store 0 To AlnDow
Do While Date1<=Date2
    Date1=Date1+1
    AlnDow[Dow(date1,2)]=AlnDow[Dow(date1,2)]+1
EndDo 
For lnI=1 To 7
    ? "星期"+Substr("一二三四五六日",lnI*2-1,2)+" "+Transform(AlnDow[lnI])+" 天"
EndFor