Узнать день недели по дате

@Supernatural · Регистрация: 22.11.2010

Студворк — интернет-сервис помощи студентам

Приветствую!
Столкнулся с глупой незадачей. Использую Weekday, чтобы вычислить день недели по дате, но я где-то не прав. А где? В базе одна таблица, значение по умолчанию weekday (дата, 2)

mobile · 03.12.2015, 19:17

Выражение 3/12/2015 без кавычек и решеток понимается как последовательное деление и равно 0.004. Разумеется это не та дата которую Вы хотели. Если уж так нужно, используйте выражение, например

Visual Basic
1
2
3
=Weekday(CDate("3/12/2015");2)
или
=Weekday(#03.12.2015#;2)

@Supernatural · 03.12.2015, 19:20 **[ТС]**

mobile, только с этим разобрался...у меня дата не определяется из vba, то есть

Visual Basic
1
2
3
4
5
 If Weekday(temp, vbMonday) = code_day_of_week Then
                str = "Insert INTO Карточка_занятий Values (" & temp & "," & times & "," & subject & ",No)"
                MsgBox (Weekday(temp, vbMonday) & " " & temp)
                End If
                temp = temp + 1

переменная temp - Дата типа 03.12.2015

mobile · 03.12.2015, 19:37

А переменная code_day_of_week что из себя представляет? Судя по названию это число от 1 до 7, нет? Но если так, то Вы сравниваете несравнимое. Дата это тип Double, число с плавающей запятой. На сегодня целая часть даты равна 42341, что явно больше 7. Поставьте брейкпойнт на мсгбокс и посмотрите значения переменных в области отладки (Immediate) или просто наведя мышкой на переменную

@Supernatural · 03.12.2015, 20:39 **[ТС]**

mobile, code_day_of_week у меня правильное, это значение из таблицы. Меня нервирует функция weekday (дата, начало недели)

Visual Basic
1
Weekday(temp, vbMonday)

этот код в VB выдает левые цифры

mobile · 03.12.2015, 21:06

Да, виноват. Не туда посмотрел. :-(

Сообщение от Supernatural

Меня нервирует функция weekday (дата, начало недели)

WeekDay работает правильно если задать верную дату. Напишите перед показанным кодом распечатку даты в полном формате, чтобы удостовериться в ее правильности

Visual Basic
1
Debug.Print format(temp,"mmm dd yyyy w",2)

Посмотрите в области отладки, проверьте та ли дата, соответствует ли ожиданиям

@commun · 03.12.2015, 21:34

Visual Basic
1
 MsgBox (Weekday(#2/5/2013#, vbMonday)) '2, т.е вторник

@Supernatural · 03.12.2015, 21:39 **[ТС]**

commun, если бы все было так просто))) спасибо за совет, но я уже понял в чем был подвох

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

mobile 26826 / 14506 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	03.12.2015, 19:37
	А переменная code_day_of_week что из себя представляет? Судя по названию это число от 1 до 7, нет? Но если так, то Вы сравниваете несравнимое. Дата это тип Double, число с плавающей запятой. На сегодня целая часть даты равна 42341, что явно больше 7. Поставьте брейкпойнт на мсгбокс и посмотрите значения переменных в области отладки (Immediate) или просто наведя мышкой на переменную 0

@Supernatural 619 / 218 / 51 Регистрация: 22.11.2010 Сообщений: 1,781 Записей в блоге: 3
	03.12.2015, 21:39 [ТС]
	commun, если бы все было так просто))) спасибо за совет, но я уже понял в чем был подвох 0