' выбираем время обновления куба
Function GetProcessedDate(ServerName, DatabaseName, CubeName)

Dim dsoServer
Dim db
Dim CubeItem

Set dsoServer = CreateObject("DSO.Server")
dsoServer.Connect (ServerName)
Set db = dsoServer.MDStores(DatabaseName)
Set CubeItem = db.MDStores(CubeName)

GetProcessedDate = "Время обновления данных: " & CubeItem.LastProcessed

dsoServer.CloseServer
Set dsoServer = Nothing
Set db = Nothing
Set CubeItem = Nothing

End Function