Hi
This is the Excel function that returns qtr eps.
-------------------------------------------------------------------------
Public Function QP_QuarterEps(symbol As String, Quarter_Index As Long)
qp_Revs.symbol = symbol
Value = qp_Revs.Earnings(Quarter_Index)
If (VarType(Value) = vbError) Then
QP_QuarterEps = "N/A"
Else
QP_QuarterEps = Value
End If
End Function
-----------------------------------------------------------------------------
The earnings function returns the quarterly eps, I guess it should be name eps
instead of earnings.
Best regards
Gary Lyben
----- Original Message -----
From: ly0y
To: [email protected]
Sent: Sunday, March 30, 2008 1:00 AM
Subject: [quotes-plus] Re: Scan Function -> COM interface?
Yes, I got Earnings to work. I do know those functions you listed
below work, I also listed them in my last post. I must not have been
clear where my problem lies.
I'm trying to get *Earnings per Share* historically - EPS. The
equivalent QP scan function is QTREPS. Not Earnings.
Alternatively I could make do with historical active shares so I can
calculate EPS myself (dividing earnings by active shares). I don't see
a call in any of the historical functions for getting share counts by
quarter.
Eric
--- In [email protected], Howard Hansen <[EMAIL PROTECTED]> wrote:
>
> The Quotes Plus VB 6.0 example 4 shows the following code for getting
> Quarterly earnings and revenues from the Quotes Plus database. I
> haven't converted example 4 for use with the 2005 version of VB.net yet
> so I can't predict it will work for you. But hopefully the code will
> provide you some hints towards answering your question. Qtr is a
> negative number. Quotes Plus uses a similar scheme for indexing
> earnings as it does for indexing closing prices.
>
> Howard
>
> qpRevEps.Symbol = Symbol
> 'Earnings Per Share
> DisplayDataNumber qpRevEps.Earnings(Qtr), IDC_EPS
> 'Revenues
> DisplayDataNumber qpRevEps.Revenues(Qtr), IDC_SALES
> '12 Month Sales Change
> DisplayDataNumber qpRevEps.SalesChange12Month(Qtr), IDC_12SALES
> '12 Month EPS Change
> DisplayDataNumber qpRevEps.EarningsChange12Month(Qtr), IDC_12EPS
>
> ly0y wrote:
> >
> > I'm the original poster. When I declare an instance of RevEPS, which
> > function do I call to get quarterly EPS? Note that I'm looking for the
> > equivalent to the scan function QTREPS(#qtrnum), not earnings.
> >
> > Object Browser tells me the functions in QuotesPlus.RevEPS are:
> >
> > Earnings(Integer)
> > EarningsChange12Month(Integer)
> > QtrDate(Integer)
> > Revenues(Integer)
> > SalesChange12Month(Integer)
> >
> > I don't see anything for EPS. How can I reproduce the scan function
> > QTREPS?
> >
> > Thanks!
> >
> > Eric
> >
> > --- In [email protected]
> > <mailto:quotes-plus%40yahoogroups.com>, "gary" <gary@> wrote:
> > >
> > > Hi Howard -
> > >
> > > You should see a RevEps object
> > >
> > > This is from vba in Excel:
> > >
> > >
> > > Dim qp_Revs As New QuotesPlus.RevEps
> > >
> > >
> > > You can always go to vba from excel to see what functions are being
> > called.
> > >
> > > Best regards
> > >
> > > Gary
> > >
> > >
> > >
> > >
> > > ----- Original Message -----
> > > From: Howard Hansen
> > > To: [email protected]
<mailto:quotes-plus%40yahoogroups.com>
> > > Sent: Saturday, March 29, 2008 5:23 PM
> > > Subject: Re: [quotes-plus] Scan Function -> COM interface?
> > >
> > >
> > > As far as I can tell the Quotes Plus COM interface doesn't have a
> > > function for getting quarterly earnings from the Quotes Plus
> > database.
> > > I used the object browser to search the classes exposed by the COM
> > > interface but couldn't find a method that returned the quarterly
> > > earnings for a stock. Very strange because the Excel interface
> > > includes a function for getting quarterly earnings from the Quotes
> > Plus
> > > database.
> > >
> > > Howard
> > >
> > > ly0y wrote:
> > > >
> > > > I have been trying to reproduce a scan I run as a console VB.NET
> > > > application. I used as my base the QP_EX_Closes program (thanks to
> > > > whomever wrote that).
> > > >
> > > > I have much of it working. The thing I'm fighting right now is
> > > > reproducing the QPSCAN function QTREPS(quarter#).
> > > >
> > > > I've tried to grab the same data from the RevEPS class, which
seems
> > > > logical, but I don't see a matching function. I tried the
> > > > EarningsEstimates class function QtrYPAEPS but when I pass
> > quarter# ==
> > > > -1 I get garbage back. The CompanyInfo class has a TTMEPS
> > function but
> > > > it doesn't take a quarter parameter.
> > > >
> > > > I know it's something stupid I'm overlooking. Can anyone please
> > point
> > > > me in the right direction?
> > > >
> > > > Eric
> > > >
> > > >
> > >
> >
> >
>
