1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

Как получить номер дня в году?

Тема в разделе "Visual Basic", создана пользователем wow@, 20 июн 2007.

Статус темы:
Закрыта.
  1. wow@

    wow@ Гость

    Репутация:
    0
    Здравствуйте!
    Как VBA можно получить номер дня в году? Допустим сегодня 20.06.2007, а функция или процедура должна возвратить 170. Мне предложили перевести дату в текстовый формат и вычитать из нее 1 января 2007 года так же в текстовом формате. Получится нужное число, но это будет работать только в этом году, а мне нужно обрабатывать массив данных за много лет. Как можно получить номер дня в году проще?
    Заранее спасибо, с уважением ко всем Владимир.
     
  2. Tanya

    Tanya Гость

    Репутация:
    0
    Sub nn()
    Debug.Print DateDiff("d", "1.01.2007", "21.06.2007")
    Debug.Print DateDiff("d", DateSerial(2007, 1, 1), DateSerial(2007, 6, 21))
    Debug.Print DateDiff("d", DateSerial(Year(Date), 1, 1), Date)
    End Sub

    DateDiff - вычисляет промежуток времени между двумя датами
    первый параметр - в чем возвращать результат, "d" - указывает, что в днях
    2 следующих параметра - даты между которыми определяется промежуток

    в результате выполнения будет распечатано:
    171
    171
    171
    при условии, что выполняли 21.06.2007 :)))

    DateSerial - определяет дату по параметрам: год, месяц, число
    Date - текущая дата
    Year - определяет год по указанной дате
     
  3. wow@

    wow@ Гость

    Репутация:
    0
    Большое спасибо, Tanya! Вы мне очень помогли.
    С уважением Владимир.
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей