Функция VBA DateDiff

Функция DATEDIFF в VBA — это встроенная функция в VBA, которая также классифицируется как функция даты и времени в VBA, эта функция используется для получения разницы между двумя датами, эта функция принимает три аргумента, первый аргумент — это часть разницы, которую мы хотим которые могут быть годами, месяцами или секундами и двумя датами, а результатом является целое число.

Функция VBA DateDiff

Вы можете свободно использовать это изображение на своем веб-сайте, в шаблонах и т. Д. Пожалуйста, предоставьте нам ссылку с указанием авторстваКак указать авторство?Ссылка на статью должна быть гиперссылкой
Например:
Источник: Функция VBA DateDiff (wallstreetmojo.com)

Функция DATEDIFF в VBA

Функция DATEDIFF в VBA вычисляет разницу между двумя датами в днях, месяцах, кварталах и годах.

В Excel найти разницу между двумя датами можно разными способами. Вам не нужна специальная формула для вычисления разницы между двумя датами.

Например, посмотрите на изображение ниже.

пример 1

Если мы хотим рассчитать разницу между этими двумя датами, мы можем просто вычесть дату 1 из даты 2.

пример 1-1

Это дало нам разницу между двумя датами в несколько дней. Это проблема с этой общей формулой. Если нам нужна разница в месяцах, годах, кварталах и т. д.… она не может дать.

В этой статье мы покажем вам, как использовать эту функцию DateDiff в VBA.

Что такое функция DATEDIFF в Excel VBA?

DATEDIFF в VBA означает «Разница дат между двумя датами».

Эта функция может дать нам номер временного интервала между двумя датами. Когда мы хотим найти разницу между двумя датами, мы можем найти ее в днях, неделях, месяцах, кварталах и т. д.

Чтобы понять функцию, посмотрите на приведенный ниже синтаксис функции.

DateDiff

Интервал: Это не что иное, как то, как вы хотите рассчитать разницу в дате. Будь то в днях, месяцах, неделях, кварталах и т. д.… Ниже приведен их список.

Датадиф 1

Дата 1: На каком первом свидании вы хотите найти разницу.

Дата 2: На какой второй дате вы хотите найти отличие от даты 1.Дата 1: На каком первом свидании вы хотите найти разницу.

Вот формула Дата 2 — Дата 1.

[First Day of Week]: Какой первый день недели? Мы можем согласиться со следующими аргументами.

датадифф 2

[First Week Of the Year]: Какая первая неделя года. Мы можем ввести следующие аргументы.

датадифф 3

Примеры функции DATEDIFF в Excel VBA

Ниже приведены примеры Excel VBA DateDiff.

Вы можете скачать этот шаблон функции VBA DateDiff здесь — Шаблон функции VBA DateDiff

Пример № 1. Чтобы найти разницу в днях

Предположим, у вас есть две даты: «15-01-2018» и «15-01-2019». Давайте найдем всевозможные различия между этими двумя датами.

Шаг 1: Сначала создайте имя макроса.

Код:

Sub DateDiff_Example1()

End Sub

Пример VBA DateDiff 1


Шаг 2: Определите две переменные как дату.

Код:

Sub DateDiff_Example1()

   Dim Date1 As Date
   Dim Date2 As Date

End Sub
Пример VBA DateDiff 1-1

Шаг 3: Теперь для переменной Date1 назначьте «15-01-2018», а для переменной Date2 назначьте «15-01-2019».

Код:

Sub DateDiff_Example1()

   Dim Date1 As Date
   Dim Date2 As Date

   Date1 = "15-01-2018"
   Date2 = "15-01-2019"

End Sub
Пример VBA DateDiff 1-2

Шаг 4: Теперь, чтобы сохранить результаты, определите еще одну переменную как Long.

Код:

Sub DateDiff_Example1()

   Dim Date1 As Date
   Dim Date2 As Date
   
   Dim Result As Long

   Date1 = "15-01-2018"
   Date2 = "15-01-2019"
End Sub
Пример VBA DateDiff 1-3

Шаг 5: Теперь присвойте значение этой переменной с помощью функции DATEDIFF в VBA.

Код:

Sub DateDiff_Example1()

   Dim Date1 As Date
   Dim Date2 As Date

   Dim Result As Long

   Date1 = "15-01-2018"
   Date2 = "15-01-2019"

