| GrzZzlY-TerRroRisT | Дата: Воскресенье, 25.07.2010, 22:25 | Сообщение # 1 |
|
Новичок
Группа: Администраторы
Сообщений: 8
Репутация: 3
Статус: Offline
| Для получения файла .dll , необходимо заполнить данную форму
1) Имя .dll
2) Название программы , требующая отсутствующий .dll
3) Скриншот ошибки ( не обязательно)
Смертельный яд
Кипит в морях,
Кислота - вместо снега и дождя... <a href="http://internet.yandex.ru/"><img src="http://internet.yandex.ru/informer/horizontal/6884/501/" border="0" /></a><br /><a href="http://internet.yandex.ru/">Я.Интернет. Измерьте вашу скорость.</a>
|
| |
|
|
| GrzZzlY-TerRroRisT | Дата: Четверг, 26.08.2010, 13:34 | Сообщение # 2 |
|
Новичок
Группа: Администраторы
Сообщений: 8
Репутация: 3
Статус: Offline
| hj
Смертельный яд
Кипит в морях,
Кислота - вместо снега и дождя... <a href="http://internet.yandex.ru/"><img src="http://internet.yandex.ru/informer/horizontal/6884/501/" border="0" /></a><br /><a href="http://internet.yandex.ru/">Я.Интернет. Измерьте вашу скорость.</a>
|
| |
|
|
| GrzZzlY-TerRroRisT | Дата: Вторник, 07.09.2010, 16:52 | Сообщение # 3 |
|
Новичок
Группа: Администраторы
Сообщений: 8
Репутация: 3
Статус: Offline
|
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
Смертельный яд
Кипит в морях,
Кислота - вместо снега и дождя... <a href="http://internet.yandex.ru/"><img src="http://internet.yandex.ru/informer/horizontal/6884/501/" border="0" /></a><br /><a href="http://internet.yandex.ru/">Я.Интернет. Измерьте вашу скорость.</a>
|
| |
|
|
| Serg34 | Дата: Воскресенье, 29.06.2014, 03:54 | Сообщение # 4 |
|
Новичок
Группа: Пользователи
Сообщений: 1
Репутация: 0
Статус: Offline
| Здравствуйте, а возможно ли создать библиотеку DLL в которой будет храниться часть кода VBA для EXCEL?
Этот код EXCEL:
Function GetRealTime(Optional ByVal GMT& = 4) As DateOn Error Resume Next: Err.Clear: Dim http As Object, URL$, GMT_Time$, m$, mv$'GetRealTime = Now ' значение по-умолчанию
Set http = CreateObject("Microsoft.XMLHTTP")URL$ = "http://ya.ru/" ' можно указать практически любой сайтhttp.Open "GET", URL$, Falsehttp.Send
Загрузка.TextBox2.Width = Загрузка.TextBox1.Width * 0.2Загрузка.RepaintGMT_Time = http.GetResponseHeader("Date")Set http = Nothing
' пример полученной строки: Sun, 27 Apr 2014 06:14:44 GMTIf Not (GMT_Time Like "???, *# ??? #### ##:##:##*GMT*") ThenMsgBox_интернет = MsgBox("Отсутвует подключение к интернету либо срок пользования программы зако нчен" & vbCrLf & vbCrLf & "Доступ к базе данных невозможен", vbCritical, "Ошибка")Exit Function End IfGMT_Time = Trim(Split(GMT_Time, ",")(1))GMT_Time = Trim(Split(GMT_Time, "GMT")(0))m$ = Trim(Split(GMT_Time)(1))mv$ = (InStr(1, "janfebmaraprmayjunjulaugsepoctnovdec", m$, vbTextCompare) + 2) / 3GMT_Time = Replace(GMT_Time, " " & m$ & " ", "." & Format(mv$, "00") & ".")
GetRealTime = CDate(GMT_Time) + Val(GMT&) / 24If GetRealTime < ThisWorkbook.Sheets("$").Cells(8, 65).Value ThenThisWorkbook.Sheets("$").Cells(9, 65).Value = 1 End If
Загрузка.TextBox2.Width = Загрузка.TextBox1.Width * 0.4
End Function
И сколько будет стоить разработка такой библиотеки?
|
| |
|
|
