Ввести с клавиатуры число, месяц, год, день недели. Вывести на экран дату и день недели для следующего дня.

@StefaCrimson · Регистрация: 29.09.2013

@Улугбек · 30.09.2013, 10:20

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

Ввести с клавиатуры число, месяц, год, день недели. Вывести на экран дату и день недели для следующего дня.

<
Пожалуйста чут по шири информируйте свою вопрос.
Куда вводится (конкретно) "число, месяц, год, день недели" и куда (конкретно) вывесте значение "дату и день недели для следующего дня".
>

@~~Апострофф~~ · 30.09.2013, 10:55

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

число, месяц, год

- однозначное определение даты, вводить день недели - вводить в заблуждение не только программу, но и читателей.

Visual Basic

Sub main()
Dim d As Integer, m As Integer, y As Integer, dt As Date
d = InputBox("Введите день:", , Day(Date))
m = InputBox("Введите месяц:", , Month(Date))
y = InputBox("Введите год:", , Year(Date))
dt = DateSerial(y, m, d)
MsgBox dt & " " & WeekdayName(Weekday(dt), , vbSunday)
MsgBox "Потом будет " & dt + 1 & " " & WeekdayName(Weekday(dt + 1), , vbSunday)
End Sub

@StefaCrimson 0 / 0 / 0 Регистрация: 29.09.2013 Сообщений: 3
		1
	Ввести с клавиатуры число, месяц, год, день недели. Вывести на экран дату и день недели для следующего дня. 29.09.2013, 13:49. Показов 8920. Ответов 2 Метки нет (Все метки) Ввести с клавиатуры число, месяц, год, день недели. Вывести на экран дату и день недели для следующего дня. 0

@Улугбек 5 / 5 / 6 Регистрация: 01.04.2013 Сообщений: 28
	30.09.2013, 10:20	2
	Сообщение от StefaCrimson Ввести с клавиатуры число, месяц, год, день недели. Вывести на экран дату и день недели для следующего дня. < Пожалуйста чут по шири информируйте свою вопрос. Куда вводится (конкретно) "число, месяц, год, день недели" и куда (конкретно) вывесте значение "дату и день недели для следующего дня". > 0

Опции темы