Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Visual Basic .NET Публикация через VS2010: не удается создать веб-узел https://www.cyberforum.ru/ vb-net/ thread926027.html
Доброго времени суток! Помогите разобраться с проблемой: "Ошибка 1 Не удалось подключиться к "ftp://***/". Ошибка: Не удается создать веб-узел "ftp://***". Компоненты взаимодействия с серверными...
VB.Net Datagridview нет доступа к данным в одной колонке Visual Basic .NET
Мне надо заполнить Datagridview, данные в котором могут быть отредактированы пользователями. Программка простая: SqlStatement = "Select dk_key AS 'SUIT #', pld_desc As 'PLEADING DESCRIPTION', "...
Visual Basic .NET Определить запущена программа на виртуальной машине или на настоящей
Сабж. Например запустил программу, нажал на кнопку, и вылезло сообщение "Виртуалка" - Это если на виртуалке запущено ну и т,д
Visual Basic .NET Требуется переменная с модификатором WithEvents VB.NET жалуется на событие таймера (timer0.tick), не понимаю, в чём проблема. Public Class Anim Dim sprite0 As PictureBox Dim timer0 As Timer Public Sub New(ByVal x As Integer,... https://www.cyberforum.ru/ vb-net/ thread925110.html
Visual Basic .NET Конвертировать данные с serial port в читаемый вид https://www.cyberforum.ru/ vb-net/ thread925037.html
Добрый день! Пытаюсь учиться работать с com-устройством. Накидал простую форму, и считал данные с порта. Данные получил в таком виде - D0-90-33-37-37-35-2F-31-3B Подскажите как их преобразовать в...
Visual Basic .NET Есть ли более достойная альтернатива WebBrowser
Всем привет! Мне в приложении на vb.net надо использовать другой, отличный от ie браузер (который и является основой webbrowser). Я нашел вот это....
Отобразить имена файлов с иконками, соответствующими расширению файлов Visual Basic .NET
Всем привет! Помогите, пожалуйста, решить такую задачу: имеется некий список имен файлов и необходимо отобразить эти имена с иконками, соответствующими расширению файлов.
Visual Basic .NET WPF приложение вообще поддерживает WebBrowser.Navigate Вообщем! Сделал простенькую прогу по запуску игрульки одной (ланчер карочи) и мне понадобилось вставить в лаунчер html страницу! Есть один элемент, называется он WebBrowser, мне нужно сделать так что... https://www.cyberforum.ru/ vb-net/ thread924792.html
Visual Basic .NET Сохранение картинки в файл https://www.cyberforum.ru/ vb-net/ thread924652.html
Здравствуйте, уважаемые форумчане. Сохраняю сжатую картинку в файл. Вот код: If Not IsNothing(picFoto.Image) Then Dim bmp As New Bitmap(picFoto.Image, New Size(80, 60)) ...
Visual Basic .NET Как обработать запуск своей программы с параметрами То есть я создал ярлык, в него добавил. допустим "index.exe -perfect" ! Как обработать этот "perfect" ? https://www.cyberforum.ru/ vb-net/ thread924639.html
60 / 58 / 10
Регистрация: 16.02.2013
Сообщений: 146
20.07.2013, 17:23 0

Как вычислить разницу в годах между двумя датами?

20.07.2013, 17:23. Показов 1573. Ответов 9
Метки (Все метки)

Ответ

Ну раз кто-то интересуется, выложу на всеобщее обозрение
Вот функция которая принимает григорианскую дату (d-день, m-месяц, y-год) и возвращает юлианский день
Кликните здесь для просмотра всего текста
vb.net
1
2
3
4
5
6
7
8
9
    Private Function GTJ(ByVal d As Byte, ByVal m As Byte, ByVal y As Integer)
        If m <= 2 Then
            y = y - 1
            m = m + 12
        End If
        Dim A As Double = Int(y / 100)
        Dim B As Double = 2 - A + Int(A / 4)
        Return Int(365.25 * (y + 4716)) + Int(30.6001 * (m + 1)) + d + B - 1524.5 + 0.5
    End Function


А вот функция которая принимает юлианский день (j) и возвращает массив состоящий из трех элементов (0-день, 1-месяц, 2-год)
Кликните здесь для просмотра всего текста
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
    Private Function JTG(ByVal j As Double)
        Dim mas() As Integer
        j = j + 0.5
        Dim Z As Long = Fix(j)
        Dim F As Double = j - Z
        Dim A As Long
        If Z < 2299161 Then A = Z
        If Z >= 2299161 Then
            Dim alfa As Integer = Int((Z - 1867216.25) / 36524.25)
            A = Z + 1 + alfa - Int(alfa / 4)
        End If
        Dim B As Double = A + 1524
        Dim C As Double = Int((B - 122.1) / 365.25)
        Dim D As Double = Int(365.25 * C)
        Dim W As Double = Int((B - D) / 30.6001)
        Dim day As Integer = Int(B - D - Int(30.6001 * W) + F)
        Dim manth As Integer
        Dim y As Integer
        If W < 14 Then
            manth = W - 1
        End If
        If W = 14 Or W > 14 Then
            manth = W - 13
        End If
        'Stop
        If manth > 2 Then
            y = C - 4716
        End If
        If manth <= 2 Then
            y = C - 4715
        End If
        mas = {day, manth, y} 'создаем массив который заполняем значениями дня, месяца, года
        Return mas
    End Function


Мы берем две григорианские даты и преобразуем их в юлианскую форму. Потом из одной вычитаем другую и получаем разницу между датами в днях, которую прогоняем через вторую функцию, как то так. Второй элемент массива должен разницей между датами в годах. Сам не проверял, но должно работать!

Вернуться к обсуждению:
Как вычислить разницу в годах между двумя датами?
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.07.2013, 17:23

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Посчитать разницу в годах между двумя датами
Встроенный DATEDIFF работает лениво и на SELECT DATEDIFF(year,'21.11.2011','20.11.2012') ответит...

Как посчитать разницу между датами в годах?
Здравствуйте! Не могу понять как посчитать разницу между двумя датами в годах. Например, человек...

Вычислить разницу между двумя датами
1. есть ли функция которая вычислит сколько прошло например с 1934 до 2014. 2. как вычислить сраж...

Найти разницу между датами в годах
Задание Написать программу с участием типа DateTime, TimeSpan. Ввести 2 даты Найти разницу между...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.