VBNet - Форум - Дата -> день недели

Вопрос: Дата -> день недели Добавлено: 02.06.03 15:40

Автор вопроса: Svetlana | ICQ: 262385618

Пользователь вводит в текстовое поле дату. Как узнать какой это будет день недели. (Например: 02.06.03 - по этой дате получается понедельник.)

Ответить

Ответы Всего ответов: 4

Номер ответа: 1
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #1

Добавлено: 02.06.03 16:46

Format (yourdate, "ddd").

Вернёт: Sun, Mon, ..., Sat

Ответить

Номер ответа: 2
Автор ответа:

Alex&r

Вопросов: 10
Ответов: 105

Профиль | | #2

Добавлено: 03.06.03 09:29

Ну и соответственно:

Format (yourdate, "dddd") - вернёт "Понедельник", "Вторник", ....

Format (yourdate, "w") - возвращает порядковый номер дня недели

Ответить

Номер ответа: 3
Автор ответа:

hedgehog

ICQ: 175571327

Вопросов: 15
Ответов: 207

Web-сайт: ezh.ru
Профиль | | #3

Добавлено: 03.06.03 10:56

Вот тут у меня есть такое, дарю

Public Type SPWeekDayTypes
    WeekDayNumber As Byte
    RusName As String
    EngName As String
    RusShortName As String
    EngShortName As String
End Type

Public Function WeekdayInfo(Optional dDate As Date) As SPWeekDayTypes
    Dim WD As SPWeekDayTypes
    Dim A()
    A = Array( _
        "понедельник", "вторник", "среда", "четверг", "пятница", "суббота", "воскресенье", _
        "ПН", "ВТ", "СР", "ЧТ", "ПТ", "СБ", "ВС", _
        "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday", _
        "MO", "TU", "WD", "TH", "FR", "ST", "SU")
    If dDate = 0 Then dDate = Date
    With WD
        .WeekDayNumber = Weekday(dDate, vbMonday)
        .RusName = A(.WeekDayNumber - 1)
        .RusShortName = A(.WeekDayNumber + 6)
        .EngName = A(.WeekDayNumber + 13)
        .EngShortName = A(.WeekDayNumber + 20)
    End With
    WeekdayInfo = WD
End Function

Ответить

Номер ответа: 4
Автор ответа:

Svetlana

ICQ: 262385618

Вопросов: 43
Ответов: 205

Профиль | | #4

Добавлено: 03.06.03 11:58

БЛАГОДАРЮ ВСЕХ ЗА ПОМОЩЬ!

что-то я не догодалась функции VB посмотреть.. Видимо погода плохая так действует.

Ответить

Страница: 1 |