Форум программистов, компьютерный форум, киберфорум Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Visual Basic .NET Публикация через VS2010: не удается создать веб-узел https://www.cyberforum.ru/ vb-net/ thread926027.html
Доброго времени суток! Помогите разобраться с проблемой: "Ошибка 1 Не удалось подключиться к "ftp://***/". Ошибка: Не удается создать веб-узел "ftp://***". Компоненты взаимодействия с серверными расширениями FrontPage не установлены." При нажатии на кнопку "Опубликовать сейчас". Сервер при этом исправен, учётка введена верно и через проводник-винды зайти туда получается. Курил это и это...
VB.Net Datagridview нет доступа к данным в одной колонке Visual Basic .NET
Мне надо заполнить Datagridview, данные в котором могут быть отредактированы пользователями. Программка простая: SqlStatement = "Select dk_key AS 'SUIT #', pld_desc As 'PLEADING DESCRIPTION', " SqlStatement &= "pld_date, p_d, atty, suit_yr, suit_no From " SqlStatement &= PleadingsTable & " Where dk_key = '" & SuitNo & "' Order By pld_DESC" Dim sqlConn As SqlConnection = New...
Visual Basic .NET Определить запущена программа на виртуальной машине или на настоящей Сабж. Например запустил программу, нажал на кнопку, и вылезло сообщение "Виртуалка" - Это если на виртуалке запущено ну и т,д https://www.cyberforum.ru/ vb-net/ thread925766.html 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, ByVal y As Integer, ByVal f As Form) sprite0 = New PictureBox timer0 = New Timer With sprite0 https://www.cyberforum.ru/ vb-net/ thread925110.html
Конвертировать данные с serial port в читаемый вид Visual Basic .NET
Добрый день! Пытаюсь учиться работать с com-устройством. Накидал простую форму, и считал данные с порта. Данные получил в таком виде - D0-90-33-37-37-35-2F-31-3B Подскажите как их преобразовать в читаемый вид с кириллицей. Спасибо! Добавлено через 8 минут Encoding.ASCII.GetString(xxxx) - не выводит кириллицу. Получается - ?????????
Visual Basic .NET Есть ли более достойная альтернатива WebBrowser Всем привет! Мне в приложении на vb.net надо использовать другой, отличный от ie браузер (который и является основой webbrowser). Я нашел вот это. https://bitbucket.org/xilium/xilium.cefglue/wiki/Home но, так как я нуб, я не могу понять как же этот браузер подключить к моему проекту. помогите пожалуйста. кроме того, если кто уже подключал какой-то другой альтернативный браузер, то, напишите... https://www.cyberforum.ru/ vb-net/ thread924912.html
Visual Basic .NET Отобразить имена файлов с иконками, соответствующими расширению файлов https://www.cyberforum.ru/ vb-net/ thread924857.html
Всем привет! Помогите, пожалуйста, решить такую задачу: имеется некий список имен файлов и необходимо отобразить эти имена с иконками, соответствующими расширению файлов.
Visual Basic .NET WPF приложение вообще поддерживает WebBrowser.Navigate
Вообщем! Сделал простенькую прогу по запуску игрульки одной (ланчер карочи) и мне понадобилось вставить в лаунчер html страницу! Есть один элемент, называется он WebBrowser, мне нужно сделать так что бы на экране лаунчера показывалась та самая html страничка и вот я не знаю как при помощи этого элемента сделать это. Знатоки и программисты на VB и не только, помогите пожалуйста ...
Visual Basic .NET Сохранение картинки в файл Здравствуйте, уважаемые форумчане. Сохраняю сжатую картинку в файл. Вот код: If Not IsNothing(picFoto.Image) Then Dim bmp As New Bitmap(picFoto.Image, New Size(80, 60)) 'bmp.Save("TreeElFoto\" & currID & ".jpg") 'Dim p As String = Trim(Directory.GetCurrentDirectory & "TreeElFoto\00001.jpg") https://www.cyberforum.ru/ vb-net/ thread924652.html Visual Basic .NET Как обработать запуск своей программы с параметрами https://www.cyberforum.ru/ vb-net/ thread924639.html
То есть я создал ярлык, в него добавил. допустим "index.exe -perfect" ! Как обработать этот "perfect" ?
Visual Basic .NET Вывести многострочный текст в одну строку
Доброго времени суток! Подскажите, как можно переделать многострочный текст в одну строку? Например, было: 123 456 Стало: 123456 Заранее благодарен
Visual Basic .NET Вставить Image в Excel/Word Добрый день! Подскажите как объект типа Image можно вставить в Excel/Word. Гуглил все утро, не нашел. :( Спасибо! Добавлено через 26 минут нашел пока такой вариант через clipboard: Clipboard.SetDataObject(img) ExApp.sheets(1).cells(1, 1).Select() https://www.cyberforum.ru/ vb-net/ thread923882.html
60 / 58 / 10
Регистрация: 16.02.2013
Сообщений: 146
20.07.2013, 17:23 0

Как вычислить разницу в годах между двумя датами? - Visual Basic .NET - Ответ 4864831

20.07.2013, 17:23. Показов 2294. Ответов 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


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

Вернуться к обсуждению:
Как вычислить разницу в годах между двумя датами? Visual Basic .NET
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.07.2013, 17:23
Готовые ответы и решения:

Как вычислить разницу между датами
Господа подскажите в программе нужно узнать разницу времени между началом заезда автомобиля и его...

Получение интервала между двумя датами в DGV
Уважаемые форумчане. не могу решить одну проблему. Проблема в том что сравнить двух дат и покрасит...

Определить количество дней четвертого числа между двумя датами
Перед мной стоит задача определить сколько к примеру 4-тых чисел между датой N1 и датой N2 К...

Вычислить количество дней между датами
Нужно вычислить количество дней между датами. Есть стандартные функции?

9
20.07.2013, 17:23
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
Copyright ©2000 - 2024, CyberForum.ru