Разница во времени - Microsoft Office Excel

supergood · 18.10.2011, 16:12

Друзья. помогите с помощью макроса от даты 1 отнять дату 2. и получить значение что в 3-й ячейке
заранее благодарен

Казанский · 18.10.2011, 16:46

1. Получение разности дат из ячеек:

Код:

d = CDate([A2]) - CDate([B2])

2. Получение формата как в ячейке. В VBA нет формата [ч]:мм:сс, поэтому приходится использовать функцию листа:

Код:

d = WorksheetFunction.Text(d, "[h]:mm:ss")
Debug.Print d

Другой путь - высчитывать количество часов: http://www.mrexcel.com/forum/showthread.php?t=32296

supergood · 18.10.2011, 17:56

спасибо большое.
работает

18.10.2011, 16:46	#2
Казанский Старожил Регистрация: 31.12.2010 Сообщений: 2,133	1. Получение разности дат из ячеек: Код: `d = CDate([A2]) - CDate([B2])` 2. Получение формата как в ячейке. В VBA нет формата [ч]:мм:сс, поэтому приходится использовать функцию листа: Код: `d = WorksheetFunction.Text(d, "[h]:mm:ss") Debug.Print d` Другой путь - высчитывать количество часов: http://www.mrexcel.com/forum/showthread.php?t=32296 exceleved@yandex.ru Яндекс.Деньги: 410011500007619

18.10.2011, 17:56	#3
supergood Пользователь Регистрация: 26.04.2010 Сообщений: 32	спасибо большое. работает