在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