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

 找回密码
 注册
搜索

For Loop里用日期增加方法

[复制链接]
发表于 2009-8-15 06:52:44 | 显示全部楼层 |阅读模式
  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. For i As Integer = 0 To intDays
  5. ' add i days to dateStart
  6. ' print the date
  7. Next
复制代码

手机版|大马资讯论坛  

GMT+8, 2024-3-29 06:17 , Processed in 0.019800 second(s), 13 queries , File On.

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表