Срванить 2 даты

[Sirik]

Как мне сравнить 2 даты?
Например: 11-04-2004 и 01-01-2005 (вот так: 11-04-2004 < 01-01-2005 )

Я пробовал простым сравнением - ничего не получается...

[xolod]

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

Private Sub CheckDate()
  If #11-04-2004# < #01-01-2005# Then
    MsgBox "Дата 2 больше Даты 1"
  Else
    MsgBox "Наоборот"
  End If
End Sub


[Sirik]

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

Private Sub CheckDate()
  If #11-04-2004# < #01-01-2005# Then
    MsgBox "Дата 2 больше Даты 1"
  Else
    MsgBox "Наоборот"
  End If
End Sub


Т.е. ты хочешь сказать что надо сравнивать не Date$ а Date? Маловероятно...

[Tuco]

2 Sirik:
а ты возьми, да и попробуй. У меня этот метод вполне работает...

[Sirik]

ok

[Olga]

Быстрее всего перевести дату в Double, а потом уже сравнивать два числа типа Double

[Sedge]

А про DateDiff все уже забыли?

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

If DateDiff("d", "12.09.2004", "12.08.2003") < 0 Then Debug.Print "12.08.2003 < 12.09.2004"


[Sirik]

А про DateDiff все уже забыли?

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

If DateDiff("d", "12.09.2004", "12.08.2003") < 0 Then Debug.Print "12.08.2003 < 12.09.2004"


Что означает первый параметр? (d)

[Sedge]

Что означает первый параметр? (d)

Что разница между датами вычисляется в днях.

[Sirik]

2 Sedge
Твой вариант самый лучший.
Всем спасибо

[Andrey Fedorov]

Не вы и извращаетесь:

1.
Какой вообще великий смысл в сравнении двух констант:

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

If #11-04-2004# < #01-01-2005# Then

Хотя оно и будет работать, но ведь это всегда True.

2.

Быстрее всего перевести дату в Double, а потом уже сравнивать два числа типа Double

А нафига? Неужто просто переменные типа даты сравнить нельзя?

--------------------------
Правильный ответ-то примитивен:

Просто сравнить две переменных типа даты:

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

If d1 > d2 Then

Или переменную с константой:

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

If d1 > #1/1/2004# Then

[Sirik]

2 Andrey Fedorov
Насчёт последнего: ты не прав:
вот смотри MsgBox "11-11-2004" > "01-01-2005" позывает true, хотя это не так.
Так что вариант Sedge привильный

[Andrey Fedorov]

Насчёт последнего: ты не прав:
вот смотри MsgBox "11-11-2004" > "01-01-2005" позывает true, хотя это не так.

Да потому что ты сравниваешь константы строкового типа.

Напиши так:

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

MsgBox #11-11-2004# > #01-01-2005#

[Ennor]

...
Напиши так:

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

MsgBox #11-11-2004# > #01-01-2005#

Или так:

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

MsgBox CDate("11-11-2004") > CDate("01-01-2005")