Описание
DateCreated возвращает дату и время создания объекта или основной таблицы для объекта Recordset типа таблицы (только в рабочей области Microsoft Jet).

LastUpdated возвращает дату и время последнего изменения объекта или основной таблицы для объекта Recordset типа таблицы (только в рабочей области Microsoft Jet).

Значение
Возвращаемое значение имеет тип Variant (подтип Date/Time).

Замечания
Для объектов Recordset типа таблицы дата и время определяются по системным часам компьютера, на котором была создана или последний раз обновлена основная таблица. Для объектов других типов данных свойства DateCreated и LastUpdated возвращают дату и время создания или последнего обновления объекта. В многопользовательской среде разные пользователи во избежание разночтений должны загружать значения данных свойств непосредственно с одного сервера файлов.

Пример
Следующая программа демонстрирует применение свойств DateCreated и LastUpdated путем добавления нового объекта Field в существующий объект TableDef, а также путем создания нового объекта TableDef. Для выполнения данной процедуры требуется функция DateOutput.

Sub DateCreatedX()

	Dim dbsNorthwind As Database
	Dim tdfEmployees As TableDef
	Dim tdfNewTable As TableDef

	Set dbsNorthwind = OpenDatabase("Борей.mdb")

	With dbsNorthwind
		Set tdfEmployees = .TableDefs!Сотрудники
		With tdfEmployees
			' Печатает текущие сведения о таблице "Сотрудники".
			DateOutput "Текущие свойства", tdfEmployees
			' Создает и добавляет поле в таблицу "Сотрудники".
			.Fields.Append .CreateField("НовоеПоле", dbDate)
			' Печатает новые сведения о таблице "Сотрудники".
			DateOutput "После создания нового поля", tdfEmployees
			' Удаляет новое поле, созданное только для демонстрации.
			.Fields.Delete "НовоеПоле"
		End With
		' Создает и добавляет новый объект TableDef 
		' в базу данных "Борей".
		Set tdfNewTable = .CreateTableDef("НоваяТаблица")
		With tdfNewTable
			.Fields.Append .CreateField("НовоеПоле", dbDate)
		End With
		.TableDefs.Append tdfNewTable
		' Печатает сведения о новом объекте TableDef.
		DateOutput "После создания новой таблицы", tdfNewTable
		' Удаляет новый объект TableDef, созданный 
		' только для демонстрации.
		.TableDefs.Delete tdfNewTable.Name
		.Close
	End With

End Sub

Function DateOutput(strTemp As String, tdfTemp As TableDef)
	' Печатает значения свойств DateCreated и LastUpdated
	' для указанного объекта TableDef.
	Debug.Print strTemp
	Debug.Print "TableDef: " & tdfTemp.Name
	Debug.Print " DateCreated = " & tdfTemp.DateCreated
	Debug.Print " LastUpdated = " & tdfTemp.LastUpdated
	Debug.Print
End Function