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

[R]

Имеются 2 даты формата : 21 08 2007 17:04:59 и 20 08 2007 16:50:50

Как между ними вычислить разницу в секундах ? Данные лежат в двумерном массиве. Год не обязательно совпадает... Причем еще надо учесть високосные и не високосные годы...

[Хакер]

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

Dim a as date
dim b as date
dim c as date
a = #27/11/2007#
b = #18/03/2008#

c = b - a
MsgBox c

MsgBox DateDiff("s", a,b) + " секунд пройдёт между наступлением 27 ноября 2007 года, и 18 марта 2008."



исчерпывающий пример, я считаю.

[R]

Sorry -не предупредил: я в для WSH ваяю скрипт. Кто нить знает как там это сделать ?

[Хакер]

На каком языке? VBScript? АФАИК также, тоде As Date поубирай.

[alibek]

В WSH есть функция DateDiff.
Можно также использовать (d1-d2)*(24*60*60).
Таинственную функцию Date(a1,a2,a3) я не знаю.

[Хакер]

fixed. Таинственная функция Date, которую ты не знаешь, на самом деле являлась DateDiff-ом.

Тороплюсь.

[R]

Спасибо - реально выручили!
Только что проверил - високсоность тоже учитывает.... А как если я хочу разницу в минутах ? ведь месяц тоже - M...

[Хакер]

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

yyyy   Year
q    Quarter
m      Month
y      Day of year
d       Day
w        Weekday
ww       Week
h        Hour
n        Minute
s          Second

[R]

Common EvreBody - Черный брат !!! Ты ваще меня реально выручил!!!

[Денис]

Репер...

ADD: Все, кончаю флудить. Извините.

[Хакер]

Денис
И всё таки ты кончай флудить.

[R]

Блудить

[netdemon]

Public Function DateCalculate (dDate1 as Date, dDate2 as Date) as Date


Dim dRes as Date

If not IsDate(dDate1) or not IsDate(dDate2) Then
DateCalculate=0
Else
dRes=dDate2-dDate1
DateCalculate= format$(dRes,"ss")
End if

End Function

[tyomitch]

netdemon, вычитание дат неверно работает с датами разного знака (т.е. когда одна раньше 1900 г., а вторая позже)

[EUGY]

Вычисление високосности года (может кому надо):
~
Function IsYeaLeep(yea As Integer) As Boolean
IsYeaLeep = (((yea Mod 4 = 0) And (yea Mod 100 <> 0)) Or (yea Mod 400 = 0))
End Function
~

[alibek]

Тысячелетие не учитывается.