在visual basic中使用日历

Question

如何在vb中使用较低时间格式的日历？
我试图达到的目标：如果较低的日期是星期六和星期日，则在同一周（如果日期= 2012-04-21或2012-04-22日期= 2012-04-20）将其替换为星期五。

2012-04-20T18：26：43

在此先感谢

Answer 1

Public Shared Function NoWeekend(ByVal day As DateTime) As DateTime 
    If day.DayOfWeek = DayOfWeek.Sunday Then Return day.AddDays(-2) 
    If day.DayOfWeek = DayOfWeek.Saturday Then Return day.AddDays(-1) 
    Return day 
End Function 

Answer 2

只是把一些代码，而无需太多的考验。

Sub Main 
    Dim dt as DateTime = FindDate(Convert.ToDateTime("2012-04-21T18:26:43"))  
    System.Diagnostics.Debug.WriteLine(dt.ToShortDateTime()) 
End Sub 

Public Function FindDate(ByVal inDate as DateTime) as DateTime 
    if (inDate.DayOfWeek = DayOfWeek.Saturday Or inDate.DayOfWeek = DayOfWeek.Sunday) then 
     while (inDate.DayOfWeek <> DayOfWeek.Friday) 
      inDate = inDate.AddDays(-1) 
     end while 
    end if 
    return inDate 
End Function