| |
|
|
| | Не получается сравнить даты
Dim dney, spl
Dim plat As Long
plat = "01.03.2010"
plat = Format(plat, "dd.mm.yyyy")
If datearriv > plat Then
MsgBox ("Ура")
Me.Platez.Visible = True
End If
как правтьно сравнивать даты? | |
| |
| |
| |
|
|
| | а почему так
Dim plat As Long
а не так
Dim plat As date | |
| |
| |
|
|
| |
|
|
| |
Dim dney, spl
Dim plat As Date
plat = CDate("01.03.2010")
If datearriv > plat Then MsgBox ("Ура")
Me.Platez.Visible = True
End If
|
а что за datearriv? | |
| |
| |
| |
|
|
| | Цитата :
'Часто возникают вопросы типа "Почему у меня не работает выражение "select * from [Tbl] where [Date]=#" & me.Дата & "#" (или что то в этом роде).
'Чтобы корректно поставить условие по полю типа Date/Time
'необходимо всего лишь корректно отформатить значение -
'для Access формат даты должен быть следующим: #mm/dd/yy#. Для SQL-Server это выглядит чуть по-другому: yyyy-mm-dd (такой формат понимается при любых локальных настройках сервера).
'Для облегчения можно применять приведенную ниже функцию, например так: "select * from [Tbl] where [Date]=" & FormatSpDate(me.Дата)
'
'
Public Function FormatSpDate(ByVal parDate As Date, Optional bSQL As Boolean = False) As String
'If bSQL Then ' Для SQL-Server
' FormatSpDate = Format$(parDate, "'mm\.dd\.yyyy'")' Для SQL-Server
'или можно так
'FormatSpDate = Format$(parDate, "'yyyy\-mm\-dd'") ' Для SQL-Server
'Else
FormatSpDate = Format$(parDate, "\#mm\/dd\/yy\#")
'End If
End Function
|
| |
| |
| |
| |
|
|
| | Спасибо
в запросах работает в # #, а при присвоении значения на них ругается
буду пробовать с этой функцией | |
| |
| |
| |
|
|
| | datearriv это значение из поля формы
Dim plat As Date - почему-то ругается если так пишу
попробую на другой машине | |
| |
| |
| |
|
|
| | скорее всего оно ругается на вот это plat = "01.03.2010"
вы смотрели моё сообщение? | |
| |
| |
|
|
