Функция разности дат в VBA

Пользователь

Сообщений: 4 Регистрация: 01.01.1970

18.04.2010 11:49:58

Здравствуйте.

Есть такая процедура:
Sub Даты()
Dim dat1 As Date, dat2 As Date, Разность As Long

dat1 = #12/15/2007#
dat2 = #6/15/2010#

Разность = dat2 - dat1
MsgBox "Разность " & Разность

End Sub

Какую функцию надо использовать, чтобы получить Разность в годах (2,5 года)?

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#2 18.04.2010 12:10:38 Datediff Я сам - дурнее всякого примера! ...

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#3 18.04.2010 12:17:11 Sub dt() Dim dat1 As Date ' Declare variables. Dim dat2 As Date Dim Msg dat1 = #12/15/2007# dat2 = #6/15/2010# Msg = "Years bettween: " & DateDiff("m", dat1, #6/15/2010#) / 12 MsgBox Msg End Sub Я сам - дурнее всякого примера! ...

nil Пользователь Сообщений: 4 Регистрация: 01.01.1970	#4 18.04.2010 12:19:15 Ай, спасибо!

Kuzmich Пользователь Сообщений: 8189 Регистрация: 21.12.2012	#5 18.04.2010 12:49:59 Разница между датами в годах (дата1 должна быть более ранней) DateDiff("y", dat1, dat2) "d"- в полных днях "m"- в полных месяцах "md"- в днях без учета месяцев и лет "ym"- в месяцах без учета лет "yd"- в днях с начала года без учета лет

Читают тему