1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

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

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

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

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

Количество дней между датами

Тема в разделе "Библиотеки скриптов", создана пользователем root, 12 апр 2007.

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

    root Гость

    Репутация:
    0
    Код:
    Function Betwindate(Byval d1 As Integer , Byval m1 As Integer , Byval y1 As Integer , Byval d2 As Integer , Byval m2 As Integer, Byval y2 As Integer ) As Long 
    Dim Result As Long
    Dim n1 As Long
    Dim n2 As Long
    
    If m1>2 Then
    m1 = m1+1
    Else
    m1 = m1+13
    y1 = y1-1
    End If
    n1 = 36525*y1\100+306*m1\10+d1
    If m2>2 Then
    m2 = m2+1
    Else
    m2 = m2+13
    y2 = y2-1
    End If
    n2 = 36525*y2\100+306*m2\10+d2
    Result = n2-n1
    
    Betwindate= Result
    
    
    End Function
     
  2. morpheus

    morpheus скриптописец

    Репутация:
    0
    Регистрация:
    7 авг 2006
    Сообщения:
    3.915
    Симпатии:
    1
    хм.... захожу в справку к собаке @Adjust
    и виже такою себе штуку -

    Tip
    Вапрос: чем Вам нее подходит вышеприведенный способ? :(
     
  3. Domino6

    Domino6 Гость

    Репутация:
    0
    Код:
    DateTimeDif=cdate(cdbl(DateTimeEnd)-cdbl(DateTimeBegin))
    Сразу вернёт разницу в датовом формате 02.03.1980 12:23:02

    т.е. разница составила

    0 лет
    3 месяца
    2 дня
    12 часов
    23 минут
    2 секунды
     
Загрузка...
Статус темы:
Закрыта.

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