大马资讯论坛 - 马来西亚中文资讯平台

标题: For Loop里用日期增加方法 [打印本页]

---

作者: 资讯王    时间: 2009-8-15 06:52
标题: For Loop里用日期增加方法

1. Dim dateStart As New DateTime(2007, 10, 1)
   
2. Dim dateEnd As New DateTime(2007, 10, 30)
   
3. Dim intDays As Integer = dateEnd.Subtract(dateStart). Days
   
4. 
   
5. For i As Integer = 0 To intDays
   
6. ' add i days to dateStart
   
7. ' print the date
   
8. Next

复制代码

---

欢迎光临 大马资讯论坛 - 马来西亚中文资讯平台 (http://freeinfo.com.my/)

Powered by Discuz! X3.3