Results 1 to 4 of 4
Hybrid View
-
31st August 2021 16:00 #1Registered User
Join Date: Mar:2008
Location: BG
Posts: 162
Çàïèñ â êëåòêà íà åêñåë íà àêòóàëíàòà äàòà çà BG âçåòà îò èíòåðíåò
Öåëòà å äà ñå ïðîâåðè äàëè äàòàòà íà êîìïþòúðà å ìàíèïóëèðàíà. Ïðèëàãàì ôàéë ñ ìàêðîñ êîéòî âúðøè ãîðå äîëó èñêàíîòî , íî íå óñïÿõ äà ãî íàãëàñÿ ñ ÁÃ ëîêàëèçàöèÿ . Âúâ ôàéëà èìà è îïèñàíèå.
Áëàãîäàðÿ íà îçîâàëèòå ñå
-
31st August 2021 17:08 #2
Îò êúäå â èíòåðíåò èñêàø äà ãëåäàø äàòàòà? Íÿêîé ñàéò, òàéì ñúðâúðè... ?
There are no choices. Nothing but a straight line. The illusion comes afterwards when you ask "Why me?" and "What if?".
If you had done something differently, it would be someone else, looking back, asking a different set of questions.
/Max Payne/
-
31st August 2021 17:29 #3Registered User
Join Date: Mar:2008
Location: BG
Posts: 162
Íÿìà çíà÷åíèå .... Âàæíîòî å äà å âÿðíà ..... Ïðèìåðíî òîçè ñàéò : http://www.timeanddate.com/worldcloc...creen.html?n=2
-
31st August 2021 18:36 #4
Àç áèõ ïîëçâàë íåùî òàêîâà
Âðúùà ñòðèíã âúâ âèäàCode:Function getCurrentDate2() As String Dim output As String With CreateObject("MSXML2.XMLHTTP") .Open "GET", "https://www.timeanddate.com/worldclock/bulgaria/sofia", False .send output = .responseText Dim regex As Object Set regex = CreateObject("vbscript.regexp") With regex .Pattern = "<span id=ctdat>.*?<\/span>" .Global = True End With End With Set matches = regex.Execute(output) output = matches.Item(0) output = Replace(output, "<span id=ctdat>", "") output = Replace(output, "</span>", "") getCurrentDate2 = output End FunctionÎò òàì íàòàòúê âå÷å ïðàâèø êàêâîòî ñè èñêàø ñ íåãî.Tuesday, 31 August 2021Last edited by haibusa2005; 31st August 2021 at 18:43.




Reply With Quote
Lenovo ThinkPad 15 èëè IdeaPad 15
5th May 2023, 22:16 in Ìîáèëíè êîìïþòðè