调试易

发一个我做的.  '*******************************************************************************
    '* @outline      weekdayを得る
    '* @author       エイジス株式会社     zhangln 2006/04/21
    '* @param        dDate        (I/ )期日
    '* @return                     String
    '* @説明文        weekdayを得る
    '*******************************************************************************
    Public Function getYob(ByVal sDate As String) As String
        Dim sWeek As String
        Dim dteTemp As Date
        Try
            dteTemp = CDate(sDate)
            Select Case dteTemp.DayOfWeek
                Case DayOfWeek.Monday
                    sWeek = "月曜日"
                Case DayOfWeek.Tuesday
                    sWeek = "火曜日"
                Case DayOfWeek.Wednesday
                    sWeek = "水曜日"
                Case DayOfWeek.Thursday
                    sWeek = "木曜日"
                Case DayOfWeek.Friday
                    sWeek = "金曜日"
                Case DayOfWeek.Sunday
                    sWeek = "土曜日"
                Case DayOfWeek.Sunday
                    sWeek = "日曜日"
            End Select
            Return sWeek
        Catch ex As Exception
            Return "dDate error"
        End Try
    End Function

dim dtm as dateTime = "2005/07/26"
messagebox.show(dtm.dayofweek)

C#:DateTime dt =DateTime.Now;
MessageBox.Show(dt.DayOfWeek.ToString());

C#            DateTime dtm =Convert .ToDateTime ( "2006/05/11");
            MessageBox.Show(Convert .ToString ( dtm .DayOfWeek) );

DataTime dt;
dt.ToString("ddd");