As far as I know there are not built in function available to get the requirement of yours. however you can create such function which will help you to full fill your requirement.
you can take an idea by using below mentioned function.
The above mentioned function is supposed to extracts email address and from mailto-link and replace the same with mailto: with having empty string. So I donít think it would be a difficult thing to do write a comparable function which would replace http:// with empty string. If you scared of VBA then also you will require to edit couple of lines.
Function GetAddress(HyperlinkCell As Range)
GetAddress = Replace _
(HyperlinkCell.Hyperlinks(1).Address, "mailto:", "")