Managed to get planets position in Ms-excel, but found no way to get the houses
in the spreadsheet. Is there anyone who can give me a good tip?

My knowledge of VB is about zilch but try this:

Public Function cuspldd(y As Integer, m As Integer, d As Integer, h As Double,
glat As Double, glon As Double, _
                        hsys As Long, ctype As Double, sid As Double, hno As
Integer)
 Dim jut As Double
 Dim csp(13) As Double, acsp(10) As Double
 Dim rflg As Long
 
 jut = swe_julday(y, m, d, h, SE_GREG_CAL)
 
 Select Case ctype
  Case Is = 1
   rflg = swe_set_sid_mode(sid, 0, 0)
   rflg = swe_houses_ex(jut, SEFLG_SIDEREAL, glat, glon, hsys, csp(0), acsp(0))
  Case Else
   rflg = swe_houses_ex(jut, 0, glat, glon, hsys, csp(0), acsp(0))
 End Select
 
 cuspldd = csp(hno)
 
End Function


for positions in RA:

Public Function cuspldd_ra(y As Integer, m As Integer, d As Integer, h As
Double, glat As Double, glon As Double, _
    hsys As Long, GeoHel As Double, hno As Integer, Optional blnDeclcusp As
Boolean = False)
                       
 Dim jut As Double, csp(13) As Double, acsp(10) As Double, rflg As Long
 Dim eps As Double, xx(6) As Double, serr As String, Xpo(13) As Double, xpn(13)
As Double
 
 jut = swe_julday(y, m, d, h, SE_GREG_CAL)
 
 rflg = swe_calc_ut(jut, SE_ECL_NUT, 0, xx(0), serr)
  eps = xx(0)
  eps = -eps
 
 rflg = swe_houses_ex(jut, 0, glat, glon, hsys, csp(0), acsp(0))
 Xpo(0) = csp(hno)
 Xpo(1) = 0
 Xpo(2) = 1
 
 rflg = swe_cotrans_d(Xpo(0), xpn(0), eps)
'rflg = swe_cotrans(xpn(0), Xpo(0), eps) this function didn't work. Checked
"swephrg.pdf"
'tried  this:   swe_cotrans_d        WORKED !
    If Not blnDeclcusp Then   ' to get declination input "TRUE" refer above
Public Function
        cuspldd_ra = xpn(0)     ' xpn(1) will contain declination of vertex !
    Else
        cuspldd_ra = xpn(1)
    End If
End Function






________________________________
From: Jan <janschotten@...>
To: swisseph@yahoogroups.com
Sent: Sat, 13 November, 2010 10:23:20 AM
Subject: [SWISSEPH] houses from swiss ephemeris in Ms-Excel

Managed to get planets position in Ms-excel, but found no way to get the houses
in the spreadsheet. Is there anyone who can give me a good tip?




------------------------------------

Yahoo! Groups Links






[Non-text portions of this message have been removed]

Thanks Ski Woka,

A little modification made it work properly
A complete horoscope in a spreadsheet, now I can make sheets for several curious
points in astrology and calculate them with excel formulas

Public Function cuspldd(y As Long, m As Long, d As Long, h As Double, _
glat As Double, glon As Double, _
hsys As Long, ctype As Double, sid As Double, hno As Integer, tz As Double)
 Dim jut As Double
 Dim csp(13) As Double, acsp(10) As Double
 Dim rflg As Long
 
 jut = swe_julday(y, m, d, h, 1) + tz / 24#
 
 Select Case ctype
  Case Is = 1
   rflg = swe_set_sid_mode(sid, 0, 0)
   rflg = swe_houses_ex(jut, SEFLG_SIDEREAL, glat, glon, hsys, csp(0),
acsp(0))
  Case Else
   rflg = swe_houses_ex(jut, 0, glat, glon, hsys, csp(0), acsp(0))
 End Select
 
 cuspldd = csp(hno)
 
End Function





________________________________
From: ski woka <skiwoka@...>
To: swisseph@yahoogroups.com
Sent: Sat, November 13, 2010 3:33:58 PM
Subject: Re: [SWISSEPH] houses from swiss ephemeris in Ms-Excel

 
My knowledge of VB is about zilch but try this:

Public Function cuspldd(y As Integer, m As Integer, d As Integer, h As Double,
glat As Double, glon As Double, _
                        hsys As Long, ctype As Double,
sid As Double, hno As
Integer)
 Dim jut As Double
 Dim csp(13) As Double, acsp(10) As Double
 Dim rflg As Long
 
 jut = swe_julday(y, m, d, h, SE_GREG_CAL)
 
 Select Case ctype
  Case Is = 1
   rflg = swe_set_sid_mode(sid, 0, 0)
   rflg = swe_houses_ex(jut, SEFLG_SIDEREAL, glat, glon, hsys, csp(0),
acsp(0))
  Case Else
   rflg = swe_houses_ex(jut, 0, glat, glon, hsys, csp(0), acsp(0))
 End Select
 
 cuspldd = csp(hno)
 
End Function

for positions in RA:

Public Function cuspldd_ra(y As Integer, m As Integer, d As Integer, h As
Double, glat As Double, glon As Double, _
    hsys As Long, GeoHel As Double, hno As Integer, Optional blnDeclcusp As
Boolean = False)
                       
 Dim jut As Double, csp(13) As Double, acsp(10) As Double, rflg As Long
 Dim eps As Double, xx(6) As Double, serr As String, Xpo(13) As Double, xpn(13)
As Double
 
 jut = swe_julday(y, m, d, h, SE_GREG_CAL)
 
 rflg = swe_calc_ut(jut, SE_ECL_NUT, 0, xx(0), serr)
  eps = xx(0)
  eps = -eps
 
 rflg = swe_houses_ex(jut, 0, glat, glon, hsys, csp(0), acsp(0))
 Xpo(0) = csp(hno)
 Xpo(1) = 0
 Xpo(2) = 1
 
 rflg = swe_cotrans_d(Xpo(0), xpn(0), eps)
'rflg = swe_cotrans(xpn(0), Xpo(0), eps) this function didn't work. Checked
"swephrg.pdf"
'tried  this:   swe_cotrans_d        WORKED !
    If Not blnDeclcusp Then   ' to get declination input "TRUE" refer above
Public Function
        cuspldd_ra = xpn(0)     ' xpn(1) will contain declination of
vertex !
    Else
        cuspldd_ra = xpn(1)
    End If
End Function

________________________________
From: Jan <janschotten@...>
To: swisseph@yahoogroups.com
Sent: Sat, 13 November, 2010 10:23:20 AM
Subject: [SWISSEPH] houses from swiss ephemeris in Ms-Excel

Managed to get planets position in Ms-excel, but found no way to get the houses
in the spreadsheet. Is there anyone who can give me a good tip?

------------------------------------

Yahoo! Groups Links

[Non-text portions of this message have been removed]







[Non-text portions of this message have been removed]

Dear Helpers
I am also using swiss ephe.
i need help to calculate when the planet come to a particular position

example. Now sun is 250.25.35 deg

now i want sun when sun come to 290.45.52 deg

i am using vb6.0
Please Help to me.

Thanking you,

S.Ramkumar


[Non-text portions of this message have been removed]

Hi Ramkumar,

There are many numerical root-finding algorithms that you can adopt. For
myself, I use bisection method to calculate solar return. You can find it on
the Wikipedia: http://en.wikipedia.org/wiki/Bisection_method. Hope this
helps.

Thanks,

Joel.

2010/11/14 ramkumar . <srkprinter@...>

