Эксперименты с датой
В процессе работы с программой иногда возникает необходимость изменить представление даты. Оперативно решить эту задачу поможет функция ДатаПолная. Например, если дата отображается в виде 04.08.2005, то данная функция преобразует ее в вид 0 4 Августа 2 005. Код функции приведен в листинге 2.45.
Листинг 2.45. Функция ДатаПолная
Function ДатаПолная(Ячейка)
' Получение данных в заданной ячейке в формате _
«dd mmmm yyyy»
Дата = Format(Ячейка, «dd mmmm yyyy»)
If IsDate(Ячейка) = True Or IsDate(Дата) = True Then
' Возврат строки с полной датой
ДатаПолная = StrConv(Дата, vbProperCase)
Else
' Данные в ячейке не являются датой
ДатаПолная = «<>»
End If
End Function
После выбора функции следует указать ячейку с датой, которую необходимо преобразовать.
Несомненным достоинством данной функции является то, что она может преобразовать представление даты даже в тех ячейках, в которых установлен формат, отличный от Дата (Числовой, Текстовый и др.). Например, если в ячейке с форматом Общий содержится число 37808, то в результате применения функции ДатаПолная оно будет преобразовано в дату 06 Июля 2003.