1Тема от cherik1

Понятный код вывода отчета

  • cherik1
  • Wialon fan club
  • Неактивен
  • Зарегистрирован: 14/03/2017
  • Сообщений: 5
  • Карма: 0

Тема: Понятный код вывода отчета

Прошу извинить, но очень хочу разобраться задавал вопрос в общей теме, но там все вымерли.
Еще не очень понимаю, какой такой продукт надо выбрать, потому, если ошибся, сильно не пинайте
VBA excel:
И так собсно код следующий: 

Set Wialon = CreateObject("WialonActiveX64.WialonConnection")
Set Units = Wialon.Login("https://activex.gurtam.com", 443, "", "")
Set Unit = Units.Item(1)
Set Report = Wialon.GetReportsList(1)
dtdiff = DateTime.DateDiff("s", #1/1/1970#, "00:00:00")
dt1 = DateTime.DateDiff("s", #3/13/2017#, "00:00:00")
dt2 = DateTime.DateDiff("s", #3/13/2017#, "23:59:59")
dt3 = dtdiff - dt1
dt4 = dtdiff - dt2
ReportData = Report.Generate(dt3, dt4, 10800, Unit.ID, "ru")

ReportData = "", что как то не правильно. При выполнении этого отчета в web-интерфейсе выводит полноценный отчет.

0
2Ответ от cherik1

Понятный код вывода отчета

  • cherik1
  • Wialon fan club
  • Неактивен
  • Зарегистрирован: 14/03/2017
  • Сообщений: 5
  • Карма: 0

Re: Понятный код вывода отчета

dtdiff = CDate("1/1/1970 00:00:00")
        dt1 = CDate("3/13/2017 00:00:00")
        dt2 = CDate("3/13/2017 23:59:59")
       
        sdtdiff1 = DateTime.DateDiff("s", dtdiff, dt1)
        sdtdiff2 = DateTime.DateDiff("s", dtdiff, dt2)
        ReportData1 = Wialon.GetReportByIDU(sdtdiff1, sdtdiff2, Unit.IDU, TimeZoneOffset, "ru", Report.ResourceIDU, Report.ReportIDU)

нууу вот так как-то ...

0