>
>
> Dear Helpers
> I am also using swiss ephe.
> i need help to calculate when the planet come to a particular position
>
> example. Now sun is 250.25.35 deg
>
> now i want sun when sun come to 290.45.52 deg
>
> i am using vb6.0
> Please Help to me.
>
> Thanking you,
>
> S.Ramkumar
>
> [Non-text portions of this message have been removed]
>
>
>


[Non-text portions of this message have been removed]

The current rise/set/transit method ignores dip (even though it accepts observer
height). Does anyone have a method to correct? Thanks

Hi,

I have an excel sheet that I made that calls up planetary positions onto excel.
Do these positions have to be in degree and minute format to be "exact" because
right now they are in just regular number format. Obviously, If i am doing
calculations these will not be exact if not in degree minute format???

I am guessing that they do have to be in degree minute format so how would one
be able to do that?

The exactness of a number does not depend on its representation.

decimal fractions are perfectly equivalent to ddd°mm'ss.fffff"
representation. It is a matter of taste what one prefers.



On 30.11.10 01:09, libyanpimp wrote:
> Hi,
>
> I have an excel sheet that I made that calls up planetary positions onto
excel. Do these positions have to be in degree and minute format to be "exact"
because right now they are in just regular number format. Obviously, If i am
doing calculations these will not be exact if not in degree minute format???
>
> I am guessing that they do have to be in degree minute format so how would one
be able to do that?
>
>
>
> ------------------------------------
>
> Yahoo! Groups Links
>
>
>

Ad this function to the visual basic file and then use dms(x) in your spread
sheet

Const sknam As String = "ARTAGECNLEVILISCSACPAQPS"

Public Function Dms(x As Double) As String
 
  Dim y As Double, l As Double, degs As Integer, _
      mins As Integer, secs As Integer, _
      suffix As String
 
 
  y = (x / 360 - Int(x / 360)) * 360
  suffix = Mid(sknam, 1 + 2 * Int(y / 30), 2)
  y = y - 30 * Int(y / 30)
  l = y
  degs = Int(y)
  If degs < 10 Then
    Dms = " " & degs
  Else
    Dms = degs
  End If
  y = (y - degs) * 60
  mins = Int(y)
  If mins < 10 Then
    Dms = Dms & "° " & mins
  Else
    Dms = Dms & "°" & mins
  End If
  y = (y - mins) * 60
  If y > 59 And l > 29.983333 Then
    secs = 59
  Else
    secs = Int(y + 0.5)
  End If
  If secs < 10 Then
    Dms = Dms & "' " & secs
  Else
    Dms = Dms & "'" & secs
  End If
 
  Dms = Dms & """ " & suffix
End Function


The exactness stays the same, but this is the usual format for astrologers


By the way what do you use this for???




________________________________
The From: Alois Treindl <alois@...>
To: swisseph@yahoogroups.com
Sent: Tue, November 30, 2010 7:48:05 AM
Subject: Re: [SWISSEPH] Does astro info from swisseph have to be in degrees &
min in excel to be exact?

 
The exactness of a number does not depend on its representation.

decimal fractions are perfectly equivalent to ddd°mm'ss.fffff"
representation. It is a matter of taste what one prefers.

On 30.11.10 01:09, libyanpimp wrote:
> Hi,
>
> I have an excel sheet that I made that calls up planetary positions onto
excel.
>Do these positions have to be in degree and minute format to be "exact" because
>right now they are in just regular number format. Obviously, If i am doing
>calculations these will not be exact if not in degree minute format???
>
> I am guessing that they do have to be in degree minute format so how would one
>be able to do that?
>
>
>
> ------------------------------------
>
> Yahoo! Groups Links
>
>
>






[Non-text portions of this message have been removed]

As Alois wrote the exactness does not make any difference:

To transform to the usual format add this to your program:

Const sknam As String = "ARTAGECNLEVILISCSACPAQPS"

Public Function Dms(x As Double) As String
 
  Dim y As Double, l As Double, degs As Integer, _
      mins As Integer, secs As Integer, _
      suffix As String
 
 
  y = (x / 360 - Int(x / 360)) * 360
  suffix = Mid(sknam, 1 + 2 * Int(y / 30), 2)
  y = y - 30 * Int(y / 30)
  l = y
  degs = Int(y)
  If degs < 10 Then
    Dms = " " & degs
  Else
    Dms = degs
  End If
  y = (y - degs) * 60
  mins = Int(y)
  If mins < 10 Then
    Dms = Dms & "° " & mins
  Else
    Dms = Dms & "°" & mins
  End If
  y = (y - mins) * 60
  If y > 59 And l > 29.983333 Then
    secs = 59
  Else
    secs = Int(y + 0.5)
  End If
  If secs < 10 Then
    Dms = Dms & "' " & secs
  Else
    Dms = Dms & "'" & secs
  End If
 
  Dms = Dms & """ " & suffix
End Function

And then with =dms(250,1734512) gives as result
10°10'24" SA
By the way what do you use the excel sheet for??

Greetings
Jan Schotten




________________________________
From: libyanpimp <libyanpimp@...>
To: swisseph@yahoogroups.com
Sent: Tue, November 30, 2010 1:09:00 AM
Subject: [SWISSEPH] Does astro info from swisseph have to be in degrees & min in
excel to be exact?

 
Hi,

I have an excel sheet that I made that calls up planetary positions onto excel.
Do these positions have to be in degree and minute format to be "exact" because
right now they are in just regular number format. Obviously, If i am doing
calculations these will not be exact if not in degree minute format???

I am guessing that they do have to be in degree minute format so how would one
be able to do that?







[Non-text portions of this message have been removed]

Working with dms(x) I discovered a mistake if the seconds are higher than 59.
This works better:
Public Function dms(x As Double) As String

   Dim y As Double, l As Double, degs As Integer, _
       mins As Integer, secs As Double, _
       suffix As String


   y = (x / 360 - Int(x / 360)) * 360
   suffix = Mid(sknam, 1 + 2 * Int(y / 30), 2)
   y = y - 30 * Int(y / 30)
   l = y
   degs = Int(y)
   If degs < 10 Then
     dms = " " & degs
   Else
     dms = degs
   End If
   y = (y - degs) * 60
   mins = Int(y)
   If mins < 10 Then
     dms = dms & "° " & mins
   Else
     dms = dms & "°" & mins
   End If

   y = (y - mins) * 600
       secs = (Int(y)) / 10
   If secs < 10 Then
     dms = dms & "' " & secs
   Else
     dms = dms & "'" & secs
   End If

   dms = dms & """ " & suffix

End Function

Hi Jan, would this be a macro I run or what? Dont really know how to use this or
where to put this code.

--- In swisseph@yahoogroups.com, "Jan" <janschotten@...> wrote:
>
> Working with dms(x) I discovered a mistake if the seconds are higher than 59.
This works better:
> Public Function dms(x As Double) As String
>
>   Dim y As Double, l As Double, degs As Integer, _
>       mins As Integer, secs As Double, _
>       suffix As String
>
>
>   y = (x / 360 - Int(x / 360)) * 360
>   suffix = Mid(sknam, 1 + 2 * Int(y / 30), 2)
>   y = y - 30 * Int(y / 30)
>   l = y
>   degs = Int(y)
>   If degs < 10 Then
>     dms = " " & degs
>   Else
>     dms = degs
>   End If
>   y = (y - degs) * 60
>   mins = Int(y)
>   If mins < 10 Then
>     dms = dms & "° " & mins
>   Else
>     dms = dms & "°" & mins
>   End If
>
>   y = (y - mins) * 600
>       secs = (Int(y)) / 10
>   If secs < 10 Then
>     dms = dms & "' " & secs
>   Else
>     dms = dms & "'" & secs
>   End If
>
>   dms = dms & """ " & suffix
>
> End Function
>

