Определить, сколько дней/недель осталось до Нового года

@XudaH · Регистрация: 04.05.2009

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

Программа, вычисляющая, сколько дней/недель осталось до Нового года.

Добавлено через 2 минуты 16 секунд
Точно знаю что нужен таймер

, вот код проги составить не могу(. Кто понимает напишите, please!=)

@Toxa33rus · 04.05.2009, 22:50

Visual Basic
1
2
3
4
5
Today = Date
NY = DateSerial(Year(Today) + 1, 1, 1)
 
Days = DateDiff("d", Today, NY)
Weeks = DateDiff("w", Today, NY)

@XudaH · 05.05.2009, 17:58 **[ТС]**

Пробовал что то не пашет(. DateSerial что означает?

@BasicMan · 05.05.2009, 18:03

здесь про DateSerial

@XudaH · 05.05.2009, 22:00 **[ТС]**

Toxa33rus, А на Visual Basic 2005 не имеешь представление как будет код выглядеть? А то что-то в минус показывает значение(

Добавлено через 42 секунды
Бурундук, Тебе тоже спасибо за ссылку)

@Toxa33rus · 06.05.2009, 10:14

Сообщение от XudaH

А на Visual Basic 2005 не имеешь представление как будет код выглядеть?

Неа. Никогда не видел 2005. Не думаю что особо должно отличаться. Какое именно число получается? В любом случае суть одна: создаешь две даты и находишь кол-во дней между ними.

@XudaH · 06.05.2009, 17:34 **[ТС]**

Ворос:Today = Date - Тут Today присваивается к типу данных Date? А то в VB 2005 он подчеркиевает Today = Date типа так объявлять нельзя.

@BasicMan · 06.05.2009, 17:39

Сообщение от XudaH

Вопрос:Today = Date - Тут Today присваивается к типу данных Date?

не, тут Date - функция, возвращающая текущую дату

@XudaH · 06.05.2009, 18:21 **[ТС]**

У меня всегда показывает число 241 - дни и 34 - недели, какую нибудь дату не вводил. Вот код VB 2005:

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
Dim weeks As Long, days As Long
    Dim NY As Date
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If IsDate(txtDate.Text) Then
            NY = CDate(txtDate.Text)
        Else
            MsgBox("Введите правильно дату!", vbCritical, "Data error")
            txtDate.Select()
            txtDate.SelectionStart = 0
            txtDate.SelectionLength = Len(txtDate.Text)
            Exit Sub
        End If
        Timer1.Enabled = True
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        NY = DateSerial(Year(Today) + 1, 1, 1)
        days = DateDiff("d", Today, NY)
        weeks = DateDiff("w", Today, NY)
        txtd.Text = CStr(days)
        txtW.Text = CStr(weeks)
    End Sub

@BasicMan · 06.05.2009, 18:26

а где это

Visual Basic
1
2
Dim Today As Date
Today = Date

?

Не по теме:

и еще, где спасибо мне и Тохе (в смысле, кнопку "спасибо" слабо нажать)?

@XudaH · 06.05.2009, 18:32 **[ТС]**

Нет проблем нажал. Я уже говорил что today=Date подчеркивает, неправильный синтаксис что то типа этого)

@BasicMan · 06.05.2009, 18:38

а если так попробовать

Visual Basic
1
Today = Now

Добавлено через 1 минуту 20 секунд
нашел статью на МСДН

@XudaH · 06.05.2009, 18:41 **[ТС]**

Теперь не 241, а 240 дней показывает :-B

@BasicMan · 06.05.2009, 18:42

XudaH, ты статью читал? там все написано

@XudaH · 06.05.2009, 18:52 **[ТС]**

Замысел программы такой: вводишь, например, 10.09.09 и должно выдавать сколько недель и дней осталось до нг.

Добавлено через 8 минут 0 секунд
Бурундук, Да прочитал.

@BasicMan · 06.05.2009, 18:56

тогда зачем эта строка?

Сообщение от XudaH

Visual Basic
1
NY = DateSerial(Year(Today) + 1, 1, 1)

здесь у тебя все и ложится

д.б.

Сообщение от XudaH

Visual Basic
1
NY = CDate(txtDate.Text)

в Timer1_Tick

Добавлено через 2 минуты 40 секунд
и это неправильно:

Сообщение от XudaH

days = DateDiff("d", Today, NY)
weeks = DateDiff("w", Today, NY)

д.б.

