ник: Дядя Федор
У меня 11_11_2010 и т.п. преобразуется сл.ф-ей
Public Function Nd_mes(s As String) As String
Dim v As Date
v = Replace(s, "_", ".")
Nd_mes = Day(v) & vbCrLf & WeekdayName(Weekday(v, vbMonday), True, vbMonday)
End Function
|
в OPEN
Me("Head" & i).ControlSource = "='" & Nd_mes(rs.Fields(i - 1).Name) & "'"
|
Проверка - Debug.Print Nd_mes("31_08_2010") выводит число и день недели. Ты можешь что-нить подобное загнать в форму или отчет