'输入 Dim year As Integer = 2006 Dim week As Integer = 2 Dim weekDay As Integer = 3 Dim date1 As Date, date2 As Date date1 = New Date(year, 1, 1) date2 = date1.AddDays(-date1.DayOfWeek) date2 = date2.AddDays((week - 1) * 7) date2 = date2.AddDays(weekDay) 'date2即为此日期
'输入 Dim year As Integer = 2006 Dim week As Integer = 10 Dim weekDay As Integer = 3 Dim date1 As Date, date2 As Date date1 = New Date(year, 1, 1) date2 = date1.AddDays(-date1.DayOfWeek)'得到第一周的周日 date2 = date2.AddDays((week - 1) * 7)'第week周的周日 date2 = date2.AddDays(weekDay)'第week周的周weekDay 'date2即为此日期
谢了coldpanth(^War3^) ,viena() 我先研究研究..
To coldpanth(^War3^):DateTime没有AddWeeks方法,AddWeeks是Calendar的方法
2.第一步的DateTime.AddWeeks(10) 增加10周 AddWeeks静态方法
3.第二步的DateTime.AddDays(5) 增加五天,也就是星期五 AddDays静态方法
4.第三步的DateTime.ToString("yyyy-MM-dd"),就是你要得到的vb的不会写,C#写的估计楼主还得研究,所以把思路写出来
Dim year As Integer = 2006
Dim week As Integer = 2
Dim weekDay As Integer = 3 Dim date1 As Date, date2 As Date
date1 = New Date(year, 1, 1)
date2 = date1.AddDays(-date1.DayOfWeek)
date2 = date2.AddDays((week - 1) * 7)
date2 = date2.AddDays(weekDay)
'date2即为此日期
Dim year As Integer = 2006
Dim week As Integer = 10
Dim weekDay As Integer = 3 Dim date1 As Date, date2 As Date
date1 = New Date(year, 1, 1)
date2 = date1.AddDays(-date1.DayOfWeek)'得到第一周的周日
date2 = date2.AddDays((week - 1) * 7)'第week周的周日
date2 = date2.AddDays(weekDay)'第week周的周weekDay
'date2即为此日期