vb.net - VisualBasicでのカレンダーの操作

Question

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

2012-04-20T18：26：43

前もって感謝します

Answer 1

あまりテストせずにコードをまとめるだけです。

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 

Answer 2

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