VBA и формула выдают разные значения даты. В чем подвох?

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

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

14.12.2014 12:24:10

в ячейке дата 23.09.2014

Код

формула =ДАТА(1900;МЕСЯЦ(B1);ДЕНЬ(B1)) выдает ответ 267
строчка кода
date1 = DateSerial(1900, DatePart("m", Cells(i, 2)), DatePart("d", Cells(i, 2)))
....DatePart("y", date1) выдает ответ 266

Все_просто Пользователь Сообщений: 1042 Регистрация: 10.06.2013	#2 14.12.2014 12:28:28 У меня такое ощущение, что в одном случае есть 29 февраля, а в другом нет (баг 1900 года, передавшийся еще с Лотуса). Изменено: Все_просто - 14.12.2014 12:28:42 С уважением, Федор/Все_просто

Johny Пользователь Сообщений: 2737 Регистрация: 21.12.2012	#3 14.12.2014 12:34:24 У меня везде 267. There is no knowledge that is not power

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

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

14.12.2014 13:16:21

Johny не вижу у вас применения ф-ции DatePart
м да, перемудрил можно было DatePart не использовать.

Код
DatePart("y", date1) выдает ответ 266 CInt(date1) выдает ответ 267