Thankyou all. You are sending me formula?s or something but I am unsure of how
to use them and I am guessing they are to toggle bw deg/min and fractions????

Jan, I use the spreadsheet so I can make custom charts thru excel.

--- In swisseph@yahoogroups.com, Jan Schotten <janschotten@...> wrote:
>
> As Alois wrote the exactness does not make any difference:
>
> To transform to the usual format add this to your program:
>
> Const sknam As String = "ARTAGECNLEVILISCSACPAQPS"
>
> Public Function Dms(x As Double) As String
>  
>   Dim y As Double, l As Double, degs As Integer, _
>       mins As Integer, secs As Integer, _
>       suffix As String
>  
>  
>   y = (x / 360 - Int(x / 360)) * 360
>   suffix = Mid(sknam, 1 + 2 * Int(y / 30), 2)
>   y = y - 30 * Int(y / 30)
>   l = y
>   degs = Int(y)
>   If degs < 10 Then
>     Dms = " " & degs
>   Else
>     Dms = degs
>   End If
>   y = (y - degs) * 60
>   mins = Int(y)
>   If mins < 10 Then
>     Dms = Dms & "° " & mins
>   Else
>     Dms = Dms & "°" & mins
>   End If
>   y = (y - mins) * 60
>   If y > 59 And l > 29.983333 Then
>     secs = 59
>   Else
>     secs = Int(y + 0.5)
>   End If
>   If secs < 10 Then
>     Dms = Dms & "' " & secs
>   Else
>     Dms = Dms & "'" & secs
>   End If
>  
>   Dms = Dms & """ " & suffix
> End Function
>
> And then with =dms(250,1734512) gives as result
> 10°10'24" SA
> By the way what do you use the excel sheet for??
>
> Greetings
> Jan Schotten
>
>
>
>
> ________________________________
> From: libyanpimp <libyanpimp@...>
> To: swisseph@yahoogroups.com
> Sent: Tue, November 30, 2010 1:09:00 AM
> Subject: [SWISSEPH] Does astro info from swisseph have to be in degrees & min
in
> excel to be exact?
>
>  
> Hi,
>
> I have an excel sheet that I made that calls up planetary positions onto
excel.
> Do these positions have to be in degree and minute format to be "exact"
because
> right now they are in just regular number format. Obviously, If i am doing
> calculations these will not be exact if not in degree minute format???
>
> I am guessing that they do have to be in degree minute format so how would one
> be able to do that?
>
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>

Hello!

Sorry! I am Spanish and my English not is well.

This code VBA is good.

Best wishes to All.

------------------------------------------------

Option Explicit

'
' Swiss Ephemeris Release 1.4  19-apr-1999
'
' Declarations for Visual Basic 5.0
' The DLL file must exist in the same directory as the VB executable, or in a
system
' directory where it can be found at runtime
'

Private Declare Function swe_calc Lib "swedll32.dll" _
         Alias "_swe_calc@24" ( _
           ByVal tjd As Double, _
           ByVal ipl As Long, _
           ByVal iflag As Long, _
           ByRef x As Double, _
           ByVal serr As String _
         ) As Long   ' x must be first of six array elements
                     ' serr must be able to hold 256 bytes

Private Declare Function swe_calc_d Lib "swedll32.dll" _
         Alias "_swe_calc_d@20" ( _
           ByRef tjd As Double, _
           ByVal ipl As Long, _
           ByVal iflag As Long, _
           ByRef x As Double, _
           ByVal serr As String _
         ) As Long       ' x must be first of six array elements
                         ' serr must be able to hold 256 bytes

Private Declare Function swe_close Lib "swedll32.dll" _
         Alias "_swe_close@0" ( _
         ) As Long

Private Declare Function swe_close_d Lib "swedll32.dll" _
         Alias "_swe_close_d@4" ( _
           ByVal ivoid As Long _
         ) As Long       ' argument ivoid is ignored

Private Declare Sub swe_cotrans Lib "swedll32.dll" _
         Alias "_swe_cotrans@16" ( _
           ByRef xpo As Double, _
           ByRef xpn As Double, _
           ByVal eps As Double _
         )

Private Declare Function swe_cotrans_d Lib "swedll32.dll" _
         Alias "_swe_cotrans_d@12" ( _
           ByRef xpo As Double, _
           ByRef xpn As Double, _
           ByRef eps As Double _
         ) As Long

Private Declare Sub swe_cotrans_sp Lib "swedll32.dll" _
         Alias "_swe_cotrans_sp@16" ( _
           ByRef xpo As Double, _
           ByRef xpn As Double, _
           ByVal eps As Double _
         )

Private Declare Function swe_cotrans_sp_d Lib "swedll32.dll" _
         Alias "_swe_cotrans_sp_d@12" ( _
           ByRef xpo As Double, _
           ByRef xpn As Double, _
           ByRef eps As Double _
         ) As Long

Private Declare Sub swe_cs2degstr Lib "swedll32.dll" _
         Alias "_swe_cs2degstr@8" ( _
           ByVal t As Long, _
           ByVal s As String _
         )

Private Declare Function swe_cs2degstr_d Lib "swedll32.dll" _
         Alias "_swe_cs2degstr_d@8" ( _
           ByVal t As Long, _
           ByVal s As String _
         ) As Long

Private Declare Sub swe_cs2lonlatstr Lib "swedll32.dll" _
         Alias "_swe_cs2lonlatstr@16" ( _
           ByVal t As Long, _
           ByVal pchar As Byte, _
           ByVal mchar As Byte, _
           ByVal s As String _
         )

Private Declare Function swe_cs2lonlatstr_d Lib "swedll32.dll" _
         Alias "_swe_cs2lonlatstr_d@16" ( _
           ByVal t As Long, _
           ByRef pchar As Byte, _
           ByRef mchar As Byte, _
           ByVal s As String _
         ) As Long

Private Declare Sub swe_cs2timestr Lib "swedll32.dll" _
         Alias "_swe_cs2timestr@16" ( _
           ByVal t As Long, _
           ByVal sep As Long, _
           ByVal supzero As Long, _
           ByVal s As String _
         )

Private Declare Function swe_cs2timestr_d Lib "swedll32.dll" _
         Alias "_swe_cs2timestr_d@16" ( _
           ByVal t As Long, _
           ByVal sep As Long, _
           ByVal supzero As Long, _
           ByVal s As String _
         ) As Long

Private Declare Function swe_csnorm Lib "swedll32.dll" _
         Alias "_swe_csnorm@4" ( _
           ByVal p As Long _
         ) As Long

Private Declare Function swe_csnorm_d Lib "swedll32.dll" _
         Alias "_swe_csnorm_d@4" ( _
           ByVal p As Long _
         ) As Long

Private Declare Function swe_csroundsec Lib "swedll32.dll" _
         Alias "_swe_csroundsec@4" ( _
           ByVal p As Long _
         ) As Long

Private Declare Function swe_csroundsec_d Lib "swedll32.dll" _
         Alias "_swe_csroundsec_d@4" ( _
           ByVal p As Long _
         ) As Long

Private Declare Function swe_d2l Lib "swedll32.dll" _
         Alias "_swe_d2l@8" ( _
         ) As Long

Private Declare Function swe_d2l_d Lib "swedll32.dll" _
         Alias "_swe_d2l_d@4" ( _
         ) As Long

Private Declare Function swe_date_conversion Lib "swedll32.dll" _
         Alias "_swe_date_conversion@28" ( _
           ByVal Year As Long, _
           ByVal Month As Long, _
           ByVal Day As Long, _
           ByVal utime As Double, _
           ByVal cal As Byte, _
           ByRef tjd As Double _
         ) As Long

Private Declare Function swe_date_conversion_d Lib "swedll32.dll" _
         Alias "_swe_date_conversion_d@24" ( _
           ByVal Year As Long, _
           ByVal Month As Long, _
           ByVal Day As Long, _
           ByRef utime As Double, _
           ByRef cal As Byte, _
           ByRef tjd As Double _
         ) As Long

Private Declare Function swe_day_of_week Lib "swedll32.dll" _
         Alias "_swe_day_of_week@8" ( _
           ByVal jd As Double _
         ) As Long

Private Declare Function swe_day_of_week_d Lib "swedll32.dll" _
         Alias "_swe_day_of_week_d@4" ( _
           ByRef jd As Double _
         ) As Long

Private Declare Function swe_degnorm Lib "swedll32.dll" _
         Alias "_swe_degnorm@8" ( _
           ByVal jd As Double _
         ) As Double

Private Declare Function swe_degnorm_d Lib "swedll32.dll" _
         Alias "_swe_degnorm_d@4" ( _
           ByRef jd As Double _
         ) As Long

Private Declare Function swe_deltat Lib "swedll32.dll" _
         Alias "_swe_deltat@8" ( _
           ByVal jd As Double _
         ) As Double

Private Declare Function swe_deltat_d Lib "swedll32.dll" _
         Alias "_swe_deltat_d@8" ( _
           ByRef jd As Double, _
           ByRef deltat As Double _
         ) As Long

Private Declare Function swe_difcs2n Lib "swedll32.dll" _
         Alias "_swe_difcs2n@8" ( _
           ByVal p1 As Long, _
           ByVal p2 As Long _
         ) As Long

Private Declare Function swe_difcs2n_d Lib "swedll32.dll" _
         Alias "_swe_difcs2n_d@8" ( _
           ByVal p1 As Long, _
           ByVal p2 As Long _
         ) As Long

Private Declare Function swe_difcsn Lib "swedll32.dll" _
         Alias "_swe_difcsn@8" ( _
           ByVal p1 As Long, _
           ByVal p2 As Long _
         ) As Long

Private Declare Function swe_difcsn_d Lib "swedll32.dll" _
         Alias "_swe_difcsn_d@8" ( _
           ByVal p1 As Long, _
           ByVal p2 As Long _
         ) As Long

Private Declare Function swe_difdeg2n Lib "swedll32.dll" _
         Alias "_swe_difdeg2n@16" ( _
           ByVal p1 As Double, _
           ByVal p2 As Double _
         ) As Double

Private Declare Function swe_difdeg2n_d Lib "swedll32.dll" _
         Alias "_swe_difdeg2n_d@12" ( _
           ByRef p1 As Double, _
           ByRef p2 As Double, _
           ByRef diff As Double _
         ) As Long

Private Declare Function swe_difdegn Lib "swedll32.dll" _
         Alias "_swe_difdegn@16" ( _
           ByVal p1 As Double, _
           ByVal p2 As Double _
         ) As Long

Private Declare Function swe_difdegn_d Lib "swedll32.dll" _
         Alias "_swe_difdegn_d@12" ( _
           ByRef p1 As Double, _
           ByRef p2 As Double, _
           ByRef diff As Double _
         ) As Long

Private Declare Function swe_fixstar Lib "swedll32.dll" _
         Alias "_swe_fixstar@24" ( _
           ByVal star As String, _
           ByVal tjd As Double, _
           ByVal iflag As Long, _
           ByRef x As Double, _
           ByVal serr As String _
         ) As Long       ' x must be first of six array elements
                         ' serr must be able to hold 256 bytes
                         ' star must be able to hold 40 bytes

Private Declare Function swe_fixstar_d Lib "swedll32.dll" _
         Alias "_swe_fixstar_d@20" ( _
           ByVal star As String, _
           ByRef tjd As Double, _
           ByVal iflag As Long, _
           ByRef x As Double, _
           ByVal serr As String _
         ) As Long       ' x must be first of six array elements
                         ' serr must be able to hold 256 bytes
                         ' star must be able to hold 40 bytes

Private Declare Function swe_get_ayanamsa Lib "swedll32.dll" _
         Alias "_swe_get_ayanamsa@8" ( _
           ByVal tjd_et As Double _
         ) As Double

Private Declare Function swe_get_ayanamsa_d Lib "swedll32.dll" _
         Alias "_swe_get_ayanamsa_d@8" ( _
           ByRef tjd_et As Double, _
           ByRef ayan As Double _
         ) As Long

Private Declare Sub swe_get_planet_name Lib "swedll32.dll" _
         Alias "_swe_get_planet_name@8" ( _
           ByVal ipl As Long, _
           ByVal pname As String _
         )

Private Declare Function swe_get_planet_name_d Lib "swedll32.dll" _
         Alias "_swe_get_planet_name_d@8" ( _
           ByVal ipl As Long, _
           ByVal pname As String _
         ) As Long

Private Declare Function swe_get_tid_acc Lib "swedll32.dll" _
         Alias "_swe_get_tid_acc@0" ( _
         ) As Double

Private Declare Function swe_get_tid_acc_d Lib "swedll32.dll" _
         Alias "_swe_get_tid_acc_d@4" ( _
           ByRef x As Double _
         ) As Long

Private Declare Function swe_houses Lib "swedll32.dll" _
         Alias "_swe_houses@36" ( _
           ByVal tjd_ut As Double, _
           ByVal geolat As Double, _
           ByVal geolon As Double, _
           ByVal ihsy As Long, _
           ByRef hcusps As Double, _
           ByRef ascmc As Double _
         ) As Long       ' hcusps must be first of 13 array elements
                         ' ascmc must be first of 10 array elements

Private Declare Function swe_houses_d Lib "swedll32.dll" _
         Alias "_swe_houses_d@24" ( _
           ByRef tjd_ut As Double, _
           ByRef geolat As Double, _
           ByRef geolon As Double, _
           ByVal ihsy As Long, _
           ByRef hcusps As Double, _
           ByRef ascmc As Double _
         ) As Long       ' hcusps must be first of 13 array elements
                         ' ascmc must be first of 10 array elements

Private Declare Function swe_houses_ex Lib "swedll32.dll" _
         Alias "_swe_houses_ex@40" ( _
           ByVal tjd_ut As Double, _
           ByVal iflag As Long, _
           ByVal geolat As Double, _
           ByVal geolon As Double, _
           ByVal ihsy As Long, _
           ByRef hcusps As Double, _
           ByRef ascmc As Double _
         ) As Long       ' hcusps must be first of 13 array elements
                         ' ascmc must be first of 10 array elements

Private Declare Function swe_houses_ex_d Lib "swedll32.dll" _
         Alias "_swe_houses_ex_d@28" ( _
           ByRef tjd_ut As Double, _
           ByVal iflag As Long, _
           ByRef geolat As Double, _
           ByRef geolon As Double, _
           ByVal ihsy As Long, _
           ByRef hcusps As Double, _
           ByRef ascmc As Double _
         ) As Long       ' hcusps must be first of 13 array elements
                         ' ascmc must be first of 10 array elements

Private Declare Function swe_houses_armc Lib "swedll32.dll" _
         Alias "_swe_houses_armc@36" ( _
           ByVal armc As Double, _
           ByVal geolat As Double, _
           ByVal eps As Double, _
           ByVal ihsy As Long, _
           ByRef hcusps As Double, _
           ByRef ascmc As Double _
         ) As Long       ' hcusps must be first of 13 array elements
                         ' ascmc must be first of 10 array elements

Private Declare Function swe_houses_armc_d Lib "swedll32.dll" _
         Alias "_swe_houses_armc_d@24" ( _
           ByRef armc As Double, _
           ByRef geolat As Double, _
           ByRef eps As Double, _
           ByVal ihsy As Long, _
           ByRef hcusps As Double, _
           ByRef ascmc As Double _
         ) As Long       ' hcusps must be first of 13 array elements
                         ' ascmc must be first of 10 array elements

Private Declare Function swe_house_pos Lib "swedll32.dll" _
         Alias "_swe_house_pos@36" ( _
           ByVal armc As Double, _
           ByVal geolat As Double, _
           ByVal eps As Double, _
           ByVal ihsy As Long, _
           ByRef xpin As Double, _
           ByVal serr As String _
         ) As Double
                         ' xpin must be first of 2 array elements

Private Declare Function swe_house_pos_d Lib "swedll32.dll" _
         Alias "_swe_house_pos_d@28" ( _
           ByRef armc As Double, _
           ByRef geolat As Double, _
           ByRef eps As Double, _
           ByVal ihsy As Long, _
           ByRef xpin As Double, _
           ByRef hpos As Double, _
           ByVal serr As String _
         ) As Long
                         ' xpin must be first of 2 array elements

Private Declare Function swe_julday Lib "swedll32.dll" _
         Alias "_swe_julday@24" ( _
           ByVal Year As Long, _
           ByVal Month As Long, _
           ByVal Day As Long, _
           ByVal hour As Double, _
           ByVal gregflg As Long _
         ) As Double

Private Declare Function swe_julday_d Lib "swedll32.dll" _
         Alias "_swe_julday_d@24" ( _
           ByVal Year As Long, _
           ByVal Month As Long, _
           ByVal Day As Long, _
           ByRef hour As Double, _
           ByVal gregflg As Long, _
           ByRef tjd As Double _
         ) As Long

Private Declare Sub swe_revjul Lib "swedll32.dll" _
         Alias "_swe_revjul@28" ( _
           ByVal tjd As Double, _
           ByVal gregflg As Long, _
           ByRef Year As Long, _
           ByRef Month As Long, _
           ByRef Day As Long, _
           ByRef hour As Double _
         )

Private Declare Function swe_revjul_d Lib "swedll32.dll" _
         Alias "_swe_revjul_d@24" ( _
           ByRef tjd As Double, _
           ByVal gregflg As Long, _
           ByRef Year As Long, _
           ByRef Month As Long, _
           ByRef Day As Long, _
           ByRef hour As Double _
         ) As Long

Private Declare Function swe_set_sid_mode Lib "swedll32.dll" _
         Alias "_swe_set_sid_mode@20" ( _
           ByVal sid_mode As Long, _
           ByVal t0 As Double, _
           ByVal ayan_t0 As Double _
         ) As Long

Private Declare Function swe_set_sid_mode_d Lib "swedll32.dll" _
         Alias "_swe_sid_mode_d@12" ( _
           ByVal sid_mode As Long, _
           ByRef t0 As Double, _
           ByRef ayan_t0 As Double _
         ) As Long

Private Declare Sub swe_set_topo Lib "swedll32.dll" _
         Alias "_swe_set_topo@24" ( _
           ByVal geolon As Double, _
           ByVal geolat As Double, _
           ByVal altitude As Double _
         )

Private Declare Sub swe_set_topo_d Lib "swedll32.dll" _
         Alias "_swe_set_topo_d@12" ( _
           ByRef geolon As Double, _
           ByRef geolat As Double, _
           ByRef altitude As Double _
         )

Private Declare Function swe_lun_eclipse_how Lib "swedll32.dll" _
         Alias "_swe_lun_eclipse_how@24" ( _
           ByVal tjd_ut As Double, _
           ByVal ifl As Long, _
           ByRef geopos As Double, _
           ByRef attr As Double, _
           ByVal serr As String _
         ) As Long

Private Declare Function swe_lun_eclipse_how_d Lib "swedll32.dll" _
         Alias "_swe_lun_eclipse_how_d@20" ( _
           ByRef tjd_ut As Double, _
           ByVal ifl As Long, _
           ByRef geopos As Double, _
           ByRef attr As Double, _
           ByVal serr As String _
         ) As Long

Private Declare Function swe_lun_eclipse_when Lib "swedll32.dll" _
         Alias "_swe_lun_eclipse_when@28" ( _
           ByVal tjd_start As Double, _
           ByVal ifl As Long, _
           ByVal ifltype As Long, _
           ByRef tret As Double, _
           ByVal backward As Long, _
           ByVal serr As String _
         ) As Long

Private Declare Function swe_lun_eclipse_when_d Lib "swedll32.dll" _
         Alias "_swe_lun_eclipse_when_d@24" ( _
           ByRef tjd_start As Double, _
           ByVal ifl As Long, _
           ByVal ifltype As Long, _
           ByRef tret As Double, _
           ByVal backward As Long, _
           ByVal serr As String _
         ) As Long

Private Declare Function swe_sol_eclipse_how Lib "swedll32.dll" _
         Alias "_swe_sol_eclipse_how@24" ( _
           ByVal tjd_ut As Double, _
           ByVal ifl As Long, _
           ByRef geopos As Double, _
           ByRef attr As Double, _
           ByVal serr As String _
         ) As Long

Private Declare Function swe_sol_eclipse_how_d Lib "swedll32.dll" _
         Alias "_swe_sol_eclipse_how_d@20" ( _
           ByRef tjd_ut As Double, _
           ByVal ifl As Long, _
           ByRef geopos As Double, _
           ByRef attr As Double, _
           ByVal serr As String _
         ) As Long

Private Declare Function swe_sol_eclipse_when_glob Lib "swedll32.dll" _
         Alias "_swe_sol_eclipse_when_glob@28" ( _
           ByVal tjd_start As Double, _
           ByVal ifl As Long, _
           ByVal ifltype As Long, _
           ByRef tret As Double, _
           ByVal backward As Long, _
           ByVal serr As String _
         ) As Long

Private Declare Function swe_sol_eclipse_when_glob_d Lib "swedll32.dll" _
         Alias "_swe_sol_eclipse_when_glob_d@24" ( _
           ByRef tjd_start As Double, _
           ByVal ifl As Long, _
           ByVal ifltype As Long, _
           ByRef tret As Double, _
           ByVal backward As Long, _
           ByVal serr As String _
         ) As Long

Private Declare Function swe_sol_eclipse_when_loc Lib "swedll32.dll" _
         Alias "_swe_sol_eclipse_when_loc@32" ( _
           ByVal tjd_start As Double, _
           ByVal ifl As Long, _
           ByRef tret As Double, _
           ByRef attr As Double, _
           ByVal backward As Long, _
           ByVal serr As String _
         ) As Long

Private Declare Function swe_sol_eclipse_when_loc_d Lib "swedll32.dll" _
         Alias "_swe_sol_eclipse_when_loc_d@28" ( _
           ByRef tjd_start As Double, _
           ByVal ifl As Long, _
           ByRef tret As Double, _
           ByRef attr As Double, _
           ByVal backward As Long, _
           ByVal serr As String _
         ) As Long

Private Declare Function swe_sol_eclipse_where Lib "swedll32.dll" _
         Alias "_swe_sol_eclipse_where@24" ( _
           ByVal tjd_ut As Double, _
           ByVal ifl As Long, _
           ByRef geopos As Double, _
           ByRef attr As Double, _
           ByVal backward As Long, _
           ByVal serr As String _
         ) As Long

Private Declare Function swe_sol_eclipse_where_d Lib "swedll32.dll" _
         Alias "_swe_sol_eclipse_where_d@20" ( _
           ByRef tjd_ut As Double, _
           ByVal ifl As Long, _
           ByRef geopos As Double, _
           ByRef attr As Double, _
           ByVal backward As Long, _
           ByVal serr As String _
         ) As Long

Private Declare Function swe_pheno Lib "swedll32.dll" _
         Alias "_swe_pheno@24" ( _
           ByVal tjd As Double, _
           ByVal ipl As Long, _
           ByVal iflag As Long, _
           ByRef attr As Double, _
           ByVal serr As String _
         ) As Long

Private Declare Function swe_pheno_d Lib "swedll32.dll" _
         Alias "_swe_pheno_d@20" ( _
           ByRef tjd As Double, _
           ByVal ipl As Long, _
           ByVal iflag As Long, _
           ByRef attr As Double, _
           ByVal serr As String _
         ) As Long

Private Declare Sub swe_set_ephe_path Lib "swedll32.dll" _
         Alias "_swe_set_ephe_path@4" ( _
           ByVal path As String _
         )

Private Declare Function swe_set_ephe_path_d Lib "swedll32.dll" _
         Alias "_swe_set_ephe_path_d@4" ( _
           ByVal path As String _
         ) As Long

Private Declare Sub swe_set_jpl_file Lib "swedll32.dll" _
         Alias "_swe_set_jpl_file@4" ( _
           ByVal file As String _
         )

Private Declare Function swe_set_jpl_file_d Lib "swedll32.dll" _
         Alias "_swe_set_jpl_file_d@4" ( _
           ByVal file As String _
         ) As Long

Private Declare Sub swe_set_tid_acc Lib "swedll32.dll" _
         Alias "_swe_set_tid_acc@8" ( _
           ByVal x As Double _
         )

Private Declare Function swe_set_tid_acc_d Lib "swedll32.dll" _
         Alias "_swe_set_tid_acc_d@4" ( _
           ByRef x As Double _
         ) As Long

Private Declare Function swe_sidtime0 Lib "swedll32.dll" _
         Alias "_swe_sidtime0@24" ( _
           ByVal tjd_ut As Double, _
           ByVal ecl As Double, _
           ByVal nut As Double _
         ) As Double

Private Declare Function swe_sidtime0_d Lib "swedll32.dll" _
         Alias "_swe_sidtime0_d@16" ( _
           ByRef tjd_ut As Double, _
           ByRef ecl As Double, _
           ByRef nut As Double, _
           ByRef sidt As Double _
         ) As Long

Private Declare Function swe_sidtime Lib "swedll32.dll" _
         Alias "_swe_sidtime@8" ( _
           ByVal tjd_ut As Double _
         ) As Double

Private Declare Function swe_sidtime_d Lib "swedll32.dll" _
         Alias "_swe_sidtime_d@8" ( _
           ByRef tjd_ut As Double, _
           ByRef sidt As Double _
         ) As Long

Private Declare Function swe_time_equ Lib "swedll32.dll" _
         Alias "_swe_time_equ@16" ( _
           ByVal tjd_ut As Double, _
           ByVal e As Double, _
           ByRef serr As String _
         ) As Long

' planet and body numbers (parameter ipl) for swe_calc()
  Const SE_SUN As Integer = 0
  Const SE_MOON As Integer = 1
  Const SE_MERCURY As Integer = 2
  Const SE_VENUS As Integer = 3
  Const SE_MARS As Integer = 4
  Const SE_JUPITER As Integer = 5
  Const SE_SATURN As Integer = 6
  Const SE_URANUS As Integer = 7
  Const SE_NEPTUNE As Integer = 8
  Const SE_PLUTO   As Integer = 9
  Const SE_MEAN_NODE As Integer = 10
  Const SE_TRUE_NODE As Integer = 11
  Const SE_MEAN_APOG As Integer = 12
  Const SE_OSCU_APOG As Integer = 13
  Const SE_EARTH     As Integer = 14
  Const SE_CHIRON    As Integer = 15
  Const SE_PHOLUS    As Integer = 16
  Const SE_CERES     As Integer = 17
  Const SE_PALLAS    As Integer = 18
  Const SE_JUNO      As Integer = 19
  Const SE_VESTA     As Integer = 20
' Hamburger or Uranian "planets"
  Const SE_CUPIDO As Integer = 40
  Const SE_HADES As Integer = 41
  Const SE_ZEUS As Integer = 42
  Const SE_KRONOS As Integer = 43
  Const SE_APOLLON As Integer = 44
  Const SE_ADMETOS As Integer = 45
  Const SE_VULKANUS As Integer = 46
  Const SE_POSEIDON As Integer = 47
' other ficticious bodies
  Const SE_ISIS As Integer = 48
  Const SE_NIBIRU As Integer = 49
  Const SE_HARRINGTON As Integer = 50
  Const SE_NEPTUNE_LEVERRIER As Integer = 51
  Const SE_NEPTUNE_ADAMS As Integer = 52
  Const SE_PLUTO_LOWELL As Integer = 53
  Const SE_PLUTO_PICKERING As Integer = 54

' iflag values for swe_calc() and swe_fixstar()
Const SEFLG_JPLEPH As Long = 1
Const SEFLG_SWIEPH As Long = 2
Const SEFLG_MOSEPH As Long = 4
Const SEFLG_SPEED As Long = 256
Const SEFLG_SPEED3 As Long = 128
Const SEFLG_HELCTR As Long = 8
Const SEFLG_TRUEPOS As Long = 16
Const SEFLG_J2000 As Long = 32
Const SEFLG_NONUT As Long = 64
Const SEFLG_NOGDEFL As Long = 512
Const SEFLG_NOABERR As Long = 1024
Const SEFLG_EQUATORIAL As Long = 2048
Const SEFLG_XYZ As Long = 4096
Const SEFLG_RADIANS As Long = 8192
Const SEFLG_BARYCTR As Long = 16384
Const SEFLG_TOPOCTR As Long = 32768
Const SEFLG_SIDEREAL As Long = 65536

'eclipse codes
Const SE_ECL_CENTRAL As Long = 1
Const SE_ECL_NONCENTRAL As Long = 2
Const SE_ECL_TOTAL As Long = 4
Const SE_ECL_ANNULAR As Long = 8
Const SE_ECL_PARTIAL As Long = 16
Const SE_ECL_ANNULAR_TOTAL As Long = 32
Const SE_ECL_PENUMBRAL As Long = 64
Const SE_ECL_VISIBLE As Long = 128
Const SE_ECL_MAX_VISIBLE As Long = 256
Const SE_ECL_1ST_VISIBLE As Long = 512
Const SE_ECL_2ND_VISIBLE As Long = 1024
Const SE_ECL_3RD_VISIBLE As Long = 2048
Const SE_ECL_4TH_VISIBLE As Long = 4096

'sidereal modes
Const SE_SIDM_FAGAN_BRADLEY    As Long = 0
Const SE_SIDM_LAHIRI           As Long = 1
Const SE_SIDM_DELUCE           As Long = 2
Const SE_SIDM_RAMAN            As Long = 3
Const SE_SIDM_USHASHASHI       As Long = 4
Const SE_SIDM_KRISHNAMURTI     As Long = 5
Const SE_SIDM_DJWHAL_KHUL      As Long = 6
Const SE_SIDM_YUKTESHWAR       As Long = 7
Const SE_SIDM_JN_BHASIN        As Long = 8
Const SE_SIDM_BABYL_KUGLER1    As Long = 9
Const SE_SIDM_BABYL_KUGLER2   As Long = 10
Const SE_SIDM_BABYL_KUGLER3   As Long = 11
Const SE_SIDM_BABYL_HUBER     As Long = 12
Const SE_SIDM_BABYL_ETPSC     As Long = 13
Const SE_SIDM_ALDEBARAN_15TAU As Long = 14
Const SE_SIDM_HIPPARCHOS      As Long = 15
Const SE_SIDM_SASSANIAN       As Long = 16
Const SE_SIDM_GALCENT_0SAG    As Long = 17
Const SE_SIDM_J2000           As Long = 18
Const SE_SIDM_J1900           As Long = 19
Const SE_SIDM_B1950           As Long = 20
Const SE_SIDM_USER            As Long = 255

Const SE_NSIDM_PREDEF         As Long = 21

Const SE_SIDBITS              As Long = 256
'for projection onto ecliptic of t0
Const SE_SIDBIT_ECL_T0        As Long = 256
'for projection onto solar system plane
Const SE_SIDBIT_SSY_PLANE     As Long = 512

Public Function Planet_Location( _
    y As Long, _
    m As Long, _
    d As Long, _
    h As Double, _
    latitude As Double, _
    longitude As Double, _
    tz As Double, _
    planet As Long) _
As Double

Dim jul_day_UT As Double, jul_day_ET As Double, x(6) As Double
Dim i As Long, iflag As Long, serr As String

    jul_day_UT = swe_julday(y, m, d, h, 1) + tz / 24#
    jul_day_ET = jul_day_UT + swe_deltat(jul_day_UT)
    i = swe_set_sid_mode(SE_SIDM_LAHIRI, 0#, 0#)
    iflag = SEFLG_SIDEREAL
    i = swe_calc(jul_day_ET, planet, iflag, x(0), serr)
    Planet_Location = x(0)

End Function

Public Function Ascendant_Location( _
    y As Long, _
    m As Long, _
    d As Long, _
    h As Double, _
    latitude As Double, _
    longitude As Double, _
    tz As Double) _
As Double

Dim jul_day_UT As Double, x(13) As Double, a(10) As Double
Dim i As Long

    jul_day_UT = swe_julday(y, m, d, h, 1) + tz / 24#
    i = swe_houses_ex(jul_day_UT, SEFLG_SIDEREAL, latitude, longitude, Asc("A"),
x(0), a(0))
    Ascendant_Location = a(0)

End Function

I suppose you use ms-excel?
Then you have the possibility to create visual basic programs. (Try to find help
in excel to activate the developper's tool tab) Then start visual basic and add
module in this module you can put the code and then the function works in your
spreadsheet.
If not send me a copy of your spreadsheet and I will see how to make it work!

Jan Schotten




________________________________
From: libyanpimp <libyanpimp@...>
To: swisseph@yahoogroups.com
Sent: Wed, December 1, 2010 4:39:27 AM
Subject: [SWISSEPH] Re: deg min sex

 
Hi Jan, would this be a macro I run or what? Dont really know how to use this or
where to put this code.

--- In swisseph@yahoogroups.com, "Jan" <janschotten@...> wrote:
>
> Working with dms(x) I discovered a mistake if the seconds are higher than 59.
>This works better:
> Public Function dms(x As Double) As String
>
> Dim y As Double, l As Double, degs As Integer, _
> mins As Integer, secs As Double, _
> suffix As String
>
>
> y = (x / 360 - Int(x / 360)) * 360
> suffix = Mid(sknam, 1 + 2 * Int(y / 30), 2)
> y = y - 30 * Int(y / 30)
> l = y
> degs = Int(y)
> If degs < 10 Then
> dms = " " & degs
> Else
> dms = degs
> End If
> y = (y - degs) * 60
> mins = Int(y)
> If mins < 10 Then
> dms = dms & "° " & mins
> Else
> dms = dms & "°" & mins
> End If
>
> y = (y - mins) * 600
> secs = (Int(y)) / 10
> If secs < 10 Then
> dms = dms & "' " & secs
> Else
> dms = dms & "'" & secs
> End If
>
> dms = dms & """ " & suffix
>
> End Function
>







