Skip to main content

Категория: Машини

Компютри, интернет, и разни такива

Брех таз държавна администрация

chernobyl Вашият коментар

zx500_387675.jpg

Computerworld.bg: Н. Василев призова за отворени проекти

Да се проведе социологическо проучване сред населението по въпроса какъв софтуер да се използва в държавната администрация бе второто предложение на Николай Василев. Според него, хората трябва да споделят какво мислят за това. „Ако повечето хора мислят като мен, тогава защо ме дадохте на прокурор?“ – реторично попита министърът.

Социологическо проучване на тема „искате ли държавата да плати за софтуер 120 милиона лева от вашите пари, или да ползва безплатен?“… аз мисля, че е по-добре министърът да си спести парите за провеждане на такова проучване, мога веднага да му кажа резултатите.

Той подчерта още, че ако мнозинството хора подкрепят идеята за използване на свободен софтуер, трябва да бъдат попитани защо не го ползват щом го подкрепят.

Защото им е по-лесно да ползват нелегални копия на продуктите на Microsoft. Това не значи, че и държавата трябва да прави като тях 🙂 Все си мисля, че ако хората наистина бяха принудени да си плащат, положението щеше да е по-различно.

Currency conversion in Excel

chernobyl 2 коментара

I have an Excel workbook which calculates money amounts in multiple currencies, and I thought that it would be very nice to make it automatically get the newest exchange rates over the Internet.

I have always been using Google as my favorite currency conversion tool. You can try that yourself – for example, if you insert „100 GBP in USD“, it will show you the value of $100 in pounds sterling.

And so I was happy to learn that the XMLHTTP ActiveX control, which is very popular among web developers, can be accessed from Excel’s VBA macros too. That control is basically used to retrieve data from a HTTP server.

So it actually proved very simple to code an Excel macro that would connect to Google, get currency exchange rate data, parse it and put it in a cell.

Here’s the function that does the actual job:

Function GetCurrencyRate(Currency_1 As String, Currency_2 As String)
    Dim XMLhttp: Set XMLhttp = CreateObject("microsoft.xmlhttp")
    url$ = "http://www.google.com/search?q=1+" + Currency_1 + "+in+" + Currency_2

    XMLhttp.Open "GET", url$, False
    XMLhttp.send ""

    Result$ = XMLhttp.responsetext

    CBegin% = InStr(Result$, "<font size=+1><b>") + 17
    Result$ = Mid$(Result$, CBegin%)

    CBegin% = InStr(Result$, " = ") + 3
    Result$ = Mid$(Result$, CBegin%)

    GetCurrencyRate = Val(Result$)
End Function

As long as Google keeps the same page design, this function will work perfectly. Now any macro can call the currency exchange rate retrieval function and use the results. Here is the solution I chose for my case – an Auto_Open macro, which would automatically fire up when the workbook is opened, get the US Dollar / Euro exchange rate and put it in the F9 cell on Sheet 1:

Sub Auto_Open()
    R = GetCurrencyRate("USD", "EUR")
    Sheets("Sheet1").Range("F9").Formula = Str$(R)
End Sub