Как сравнить дату с переменной типа Date?

@trancelife · Регистрация: 02.09.2012

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

Есть форма, а на ней подчиненная таблица Table2. При нажатии на кнопку, нужно сравнить даты из поля Datee таблицы Table1, с заданной переменной Rock.

Visual Basic
1
2
3
4
5
Private Sub Кнопка0_Click()
Dim Rock As Date
Rock = #26/12/2012#
Table2.Form.RecordSource = "SELECT Datee FROM Table1 WHERE Datee=" & Rock & ""
End Sub

Когда я сохраняю этот код, значение Rock меняется на #12/26/2012# и при выполнении выдает ошибку "число содержит синтаксическую ошибку в выражении запроса 'Datee=26.12.201'. Ясно, что нужно поменять местами день и год в Datee, но как это сделать?

P.S. Если я делаю это руками, оно переставляется как и было.

@Андрэич · 26.12.2012, 22:54

Если правильно понял вопрос, попробуйте:

Visual Basic
1
2
3
4
5
6
Private Sub Кнопка0_Click()
Dim d As String
d = Me.Поле
Me.Table2.RecordSource = "SELECT Datee FROM Table1 WHERE Datee=#" _
& Format(d,"dd\/mm\/yy") &"#"
End Sub

@trancelife · 26.12.2012, 23:14 **[ТС]**

Вы берете переменную d из поля, а мне нужно программно. Можно даже как константу ее задать.

@Андрэич · 26.12.2012, 23:39

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

Вы берете переменную d из поля, а мне нужно программно. Можно даже как константу ее задать.

Код работает? Ошибки пишет?

@trancelife · 27.12.2012, 00:16 **[ТС]**

Я сам решил проблему. Просто явно задал формат Rock, а как ее сравнивать с датой из поля Datee, оно само разобралось.

PureBasic
1
2
3
4
5
Private Sub Êíîïêà0_Click()
Dim Rock As Date
Rock = #12/26/2012#
Table2.Form.RecordSource = "SELECT Datee FROM Table1 WHERE Datee= #" & Format(Rock, "mm\/dd\/yyyy") & "#"
End Sub

@alvk · 27.12.2012, 06:21

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

Rock = #26/12/2012#

Хорошо, что меняется, а то 26 месяц как-то крутовато

@studieren · 27.12.2012, 09:28

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

Я сам решил проблему. Просто явно задал формат Rock, а как ее сравнивать с датой из поля Datee, оно само разобралось.

PureBasic
1
2
3
4
5
Private Sub Êíîïêà0_Click()
Dim Rock As Date
Rock = #12/26/2012#
Table2.Form.RecordSource = "SELECT Datee FROM Table1 WHERE Datee= #" & Format(Rock, "mm\/dd\/yyyy") & "#"
End Sub

Как я понял Ваш код, Вам Rock нужен в качестве строки, а не даты. Стало быть Вам достаточно было объявить его как строка, ну и добавить кавычки. Тогда и формат вовсе не понадобится.

Visual Basic
1
2
3
4
5
Private Sub Êíîïêà0_Click()
Dim Rock As String
Rock = "#12/26/2012#"
Table2.Form.RecordSource = "SELECT Datee FROM Table1 WHERE Datee= " & Rock
End Sub

@alvk · 27.12.2012, 10:02

studieren, название топика однозначно говорит о date

@trancelife · 01.01.2013, 23:06 **[ТС]**

Еще один вопрос по датам: как дату из textbox привести к типу date и присвоить переменной?
В textbox я поставил формат поля - длинный формат поля. Попробовал так:

PureBasic
1
2
Dim Date1 As Date
Date1 = CDate(textbox1.text)

Ошибка type mismatch

И еще так:

PureBasic
1
2
Dim Date1 As Date
Date1 = Format(Cdate(textbox1.text), "mm\/dd\/yyyy")

Тоже самое.

Добавлено через 18 минут
Все, я нашел решение у американцев:

PureBasic
1
2
3
Dim Date1 As Date
textbox1.Value = Format(textbox1.Value, "dd/mm/yyyy")
Date1 = textbox1.Value

Добавлено через 11 минут
А еще правельнее будет так:

PureBasic
1
2
3
Dim Date1 As Date
Date1 = Format(Date1, "dd/mm/yyyy")
Date1 = textbox1.Value

Так сохранится дата в текстбоксе в виде длинного формата даты.

mobile · 01.01.2013, 23:18

Visual Basic
1
2
3
4
5
6
Dim Date1 As Date
if isdate(Me.textbox1) then 
  Date1 = Cdate(Me.textbox1)
Else
  Date1 = 0   'Присваивается, если в поле формы textbox1 не дата
End If

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@trancelife 1 / 1 / 2 Регистрация: 02.09.2012 Сообщений: 38
	26.12.2012, 23:14 [ТС]
	Вы берете переменную d из поля, а мне нужно программно. Можно даже как константу ее задать. 0

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,380
	27.12.2012, 10:02
	studieren, название топика однозначно говорит о date 0