Visual Basic
1
2
days = DateDiff("d", NY, DateSerial(Year(NY) + 1, 1, 1))
weeks = DateDiff("w", NY, DateSerial(Year(NY) + 1, 1, 1))

вот тогда будет из поля дата браться.

Добавлено через 1 минуту 22 секунды
и вообче зачем тебе таймер?
все в батонклик всунуть, только грамотно )))

@XudaH · 06.05.2009, 18:59 **[ТС]**

Вот теперь все Ok. Спасибо Вам Бурундук, Toxa33rus Очень благодарен

@BasicMan · 06.05.2009, 19:00

Не по теме:

вопросы надо в следующий раз задавать правильно, а не по идиотскому (((
извините - сорвалось

@XudaH · 06.05.2009, 19:02 **[ТС]**

Да ничего страшного, у меня все время через ass...

@Toxa33rus · 06.05.2009, 19:59

Сообщение от Бурундук

д.б.
days = DateDiff("d", NY, DateSerial(Year(NY) + 1, 1, 1))
weeks = DateDiff("w", NY, DateSerial(Year(NY) + 1, 1, 1))

Сообщение от XudaH

Вот теперь все Ok

Неа, не все

NY - New Year (англ. "Новый Год"), а у вас это стало то что вы вводите (может быть и 8 марта). Я понимаю что код работает но имя переменной не отражает ее содержание

Лучше сделать MyDate например.

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@XudaH 13 / 13 / 0 Регистрация: 04.05.2009 Сообщений: 130

	Определить, сколько дней/недель осталось до Нового года 04.05.2009, 20:32. Показов 11176. Ответов 21 Метки нет (Все метки) Программа, вычисляющая, сколько дней/недель осталось до Нового года. Добавлено через 2 минуты 16 секунд Точно знаю что нужен таймер, вот код проги составить не могу(. Кто понимает напишите, please!=) 0

@XudaH 13 / 13 / 0 Регистрация: 04.05.2009 Сообщений: 130
	05.05.2009, 17:58 [ТС]
	Пробовал что то не пашет(. DateSerial что означает? 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	05.05.2009, 18:03
	Сообщение было отмечено как решение Решение здесь про DateSerial 0

@XudaH 13 / 13 / 0 Регистрация: 04.05.2009 Сообщений: 130
	05.05.2009, 22:00 [ТС]
	Toxa33rus, А на Visual Basic 2005 не имеешь представление как будет код выглядеть? А то что-то в минус показывает значение( Добавлено через 42 секунды Бурундук, Тебе тоже спасибо за ссылку) 0

@XudaH 13 / 13 / 0 Регистрация: 04.05.2009 Сообщений: 130
	06.05.2009, 17:34 [ТС]
	Ворос:Today = Date - Тут Today присваивается к типу данных Date? А то в VB 2005 он подчеркиевает Today = Date типа так объявлять нельзя. 0

@XudaH 13 / 13 / 0 Регистрация: 04.05.2009 Сообщений: 130
	06.05.2009, 18:32 [ТС]
	Нет проблем нажал. Я уже говорил что today=Date подчеркивает, неправильный синтаксис что то типа этого) 0

@XudaH 13 / 13 / 0 Регистрация: 04.05.2009 Сообщений: 130
	06.05.2009, 18:41 [ТС]
	Теперь не 241, а 240 дней показывает :-B 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	06.05.2009, 18:42
	XudaH, ты статью читал? там все написано 0

@XudaH 13 / 13 / 0 Регистрация: 04.05.2009 Сообщений: 130
	06.05.2009, 18:52 [ТС]
	Замысел программы такой: вводишь, например, 10.09.09 и должно выдавать сколько недель и дней осталось до нг. Добавлено через 8 минут 0 секунд Бурундук, Да прочитал. 0

@XudaH 13 / 13 / 0 Регистрация: 04.05.2009 Сообщений: 130
	06.05.2009, 18:59 [ТС]
	Вот теперь все Ok. Спасибо Вам Бурундук, Toxa33rus Очень благодарен 0

@BasicMan
	06.05.2009, 19:00
	Не по теме: вопросы надо в следующий раз задавать правильно, а не по идиотскому ((( извините - сорвалось 0

@XudaH 13 / 13 / 0 Регистрация: 04.05.2009 Сообщений: 130
	06.05.2009, 19:02 [ТС]
	Да ничего страшного, у меня все время через ass... 1

Определить, сколько дней/недель осталось до Нового года

Решение