' VB Script Document
function rotunjire(valoare)
rotunjire=Round(valoare,2)
end function

function aduZi(an,luna,zi)
aduZi=weekday(dateserial(an,luna,zi))-1
end function