Определить, является ли текущая неделя четной или нечетной

@KillJoy · Регистрация: 21.09.2009

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

Задача такая : определить, является ли текущая неделя четной или нечетной. Например, первая неделя сентября была нечетная ( 1- нечетное число), 2 неделя - четная и т.д. В текстбокс вывести четная она или нет. Текущей датой( если она понадобится) считать системную дату.

Памирыч · 07.09.2011, 20:39

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

В текстбокс вывести четная она или нет

В текстбокс я не смог вывести, не знаю, как ему присвоить текст, а с мессиджбоксом
как-то так:

VB.NET

        Dim D As Date = Now  '#8/24/2011#
        Dim CDOW As Integer = D.DayOfWeek - 1
        D = D.AddDays(-CDOW)
        If D.Day Mod 2 = 0 Then
            MsgBox("Неделя типо четная, ведь она началась " & D.Day & "-го числа", MsgBoxStyle.Information)
        Else
            MsgBox("Какбэ, облом, неделя началась " & D.Day & "-го числа, поэтому нечетная", MsgBoxStyle.Exclamation)
        End If

Если я верно понял.
В первой строке я оставил дату за коментом для примера

@LMM · 07.09.2011, 22:17

Сообщение от Памирыч

не знаю, как ему присвоить текст,

Убила эта фраза. Памирыч ну ты даешь, ты наверное в полуобмороке отвечал на этот вопрос, т.к. текст присвоить Textbox-у просто. Я использовал твой код (на форме только один текстбокс, код записал в ЛОАД формы (хотя его можно писать куда угодно):

VB.NET

 Dim D As Date = Now  '#8/24/2011#
        Dim CDOW As Integer = D.DayOfWeek - 1
        D = D.AddDays(-CDOW)
        If D.Day Mod 2 = 0 Then
            'MsgBox("Неделя типо четная, ведь она началась " & D.Day & "-го числа", MsgBoxStyle.Information)
            TextBox1.Text = "Неделя типо четная, ведь она началась " & D.Day & "-го числа"
        Else
            TextBox1.Text = "Какбэ, облом, неделя началась " & D.Day & "-го числа, поэтому нечетная"
            'MsgBox("Какбэ, облом, неделя началась " & D.Day & "-го числа, поэтому нечетная", MsgBoxStyle.Exclamation)
        End If

@KillJoy · 07.09.2011, 22:52 **[ТС]**

В ноябре программа неверно определяет четность\нечетность! Первая и вторая недели - обе ченые.

Памирыч · 07.09.2011, 22:57

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

В ноябре ... Первая и вторая недели - обе ченые.

по-твоему 31 и 7 - четные?

@LMM · 08.09.2011, 16:34

Ну не знаю, код работает исправно, проверил первые две недели в ноябре, все сходится

@KillJoy 58 / 58 / 29 Регистрация: 21.09.2009 Сообщений: 313 Записей в блоге: 1
		1
	Определить, является ли текущая неделя четной или нечетной 07.09.2011, 19:57. Показов 8259. Ответов 5 Метки нет (Все метки) Задача такая : определить, является ли текущая неделя четной или нечетной. Например, первая неделя сентября была нечетная ( 1- нечетное число), 2 неделя - четная и т.д. В текстбокс вывести четная она или нет. Текущей датой( если она понадобится) считать системную дату. 0

@KillJoy 58 / 58 / 29 Регистрация: 21.09.2009 Сообщений: 313 Записей в блоге: 1
	07.09.2011, 22:52 [ТС]	4
	В ноябре программа неверно определяет четность\нечетность! Первая и вторая недели - обе ченые. 0

Памирыч Почетный модератор 21400 / 9134 / 1083 Регистрация: 11.04.2010 Сообщений: 11,014
	07.09.2011, 22:57	5
	Сообщение от KillJoy В ноябре ... Первая и вторая недели - обе ченые. по-твоему 31 и 7 - четные? 0

@LMM 56 / 56 / 2 Регистрация: 17.02.2011 Сообщений: 234 Записей в блоге: 10
	08.09.2011, 16:34	6
	Ну не знаю, код работает исправно, проверил первые две недели в ноябре, все сходится 0