Results 1 to 4 of 4

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Mar:2008
    Location: BG
    Posts: 162

    Çàïèñ â êëåòêà íà åêñåë íà àêòóàëíàòà äàòà çà BG âçåòà îò èíòåðíåò

    Öåëòà å äà ñå ïðîâåðè äàëè äàòàòà íà êîìïþòúðà å ìàíèïóëèðàíà. Ïðèëàãàì ôàéë ñ ìàêðîñ êîéòî âúðøè ãîðå äîëó èñêàíîòî , íî íå óñïÿõ äà ãî íàãëàñÿ ñ ÁÃ ëîêàëèçàöèÿ . Âúâ ôàéëà èìà è îïèñàíèå.

    Áëàãîäàðÿ íà îçîâàëèòå ñå
    Attached Files

  2. #2
    î_Î niksus's Avatar
    Join Date: Jul:2003
    Location: Âàðíà
    Posts: 4,523
    Îò êúäå â èíòåðíåò èñêàø äà ãëåäàø äàòàòà? Íÿêîé ñàéò, òàéì ñúðâúðè... ?
    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/

  3. #3
    Registered User
    Join Date: Mar:2008
    Location: BG
    Posts: 162
    Íÿìà çíà÷åíèå .... Âàæíîòî å äà å âÿðíà ..... Ïðèìåðíî òîçè ñàéò : http://www.timeanddate.com/worldcloc...creen.html?n=2

  4. #4
    Ïëàìåí Ñ. haibusa2005's Avatar
    Join Date: Mar:2005
    Location: Âàðíà
    Posts: 1,884
    Àç áèõ ïîëçâàë íåùî òàêîâà
    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 2021
    Îò òàì íàòàòúê âå÷å ïðàâèø êàêâîòî ñè èñêàø ñ íåãî.
    Last edited by haibusa2005; 31st August 2021 at 18:43.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 Õàðäóåð ÁÃ. Âúçìîæíî å ñúäúðæàíèåòî íà òàçè ñòðàíèöà äà å îáåêò íà àâòîðñêè ïðàâà.
iskamPC.com | mobility.BG | Bloody's Techblog | Êðèïòîâàëóòè è ìàéíèíã | 3D Vision Blog | Ìàãàçèí çà åëåêòðîííè öèãàðè