[Non-text portions of this message have been removed]

Ok, thanks Jan I figured it out

--- In swisseph@yahoogroups.com, Jan Schotten <janschotten@...> wrote:
>
> I suppose you use ms-excel?
> Then you have the possibility to create visual basic programs. (Try to find
help
> in excel to activate the developper's tool tab) Then start visual basic and
add
> module in this module you can put the code and then the function works in your
> spreadsheet.
> If not send me a copy of your spreadsheet and I will see how to make it work!
>
> Jan Schotten
>
>
>
>
> ________________________________
> From: libyanpimp <libyanpimp@...>
> To: swisseph@yahoogroups.com
> Sent: Wed, December 1, 2010 4:39:27 AM
> Subject: [SWISSEPH] Re: deg min sex
>
>  
> Hi Jan, would this be a macro I run or what? Dont really know how to use this
or
> where to put this code.
>
> --- In swisseph@yahoogroups.com, "Jan" <janschotten@> wrote:
> >
> > Working with dms(x) I discovered a mistake if the seconds are higher than
59.
> >This works better:
> > Public Function dms(x As Double) As String
> >
> > Dim y As Double, l As Double, degs As Integer, _
> > mins As Integer, secs As Double, _
> > suffix As String
> >
> >
> > y = (x / 360 - Int(x / 360)) * 360
> > suffix = Mid(sknam, 1 + 2 * Int(y / 30), 2)
> > y = y - 30 * Int(y / 30)
> > l = y
> > degs = Int(y)
> > If degs < 10 Then
> > dms = " " & degs
> > Else
> > dms = degs
> > End If
> > y = (y - degs) * 60
> > mins = Int(y)
> > If mins < 10 Then
> > dms = dms & "° " & mins
> > Else
> > dms = dms & "°" & mins
> > End If
> >
> > y = (y - mins) * 600
> > secs = (Int(y)) / 10
> > If secs < 10 Then
> > dms = dms & "' " & secs
> > Else
> > dms = dms & "'" & secs
> > End If
> >
> > dms = dms & """ " & suffix
> >
> > End Function
> >
>
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>

hi folks
Any tips on how to get data for Eris, Makemake and Haumea please ?

Thanx in advance
prem




[Non-text portions of this message have been removed]

lat / lon? Use MPC id number in call to swe_calc, the same as for
asteroids.

with best regards
Bogdan Krusinski

http://www.astrologyurania.com/2009/08/kora-keywords-planet.html
http://www.astrologyurania.com/search/label/kora


----- Original Message -----
From: "ski woka" <skiwoka@...>
To: <swisseph@yahoogroups.com>
Sent: Friday, December 10, 2010 11:08 AM
Subject: [SWISSEPH] Eris, Makemake and Haumea


> hi folks
> Any tips on how to get data for Eris, Makemake and Haumea please ?
>
> Thanx in advance
> prem
>
>
>
>
> [Non-text portions of this message have been removed]
>
>

Hi Prem,

Use the file: seasnam.txt

Makemake = 2005 FY9 = 136472

Haumea = 2003 EL61 = 136108

Eris = 136199

Elias


ski woka wrote:
>
>
> hi folks
> Any tips on how to get data for Eris, Makemake and Haumea please ?
>
> Thanx in advance
> prem
>



[Non-text portions of this message have been removed]

Has anyone uses the swisseph on Ubuntu 10.04?

Is there any documentation on how to install?

Thanks,

Yohaan





[Non-text portions of this message have been removed]

Swiss Ephemeris is a library of functions for application development,
intended for programmers to use in their projects.

It is not an application a user can 'install' and do anything with.



On 12.12.10 08:54, Jon Hall wrote:
> Has anyone uses the swisseph on Ubuntu 10.04?
>
> Is there any documentation on how to install?
>
> Thanks,
>
> Yohaan
>
>
>
>
>
> [Non-text portions of this message have been removed]
>
>
>
> ------------------------------------
>
> Yahoo! Groups Links
>
>
>

Thanks, so the functions are to be called from perl or python?

Are the functions able to be called by a php program?

is there documentation that I have not found yet?

Appreciate your information.


yohaan




________________________________
From: Alois Treindl <alois@...>
To: swisseph@yahoogroups.com
Sent: Sun, December 12, 2010 6:30:22 AM
Subject: Re: [SWISSEPH] Howdy!


Swiss Ephemeris is a library of functions for application development,
intended for programmers to use in their projects.

It is not an application a user can 'install' and do anything with.

On 12.12.10 08:54, Jon Hall wrote:
> Has anyone uses the swisseph on Ubuntu 10.04?
>
> Is there any documentation on how to install?
>
> Thanks,
>
> Yohaan
>
>
>
>
>
> [Non-text portions of this message have been removed]
>
>
>
> ------------------------------------
>
> Yahoo! Groups Links
>
>
>






[Non-text portions of this message have been removed]

Swiss Ephemeris is a library written in C, and the functions are called
from C programs.

To call functions from another language, one usually creates a bundle of
wrapper functions.

Usually a language documentation has information about how to to that,
i.e. how to interface with libraries written in other languages (and
then compiled), and how to call functions in such libraries.

This is also true for php: php documentation can teach you how to
interface with non-php libraries.

You will need to study your php documentation.

You may find that a simpler way to interface is using the swetest
utility. Call it from php as a system command with appropriate parameters.

swetest output is text, which you can interpret again in php.

If you want only to do simple things in Swiss Ephemeris, this may be
your fastest way to a solution. It's going to be a cludge, but may work.

On 20.12.10 08:51, Jon Hall wrote:
> Thanks, so the functions are to be called from perl or python?
>
> Are the functions able to be called by a php program?
>
> is there documentation that I have not found yet?
>
> Appreciate your information.
>
>
> yohaan
>
>
>
>
> ________________________________
> From: Alois Treindl<alois@...>
> To: swisseph@yahoogroups.com
> Sent: Sun, December 12, 2010 6:30:22 AM
> Subject: Re: [SWISSEPH] Howdy!
>
>
> Swiss Ephemeris is a library of functions for application development,
> intended for programmers to use in their projects.
>
> It is not an application a user can 'install' and do anything with.
>
> On 12.12.10 08:54, Jon Hall wrote:
>> Has anyone uses the swisseph on Ubuntu 10.04?
>>
>> Is there any documentation on how to install?
>>
>> Thanks,
>>
>> Yohaan
>>
>>
>>
>>
>>
>> [Non-text portions of this message have been removed]
>>
>>
>>
>> ------------------------------------
>>
>> Yahoo! Groups Links
>>
>>
>>
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>
>
>
> ------------------------------------
>
> Yahoo! Groups Links
>
>
>

Hello Swiss Ephemeris,

Perhps I missed it somewhere on your site, but I was wondering if you
know the accuracy of the stars over the time period (5400 BCE to 5400
CE). In http://www.astro.com/swisseph/ I only see the planets
accuracies, while I am also interested to see stated the stars'
accuracy. Hope you can put this on the web pages or the FDAQ.

Thanks very much.

All the best,


Victor

Victor,

the coordinates, proper motions etc. of the stars are taken from the
Simbad Database (http://simbad.u-strasbg.fr/simbad/).
The algorithms follow the Explanatory Supplement of the Astronomical
Almanac, and their precision was confirmed with a sample calculation
that was given in the Astronomical Almanac of 2003 (I think!). The
accuracy must be comparable to the accuracy of the planets.

Regards

Dieter

2010/12/22 Victor Reijs (lists) <lists.victor.reijs@...>:
> Hello Swiss Ephemeris,
>
> Perhps I missed it somewhere on your site, but I was wondering if you
> know the accuracy of the stars over the time period (5400 BCE to 5400
> CE). In http://www.astro.com/swisseph/ I only see the planets
> accuracies, while I am also interested to see stated the stars'
> accuracy. Hope you can put this on the web pages or the FDAQ.
>
> Thanks very much.
>
> All the best,
>
>
> Victor
>
>
> ------------------------------------
>
> Yahoo! Groups Links
>
>
>
>

Hello Dieter,

Dieter Koch wrote:
> The algorithms follow the Explanatory Supplement of the Astronomical
> Almanac, and their precision was confirmed with a sample calculation
> that was given in the Astronomical Almanac of 2003 (I think!). The
> accuracy must be comparable to the accuracy of the planets.

That is what I already told to the person who was originally querying
this, but it would be nice to have something on the Swiss Ephemeris web
site about that.

Thanks.

All the best,


Victor

Hello Friends

I want to know that how to use swedll32.dll with VB.NET.
Whenever i call a function who gets a ByRef argument - VB.NET gives error "
AccessViolationException"
I think Long datatype in declaration of sweph should be converted to Integer
Data type in VB.NET and Integer to Short.

Please help me.

Thanks
Bye

If you have not yet done so, you may want to read the message of Zodiaco from 7
Oct 2010 on this group.

It gives you exactly what you asked for. PHP extensions (wrapper functions) to
Swiss Ephemeris.

--- In swisseph@yahoogroups.com, Jon Hall <jshall@...> wrote:
>
> Thanks, so the functions are to be called from perl or python?
>
> Are the functions able to be called by a php program?
>
> is there documentation that I have not found yet?
>
> Appreciate your information.
>
>
> yohaan
>

Since 2004 the Swiss Ephemeris mailing list is hosted as a Yahoo group.

The future of Yahoo seems uncertain, I doubt Yahoo will exist in a few years.

Should we move the mailing list to another group discussion hoster?
If yes, where and how?

It should be a mailing list as easy to maintain as a Yahoo group, and with a
hoster which is likely to exist in 10 years.

Is there something comparable at Google?

If yes, any isntructions how to transfer a yahoo group (with all stored
content) to that place?

On Thu, 23 Dec 2010 14:18:41 -0000
>>>>>> "Alois" == "Alois" <alois@...> wrote:

Alois> Should we move the mailing list to another group discussion
Alois> hoster? If yes, where and how?

+1 for moving

Alois> Is there something comparable at Google?

Your own server running e.g. Mailman and having backup of mail archive.

Alois> If yes, any isntructions how to transfer a yahoo group (with all
Alois> stored content) to that place?

Here is something:

http://groups.google.com/group/Google-Groups-Basics/browse_thread/thread/458bc43\
b62ad46aa/5017b0eec7153d91?lnk=gst&q=


In case you decide for Google, pls. add the group to Gmane. Swisseph is
one of the lists I follow which is not available via Gmane.


Sincerely,
Gour

--

Gour  | Hlapicina, Croatia  | GPG key: CDBF17CA
----------------------------------------------------------------


[Non-text portions of this message have been removed]