Все переводы
Введите имя сообщения для показа всех доступных переводов.
Найдено 2 перевода.
Сообщение | Текущий текст |
---|---|
ист. английский (en) | If Response.StatusCode = WebStatusCode.Ok Then ' Success, parse response Dim RegValue As Object Set RegValues = Response.Data If Response.Content = "[]" Then Cells(4, 1) = "No data" Cells(4, 2) = "No data" Cells(4, 3) = "No data" Cells(4, 4) = "No data" Cells(4, 5) = "No data" Cells(4, 6) = "No data" Cells(4, 7) = "No data" Cells(4, 8) = "No data" Else For i = 1 To RegValues.Count Cells(i + 3, 1) = RegValues(i)("t") Cells(i + 3, 2) = Epoch2Date(CLng(RegValues(i)("t"))) Cells(i + 3, 2).NumberFormat = "yyyy-mm-dd hh:mm:ss" Cells(i + 3, 3) = RegValues(i)("r") Cells(i + 3, 4) = RegValues(i)("v") Cells(i + 3, 5) = RegValues(i)("s") Next End If End If End Sub </pre> |
ист. русский (ru) | If Response.StatusCode = WebStatusCode.Ok Then ' Success, parse response Dim RegValue As Object Set RegValues = Response.Data If Response.Content = "[]" Then Cells(4, 1) = "No data" Cells(4, 2) = "No data" Cells(4, 3) = "No data" Cells(4, 4) = "No data" Cells(4, 5) = "No data" Cells(4, 6) = "No data" Cells(4, 7) = "No data" Cells(4, 8) = "No data" Else For i = 1 To RegValues.Count Cells(i + 3, 1) = RegValues(i)("t") Cells(i + 3, 2) = Epoch2Date(CLng(RegValues(i)("t"))) Cells(i + 3, 2).NumberFormat = "yyyy-mm-dd hh:mm:ss" Cells(i + 3, 3) = RegValues(i)("r") Cells(i + 3, 4) = RegValues(i)("v") Cells(i + 3, 5) = RegValues(i)("s") Next End If End If End Sub </pre> |