Программа работает только для невисокосных годов. Как её доработать? (DateDiff не использовать)

@Эсмиральда · Регистрация: 17.10.2014

Студворк — интернет-сервис помощи студентам

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub hj()
Dim A As Date
Dim b As Date
Dim k As Integer
Dim b1 As Date
Dim X As Integer
Dim Y As Integer
A = Date
b = InputBox("Введите дату вашего рождения в формате дд/мм/гггг")
k = (A - b) / 365
b1 = (b + k * 365)
If A = b Then
MsgBox ("Поздравляю!")
ElseIf A > b1 Then
X = 365 - (A - b1)
MsgBox ("До дня рождения осталось" & " " & CDbl(X) & " " & "дней")
Else
Y = b1 - A
MsgBox ("День рождение наступит через " & CDbl(Y) & " " & "дней")
End If
End Sub

Чтоб работала и для високосных)

@Sasha_Smirnov · 21.12.2014, 15:55

Бред же ж!

Давайте тогда уж и ВБА не использовать! И ЭВМ. На счёты перейдём.

@Эсмиральда · 21.12.2014, 16:00 **[ТС]**

Как сделать чтоб учитывал високосный?

@Sasha_Smirnov · 21.12.2014, 16:07

Это-то как раз и делает DateDiff.

А если так хочется потренировать мозги, используйте мой пример: Определить количество дней для определенного месяца и определенного года

@m-ch · 21.12.2014, 17:47

Если день рождения попадает на 29 февраля, какое ближайшее будет 28.02.2015 или 01.03.2015 или 29.02.2016?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub main()
    Dim a As Date, b As Date, d&, m&, i&
    a = Date
    b = InputBox("Введите дату вашего рождения в формате дд/мм/гггг")
    d = Day(b)
    m = Month(b)
    For i = 0 To 8 * 365 'пробегаем 8 лет т.к. ближайший день рождения 29/02 после 29/02/2096 наступает 29/02/2104
        If Day(a + i) = d And Month(a + i) = m Then Exit For
    Next i
    MsgBox IIf(i = 0, "Поздравляю! День рождения сегодня!", "До дня рождения осталось " & i & " дней")
End Sub

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	21.12.2014, 15:55
	Бред же ж! Давайте тогда уж и ВБА не использовать! И ЭВМ. На счёты перейдём. 0

@Эсмиральда 4 / 4 / 0 Регистрация: 17.10.2014 Сообщений: 63
	21.12.2014, 16:00 [ТС]
	Как сделать чтоб учитывал високосный? 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	21.12.2014, 16:07
	Это-то как раз и делает DateDiff. А если так хочется потренировать мозги, используйте мой пример: Определить количество дней для определенного месяца и определенного года 0