Cum acesezi cursul valutar din VB 6 apoi sa il poti folosi oriunde in aplicatie?
Simplu
Alex Bedeleu - AB-SOFT TIMISOARA www.ab-soft.ro




' se defineste un calendar ( theCalendar) pe care il setezi default la ziua curenta

Dim zi, luna, an, NextCurrent, url


    theCalendar.Year = Format(Now, "yyyy")
    theCalendar.Month = Format(Now, "m")
    theCalendar.Day = Format(Now, "d")


        zi = frmdata.theCalendar.Day
        luna = frmdata.theCalendar.Month
        an = frmdata.theCalendar.Year


'se formateaza data dupa formatul linkului folosit pe site

 NextCurrent = CDate(an & "/" & luna & "/" & zi)
       NextCurrent = CStr(Format(NextCurrent, "yyyy") & "/" & Format(NextCurrent, "m") & "/" & Format(NextCurrent, "d"))
       

url = CStr("http://www.infovalutar.ro/" & NextCurrent & "/EUR.bnr")


'se afiseaza intr-un textbox cursul valutar prin accesarea url construit

curseuro.text = Inet1.OpenURL(CStr(url), icString)