Возвращает дату и время последнего изменения данных в базе данных слоя.

Применяется к:

Layer

Синтаксис:

Visual Basic:

Function GetLastDatabaseChangesDate(BaseID As Long, QueryName As String) As Variant

BaseID - ID базы данных слоя из коллекции Bases.

QueryName - имя запроса базы данных; допускается пустая строка.

Описание:

Метод возвращает значение типа Date в местном времени. Дата хранится вместе со слоем, сохраняется после его повторного открытия и ведётся для каждой базы отдельно.

Учитываются изменения, сделанные средствами ZuluGIS, — например, правка записей через объект ZbDatabase. Правка файлов базы данных в обход программы дату не меняет. Изменение графических объектов на неё тоже не влияет: для него служит метод GetLastGeometryChangesDate.

Если изменений не было, а также для несуществующего ID базы или имени запроса метод возвращает дату 1 января 1601 года.

Пример:

Visual Basic:

Sub Layer_GetLastDatabaseChangesDate
'Берем активный слой карты
Set L = Zulu.ActiveMapDoc.Layers.Active
'Даты последних изменений всех баз данных слоя
S = ""
For i = 0 To L.Bases.Count - 1
  Set B = L.Bases.Item(i)
  D = L.GetLastDatabaseChangesDate(B.Id, "")
  If Year(D) = 1601 Then D = "изменений не было"
  S = S & B.UserName & ": " & D & vbCrLf
Next
MsgBox S
End Sub