Формула с датой

@Оксана33 · Регистрация: 03.12.2014

Author24 — интернет-сервис помощи студентам

Дорогие форумяне! помогите с формулой

нужно высчитывать разницу между текущим днем и прошлым

если в ячейку А1 загнать формулу TODAY(), а в А2 - Date, то нет проблем.... ActiveCell=А1-А2... все работает

но если формулу TODAY() внести в ActiveCell сразу, то уже не выходит

Код

ActiveCell.FormulaR1C1 = "=TODAY()-" & Cells(2, 1)

если считать так

Код

ActiveCell.FormulaR1C1 = "=TODAY()-" & 3

, то тоже считает, но саму ячейку с формулой не хочет

@aequit · 13.03.2017, 17:30

Visual Basic

1
2
3

Public Function RaznitcaDat(a, b)
    RaznitcaDat = DateDiff("d", a, b)
End Function

@pashulka · 13.03.2017, 18:37

Сообщение от Оксана33

нужно высчитывать разницу между текущим днем и прошлым

Разница между текущим днем и прошлым, всегда = 1 день (без учёта часов, минут и секунд)

Если же в указанной ячейке введён не прошлый день, то ввести формулу, возвращающую их разницу, можно, например, так :

Visual Basic

1	ActiveCell = "=TODAY()-" & CDbl(Cells(2, 1))

или

Visual Basic

1	ActiveCell = "=TODAY()-" & Cells(2, 1).Value2

@Оксана33 · 17.03.2017, 20:37 **[ТС]**

pashulka, объясни пожалуйста почему CDbl - он конвертирует его в число, которое Эксель интерпретирует как дату?

@pashulka · 17.03.2017, 20:42

Потому, что дата это всего лишь количество(читайте число) дней, прошедших с 1 января 1900 года (или 2 января 1904 года, если в Excel установлена соответствующая опция)

@Оксана33 · 17.03.2017, 21:27 **[ТС]**

но я не поняла при чем тут Double

Добавлено через 1 минуту
aequit, можно ли "d" заменить DateInterval.Day?

@aequit · 17.03.2017, 21:39

Сообщение от Оксана33

можно ли "d" заменить DateInterval.Day?

"d" это и есть строковое значение DateInterval.Day
https://msdn.microsoft.com/ru-... s.90).aspx

@pashulka · 17.03.2017, 21:50

Visual Basic

1
2
3

[A1].Value = Now
[A1].NumberFormat = "General"
MsgBox TypeName([A1].Value)

@Оксана33 · 17.03.2017, 22:04 **[ТС]**

я там уже была) но если в формуле меняешь на DateInterval.Day то не выходит

Добавлено через 7 минут
я просто не пойму как Double это делает с датой, я думала что он предназначен для чисел с запятыми

@pashulka · 17.03.2017, 22:18

Ещё раз повторю, дата это и есть число, например, 17.03.2017 12:00 это 42811,5

Visual Basic

1 2	MsgBox CDate(42811.5) MsgBox CDbl(#3/17/2017 12:00:00 PM#)

@Оксана33 · 18.03.2017, 12:07 **[ТС]**

я не пойму... cdbl для того, чтобы преобразовать в число? я думала, что он для другого служит

тогда почему не CLng или CSng, что для меня более логично бы звучало или даже CInt, но только с ним какая то засада - в экселе преобразовует, а вот в vba - нет

@pashulka · 18.03.2017, 16:15

В Excel нет стандартной функции рабочего листа CInt, а есть Int(Целое)
А что касается VB(A), то функция CInt, при конвертации даты в число, во-первых отбросит время(дробную часть), а во-вторых, будет работать только с датами до 16.09.1989 (включительно)

@Оксана33 · 21.03.2017, 18:42 **[ТС]**

ясно, спасибо за подробный ответ)

Формула с датой

Решение

Решение

Решение

@Оксана33 1 / 1 / 0 Регистрация: 03.12.2014 Сообщений: 329
		1
	Формула с датой 13.03.2017, 15:27. Показов 4217. Ответов 12 Метки нет (Все метки) Дорогие форумяне! помогите с формулой нужно высчитывать разницу между текущим днем и прошлым если в ячейку А1 загнать формулу TODAY(), а в А2 - Date, то нет проблем.... ActiveCell=А1-А2... все работает но если формулу TODAY() внести в ActiveCell сразу, то уже не выходит Код ActiveCell.FormulaR1C1 = "=TODAY()-" & Cells(2, 1) если считать так Код ActiveCell.FormulaR1C1 = "=TODAY()-" & 3 , то тоже считает, но саму ячейку с формулой не хочет 0

@Оксана33 1 / 1 / 0 Регистрация: 03.12.2014 Сообщений: 329
	17.03.2017, 20:37 [ТС]	4
	pashulka, объясни пожалуйста почему CDbl - он конвертирует его в число, которое Эксель интерпретирует как дату? 0

@pashulka 4135 / 2239 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	17.03.2017, 20:42	5
	Потому, что дата это всего лишь количество(читайте число) дней, прошедших с 1 января 1900 года (или 2 января 1904 года, если в Excel установлена соответствующая опция) 1

@Оксана33 1 / 1 / 0 Регистрация: 03.12.2014 Сообщений: 329
	17.03.2017, 21:27 [ТС]	6
	но я не поняла при чем тут Double Добавлено через 1 минуту aequit, можно ли "d" заменить DateInterval.Day? 0

@aequit 224 / 135 / 45 Регистрация: 08.09.2012 Сообщений: 283 Записей в блоге: 1
	17.03.2017, 21:39	7
	Сообщение от Оксана33 можно ли "d" заменить DateInterval.Day? "d" это и есть строковое значение DateInterval.Day https://msdn.microsoft.com/ru-... s.90).aspx 1

@Оксана33 1 / 1 / 0 Регистрация: 03.12.2014 Сообщений: 329
	17.03.2017, 22:04 [ТС]	9
	я там уже была) но если в формуле меняешь на DateInterval.Day то не выходит Добавлено через 7 минут я просто не пойму как Double это делает с датой, я думала что он предназначен для чисел с запятыми 0

@Оксана33 1 / 1 / 0 Регистрация: 03.12.2014 Сообщений: 329
	18.03.2017, 12:07 [ТС]	11
	я не пойму... cdbl для того, чтобы преобразовать в число? я думала, что он для другого служит тогда почему не CLng или CSng, что для меня более логично бы звучало или даже CInt, но только с ним какая то засада - в экселе преобразовует, а вот в vba - нет 0

@pashulka 4135 / 2239 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	18.03.2017, 16:15	12
	Сообщение было отмечено Оксана33 как решение Решение В Excel нет стандартной функции рабочего листа CInt, а есть Int(Целое) А что касается VB(A), то функция CInt, при конвертации даты в число, во-первых отбросит время(дробную часть), а во-вторых, будет работать только с датами до 16.09.1989 (включительно) 1

@Оксана33 1 / 1 / 0 Регистрация: 03.12.2014 Сообщений: 329
	21.03.2017, 18:42 [ТС]	13
	ясно, спасибо за подробный ответ) 0