指定日期段中星期一至星期日各有几天

作者在 2015-03-11 11:43:14 发布以下内容
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 
日期时间问题 | 阅读 1224 次
文章评论,共0条
游客请输入验证码
浏览396883次