Определение дня недели, первого числа месяца - VB
Формулировка задачи:
Я придумал как определять дни недели текущего месяца, но вот к примеру как определить день недели 1го июля 2012 или июня 2012...?
Прям печалит, что казалось бы такие примитивные вещи не встроены в язык...
Непонятно мне, что этим "практичным" ребятам мешало придумать функцию типа WeekDay(1,8,2012) или что то подобное... Прям словом нехорошим хочется их назвать...(((
P.S. А может все проще, и я просто не знаю эту функцию?))
Решение задачи: «Определение дня недели, первого числа месяца»
textual
Листинг программы
Private Sub Command1_Click() 'Weekday(d,[fd]) - функция 'аргументы: 'd -дата(месяц, число, год) 'fd(необязатнльн) Константа, указывающая первый день недели. ' Если этот аргумент опущен, считается, что неделя начинается с воскресенья 'возвращаемое значение:--- номер дня недели для введенной даты 'номер дня недели d для даты "8,1,2012" /1 августа 2012/ 'vbMonday --- считаем что неделя начинается с понедельника d = Weekday("8,1,2012", vbMonday) Print d 'в функцию Weekday в качестве аргументов надо передать ' дату "8,1,2012" или любую другую 'тогда эта функция Weekday возвратит номер дня недели для введенной даты 'аналогия 'в ф-цию Sin в кач аргумента передаем 5 'y = Sin(1) 'тогда ф-ция возвратит значение Sin(1)=0,8... End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д