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

[ParserDSS]

Всем доброго времени суток!

Есть вопрос.

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

Т.е., допустим, есть дата 04.01.2009 и есть дата 08.07.2009. Нужно рассчитать, сколько дней прошло с 04.01.2009 по 08.07.2009.

Даже нет мыслей, как это сделать

[Денис]

Юзай DateDiff
А вот и примерчик из справки:

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

Private Sub Form_Load()

    Dim TheDate As Date  ' Declare variables.
    Dim Msg
    TheDate = InputBox("Enter a date")
    Msg = "Days from today: " & DateDiff("d", Now, TheDate)
    MsgBox Msg

End Sub

[alibek]

Даже нет мыслей, как это сделать

Тогда тебе нечего делать на этом форуме.

[ParserDSS]

Юзай DateDiff
А вот и примерчик из справки:

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

Private Sub Form_Load()

    Dim TheDate As Date  ' Declare variables.
    Dim Msg
    TheDate = InputBox("Enter a date")
    Msg = "Days from today: " & DateDiff("d", Now, TheDate)
    MsgBox Msg

End Sub

Благодарю

[ParserDSS]

Даже нет мыслей, как это сделать

Тогда тебе нечего делать на этом форуме.

А вот это я сам решу.

[Viper]

Даже нет мыслей, как это сделать

Тогда тебе нечего делать на этом форуме.[/quote
А вот это я сам решу.

Ты уверен? Модераторы и админы могут с этим не согласиться.