Определение дня недели, первого числа месяца - 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