简单的本周算法
2005-08-04 10:33
267 查看
输出今天所在的周的全部,是个ASP的代码,不过,具有通用性 <%
Dim i, d
Dim interval
For i = 0 To 6
interval = i - WeekDay(Date) + 1
d = DateAdd("d", interval, Date)
Response.Write(d)
Response.Write("-----")
Response.Write(WeekDayName(Weekday(d)))
Response.Write("<br>")
Next
%>
Dim i, d
Dim interval
For i = 0 To 6
interval = i - WeekDay(Date) + 1
d = DateAdd("d", interval, Date)
Response.Write(d)
Response.Write("-----")
Response.Write(WeekDayName(Weekday(d)))
Response.Write("<br>")
Next
%>
相关文章推荐
- 【啊哈!算法】最快最简单的排序——桶排序
- 简单经典算法——欧几里德算法(求最大公约数)
- 用SHA1或MD5 算法加密数据(示例:对用户身份验证的简单实现)
- SBC音频编解码算法在无线音频传输上的简单应用
- js 中的 一些简单算法(二)之 双层循环—冒泡排序
- K最近邻结点算法(k-Nearest Neighbor algorithm)KNN——python简单实现
- 学习C#从俄罗斯方块开始(二)俄罗斯方块的规则和算法的简单实现
- 几个简单有趣的算法
- js 中的 一些简单算法(三)
- 简单易懂讲解simhash算法 hash 哈希
- 简单算法1
- 2017年6月2日,周结(十五),一些简单的算法题
- [算法][包围盒]AABB简单类
- [算法] 阿尔法-贝塔剪枝原理简单说明
- 杭电ACM几个简单的算法
- 模拟简单距离向量算法的更新——计算机网络作业
- 电影推荐系统设计思路(简单易懂的算法理解)
- python KNN算法的简单实现
- 简单算法之—斐波那契数列
- 简单探讨可牛影像软件中具有肤质保留功能的磨皮算法及其实现细节。