что нужно исправить чтобы была нормальная дата?

[virtuoz]

хочу сделать выборку по дате:

Код: Выделить всё

"SELECT * FROM Zapisi WHERE Datapriema>=" & _
    Text1 & " AND Datapriema<=" & Text2 & " order BY Nomer ASC"

вписываю дату в формате dd/mm/yyyy. а сравнение идет непонятно с чем, а чтобы работало нужно вводить дату в виде числа дней прошедших с 01.01.1900
например вместо 20/05/2006 и 21/05/2006 нужно вводить 38857 и 38858
почему так происходит и главное - как это исправить?

[Хакер]

Происходит это потому что так устроен мир

А исправить - ну а что тебе мешает переводить юзер-введённые данные в Text1/2 в datestamp формат, т.е. DateDiff'ом самому вычислять сколько прошло дней?

[virtuoz]

А исправить - ну а что тебе мешает переводить юзер-введённые данные в Text1/2 в datestamp формат, т.е. DateDiff'ом самому вычислять сколько прошло дней?

мешает то что я не умею, можно поподробнее как это сделать

[Хакер]

Код: Выделить всё


daysraz=DateDiff("d", SomeTextBoxThatContentADate, DateSerial(1900,1,1))


В daysraz будет число дней прошедшее от даты в SomeTextBoxThatContentADate до даты отсчёта (01.01.1900)

[vvs_adm]

To Хакер

Код: Выделить всё

MsgBox CLng(Date)

[alibek]

vvs_adm, ты немного неправ. Надо еще 2 отнять.

[Хакер]

vvs_adm
Ну так как-то неэстетично...

[vvs_adm]

alibek что-то я с ходу не найду, почему надо отнимать 2, а спать уже совсем сильно хочется может сам признаешься?

[vvs_adm]

vvs_adm
Ну так как-то неэстетично...

Зато дешево, надежно и практично

[virtuoz]

2 отнимать похоже нужно вот в этом случае

Код: Выделить всё

daysraz=DateDiff("d", SomeTextBoxThatContentADate, DateSerial(1900,1,1))

[virtuoz]

Хакер, большое спасибо за помощь

[alibek]

alibek что-то я с ходу не найду, почему надо отнимать 2, а спать уже совсем сильно хочется может сам признаешься?

Хм... Ну попробуй все-таки сам.
В крайнем случае сделай MsgBox Format$(CDate(0),"dd.mm.yyyy").

[vvs_adm]

alibek
msgbox cstr(cdate(0))
msgbox cstr(cdate(1))
msgbox cstr(cdate(2))

Вообще я имел в виду, что не нашел сразу описания, как хранится дата и т.д.

[Nicky]

To Хакер

Код: Выделить всё

MsgBox CLng(Date)

CLng, вообще-то, округляет

Код: Выделить всё

Function SQLDate(d As Date, Optional bTime As Boolean) As String
  SQLDate = "#" & Format$(d, "mm\/dd\/yyyy" & IIf(bTime, " Hh:Nn:Ss", "")) & "#"
End Function