>>7 
Imports System  
Imports System.Runtime.CompilerServices  
Imports System.Globalization  
 
Module Sample  
　Public Sub Main()  
　　Dim dt As Date  
 
　　Console.WriteLine(Now.To28HourString())  
 
　　dt = #12/31/2008 03:59:59#  
　　Console.WriteLine(dt.To28HourString())  
 
　　dt = #12/31/2008 04:00:00#  
　　Console.WriteLine(dt.To28HourString())  
　End Sub  
 
 
　<Extension()> _  
　Public Function To28HourString( _  
　　ByVal dt As Date) As String  
　　Return ToDiffHourString(dt, 4)  
　End Function  
 
　<Extension()> _  
　Private Function ToDiffHourString( _  
　　ByVal dt As Date, ByVal DiffHour As Byte) As String  
　　Return String.Format( _  
　　　CultureInfo.InvariantCulture, _  
　　　"{0:dddd}", _  
　　　dt - New TimeSpan(DiffHour, 0, 0), _  
　　　If(dt.Hour >= DiffHour, dt.Hour, dt.Hour + 24))  
　End Function  
End Module  
 
 
yyyy\/MM\/ddの所をddddと変更し、曜日を取り出そう 
とした所、日曜日ではなくSundayが出てきます。 
日曜日を出すにはどのようにすればいいでしょうか？ 
 
後、一日足した日を出すにはどのようにすればいいで 
しょうか？ 
上記のModule内で変更して可能でしたら、教えていた 
だけたらと思います。 
よろしくお願いしますm(_ _)m