ビジュアルベーシックでカレンダーを操作する

Question

vbの下位時間形式にカレンダーを使用するにはどうすればよいですか？
達成しようとしていること：低い日付が土曜日で、日曜日が同じ週に金曜日に置き換えられる場合（日付= 2012-04-21または2012-04-22の日付= 2012-04-20の場合）。

2012-04-20T18：26：事前

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

のおかげではあまりにも多くのテストせずに一緒にいくつかのコードを入れて43

。

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