VFP编程(日期)

[复制链接]
查看11 | 回复0 | 2010-4-27 23:45:59 | 显示全部楼层 |阅读模式
clears=0for i=1 to 12if i<=9
d="0"+alltrim(str(i))+"/15/08" else
d=alltrim(str(i))+"/15/08"endifif dow(ctod(d))=3
s=s+1endifendfor?"2008年各月份中的15日有"+alltrim(str(s))+"天是星期二"
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行