Excel vba разница дат

Я пытаюсь выяснить разницу между системной датой и датой, хранящейся на листе. Если разница между ними составляет > 30 дней, результат будет истинным, иначе результат будет ложным

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

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

Вы также можете использовать это:

в этом случае date1 будет CDate (Worksheets ( "даты" ). Ячейки (1,1)) и date2 будет sdate (либо с CDate, либо dim’d в качестве даты, как сказал Джефф.

"d" означает, что мы получаем разницу в днях. Вот несколько лет, месяцев и т.д. В VBA:

sDate – это STRING, которая не является реальной датой!

Преобразуйте свою строку в дату, используя либо функцию CDate(), либо функцию DateValue().

Однако в этом преобразовании есть оговорка. Эти преобразования будут обрабатывать следующие структуры:

Они не будут правильно преобразованы

И избегайте использования двухзначного года.

Я бы посоветовал использовать функцию DateSerial() для преобразования даты.

Итак, в отношении вашего кода, считая, что значения на листе yor являются фактическими датами (чтобы быть уверенным, просто выберите столбец и измените формат номера на GENERAL. Если это настоящие даты, каждый из них отобразит ЧИСТЫЙ НОМЕР. нажмите UNDO, чтобы получить формат даты).

Я пишу подпрограмму vba в Excel для хранения всех значений дат между двумя датами в одном массиве измерений, а затем проверяю каждое значение в диапазоне на другом листе.

Моя проблема заключается в том, что когда код захватывает значения даты (как целое число (или двойное число – в зависимости от того, какое значение он использует на самом деле)), он сохраняет значение на 1462 больше значения даты на листе.

Читайте также:  Решение транспортных задач методом северо западного угла

Я использую систему дат 1904 года, поэтому я могу использовать отрицательные значения времени, и я нахожусь в Австралии, поэтому даты имеют формат дд/мм/гггг.

На листе: 01.01.2009 = 42004

В коде: 01.01.2009 = 43466

Я понимаю, что разница такая же, как разница между значениями дат при использовании систем дат 1900 г. по сравнению с 1904 г., что заставляет меня поверить, что, возможно, VBA по умолчанию использует значение листа в 1900 г. и снова преобразовывает значение в 1904 г. при выполнении кода?

Эта рабочая книга настроена следующим образом:

Sheet1 содержит даты с 01.01.2009 по 25.01.2009 в Range("A1:A25") .

Sheet2 содержит 01.01.2009 в ячейке A1 и 01.10.2009 в ячейке A2 и командную commandbutton .

Вывод значений cell в столбцах 3 и 4 выглядит следующим образом (первые 5 строк для демонстрации):

Даты записываются в ячейку в виде краткого формата даты, а не числового значения.

Используя окно запугивания, которое я заметил ?cdbl(DateValue(now)) = 43496 (31/01/2019) что заставляет меня задаться вопросом, какие значения являются правильными для дат, использующих систему дат 1904 года? В соответствии со значениями в Sheet1 это должно быть 42034 .

Является ли проблема вызванной типом данных или функцией, которую я использовал, или как было задано ранее – лист преобразует их в 1904, когда значения присваиваются Sheet2 с VBA, это ошибка в Excel или что-то еще?

Я нашел вопрос с той же проблемой здесь, на mrexcel, однако в этом случае было принято решение изменить Excel для использования системы дат 1900 года или вычесть 1462 из значений в коде, которых я надеюсь избежать обоих.

2 ответа

5 Решение Vityata [2019-01-31 16:44:00]

В общем, система дат в VBA отличается от системы дат в Excel. Вы можете иметь эти 3 варианта системы дат:

  • Дата Excel
  • Дата Excel с 1904 собственности
  • Дата VBA
Читайте также:  Лучшие препараты от вшей и гнид отзывы

Это разница:

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

  • В Excel 1 конвертируется в 01. Jan. 1900;
  • В VBA 1 преобразуется в 31 декабря 1899 года;
  • В Excel с 1904 г. 1 преобразуется в 02. января 1904 г.;

Система 1904 года (или ее отсутствие) устанавливается для каждой рабочей книги. Таким образом, если у вас есть две книги в Excel, одна с 1904 и одна без нее, она распознает их соответственно. Система установлена в:

Файл> Параметры> Дополнительно> Использовать систему дат 1904

В общем, если есть вероятность, что кто-то каким-то образом изменит вашу рабочую книгу с неверной системой, рассмотрите возможность добавления этой проверки при открытии рабочей книги:

Если вам интересно, какую систему выбрать – я могу рекомендовать никогда не использовать 1904.

Для того, чтобы обеспечить решение моего примера упоминается коллега, если вы тусклый значения даты как date типа данных вопросов со значениями происходит лист → УВА → лист исчезает.

Я пытаюсь выяснить разницу между системной датой и датой, хранящейся на листе. Если разница между ними составляет> 30 дней, результат верен, иначе результат неверен

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

Создан 22 ноя. 11 2011-11-22 02:13:25 Ank

Какое значение даты хранится в электронной таблице? т.е. 1 апреля 2010 года, 01/30/2010 и т. д. – brettdj 22 ноя. 11 2011-11-22 10:18:59

В качестве текста, я думаю. mm/dd/yyyy – Ank 22 ноя. 11 2011-11-22 18:00:18

3 ответа

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

Вы также можете использовать это:

в этом случае date1 бы CDate и date2 будет SDATE (либо залит (Worksheets ("дата") Cells (1,1).) CDate или dim’d как дата, как сказал Джефф

Читайте также:  Где у резистора плюс и минус

«d» означает, что мы получаем разницу в днях Вот интервалы в течение многих лет, месяцев и т.д. в VBA.

Создан 22 ноя. 11 2011-11-22 19:47:48 Justin Self

Создан 22 ноя. 11 2011-11-22 02:16:10 Jeffrey L Whitledge

Я не знал, что что-то вроде CDate существует !! lol .. Позвольте мне попробовать .. – Ank 22 ноя. 11 2011-11-22 02:17:36

CDate (Рабочие листы («даты»). Ячейки (1,1)) дают несоответствие типа! – Ank 22 ноя. 11 2011-11-22 18:10:03

@Ankur – О, sDate также должна быть датой. Я вижу, что это строка. На самом деле, если вы измените sDate на дату, вам может не понадобиться подавать CDate. – Jeffrey L Whitledge 22 ноя. 11 2011-11-22 18:40:33

Спасибо .. Работает сейчас !! – Ank 22 ноя. 11 2011-11-22 20:36:26

SDATE это STRI NG, который НЕ является реальной датой!

Преобразуйте свою строку в дату, используя либо функцию CDate(), либо функцию DateValue().

Однако в этом преобразовании есть оговорка. Эти преобразования будут обрабатывать следующие структуры:

Они не будут правильно преобразованы

И избегать использования любого 2-значный год.

Я бы посоветовал использовать функцию DateSerial() для преобразования даты.

Так что в отношении вашего кода, считая, что значения на листе являются фактическими датами (чтобы быть уверенным, просто выберите столбец и измените формат номера на GENERAL. Если это настоящие даты, каждый из них отобразит ЧИСТЫЙ НОМЕР. ударить UNDO, чтобы получить ваш формат даты назад)

Создан 22 ноя. 11 2011-11-22 21:54:58 SkipVought

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

Adblock detector