Result =DateDiff(

End Sub
Пример VBA DateDiff 1-4

Шаг 6: Первый аргумент в том, какая разница нам нужна между этими двумя датами. Допустим, нам нужно найти количество дней, поэтому укажите аргумент как «D».

Код:

Sub DateDiff_Example1()
    
    Dim Date1 As Date
    Dim Date2 As Date

    Dim Result As Long

   Date1 = "15-01-2018"
   Date2 = "15-01-2019"

   Result =DateDiff("D",

End Sub
Пример VBA DateDiff 1-5

Шаг 7: Что такое первая дата, чтобы найти разницу. Наша первая дата — «15-01-2018», которую мы уже присвоили переменной «Date1». Поэтому укажите здесь имя переменной.

Код:

Sub DateDiff_Example1()

    Dim Date1 As Date
    Dim Date2 As Date

    Dim Result As Long

    Date1 = "15-01-2018"
    Date2 = "15-01-2019"

    Result =DateDiff("D",Date1,

End Sub
Пример VBA DateDiff 1-6

Шаг 8: Что такое вторая дата, чтобы найти разницу. Вторая дата — «15-01-2019», которая содержит значение через переменную «Date2».

Код:

Sub DateDiff_Example1()

    Dim Date1 As Date
    Dim Date2 As Date

    Dim Result As Long

    Date1 = "15-01-2018"
    Date2 = "15-01-2019"

    Result = DateDiff("D", Date1, Date2)

End Sub
Пример VBA DateDiff 1-7

Шаг 9: Игнорируйте два последних параметра. Теперь присвойте значение переменной «Результат» через Окно сообщения VBAОкно сообщений VBAФункция VBA MsgBox — это функция вывода, которая отображает обобщенное сообщение, предоставленное разработчиком. Этот оператор не имеет аргументов, и персонализированные сообщения в этой функции записываются в двойных кавычках, а для значений предоставляется ссылка на переменную.читать далее.

Код:

Sub DateDiff_Example1()

    Dim Date1 As Date
    Dim Date2 As Date
    Dim Result As Long

    Date1 = "15-01-2018"
    Date2 = "15-01-2019"

    Result = DateDiff("D", Date1, Date2)

    MsgBox Result

End Sub
Пример VBA DateDiff 1-8

Теперь запустим код с помощью клавиши F5 или вручную, мы получим разницу между этими двумя датами в количестве дней.

Пример 1-9

Итак, с «15-01-2018» по 15-01-2019 точная разница составляет один год, поэтому в итоге мы получили 365 дней.

Таким образом, мы можем найти разницу между двумя датами во временных интервалах.

Пример № 2 — найти разницу в месяцах

Код:

Sub DateDiff_Example2()

   Dim Date1 As Date
   Dim Date2 As Date
   
   Dim Result As Long

   Date1 = "15-01-2018"
   Date2 = "15-01-2019"

   Result = DateDiff("M", Date1, Date2)

   MsgBox Result
End Sub
Пример 2

Запустите этот код, используя клавишу F5, или вы можете запустить вручную, чтобы показать результат, как показано ниже.

Пример 2-1

Пример № 3 — найти разницу в годах

Код:

Sub DateDiff_Example3()

   Dim Date1 As Date
   Dim Date2 As Date

   Dim Result As Long

  Date1 = "15-01-2018"
  Date2 = "15-01-2019"

  Result = DateDiff("YYYY", Date1, Date2)

  MsgBox Result

End Sub
Пример 3

Запустите этот код с помощью клавиши F5 или вручную, чтобы увидеть результат.

Пример 3-1

Назначение как практика

Надеюсь, вы поняли функцию VBA DATEDIFF. Взгляните на приведенное ниже домашнее задание для вас. Найдите разницу между указанными ниже датами в «Месяцах».

Пример 4

Если вы не нашли способ, ниже приведен готовый код для вас.

Код:

Sub Assignment()

    Dim k As Long

    For k = 2 To 8
        Cells(k, 3).Value = DateDiff("M", Cells(k, 1), Cells(k, 2))
    Next k

End Sub
Пример 4-1

Вы можете запустить этот код вручную или нажать клавишу F5, чтобы увидеть результат.

Пример 4-2

УЗНАТЬ БОЛЬШЕ >>

Похожие записи

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

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