Visual Basic Header File
Option Explicit
'
' sdSUN.DLL Version 02.02.04.
'
' Declarations for: Visual Basic/ Visual Basic for Applications
'
' Copyright C. Sunlit Design 2001
'
Declare Function sdVersion Lib "sdsun.dll" Alias "sdVersion" () As String
Declare Function sdInfo Lib "sdsun.dll" Alias "sdInfo" () As Long
Declare Function sdMJDx Lib "sdsun.dll" Alias "sdMJDx" (ByVal Year As Long, ByVal Month As Long, ByVal Day As Double, ByVal Hour As Double, ByVal Minute As Double, ByVal Sec As Double, ByVal TimeZone As Double) As String
Declare Function sdSDYx Lib "sdsun.dll" Alias "sdSDYx" (ByVal Month As Long, ByVal Day As Double, ByVal Hour As Double, ByVal Minute As Double, ByVal Sec As Double, ByVal TimeZone As Double) As String
Declare Function sdUTDx Lib "sdsun.dll" Alias "sdUTDx" (ByVal Hour As Double, ByVal Minute As Double, ByVal Sec As Double, ByVal TimeZone As Double) As String
Declare Function sdCTDx Lib "sdsun.dll" Alias "sdCTDx" (ByVal Hour As Double, ByVal Minute As Double, ByVal Sec As Double) As String
Declare Function sdxDecl Lib "sdsun.dll" Alias "sdxDecl" (ByVal Timex As String) As Double
Declare Function sdxEOT Lib "sdsun.dll" Alias "sdxEOT" (ByVal Timex As String) As Double
Declare Function sdxH Lib "sdsun.dll" Alias "sdxH" (ByVal Timex As String, ByVal Longitude As Double) As Double
Declare Function sdxAzi Lib "sdsun.dll" Alias "sdxAzi" (ByVal Timex As String, ByVal Longitude As Double, ByVal Latitude As Double) As Double
Declare Function sdxAlt Lib "sdsun.dll" Alias "sdxAlt" (ByVal Timex As String, ByVal Longitude As Double, ByVal Latitude As Double) As Double
Declare Function sdxFindAnnFeatx Lib "sdsun.dll" Alias "sdxFindAnnFeatx" (ByVal Timex As String, ByVal Feature As Long) As String
Declare Function sdDMS2D Lib "sdsun.dll" Alias "sdDMS2D" (ByVal Sign As Long, ByVal Degree As Double, ByVal Minute As Double, ByVal Sec As Double) As Double
Declare Function sdD2Unit Lib "sdsun.dll" Alias "sdD2Unit" (ByVal Degree As Double, ByVal ToUnit As Long) As Double
Declare Function sdUnit2D Lib "sdsun.dll" Alias "sdUnit2D" (ByVal value As Double, ByVal FromUnit As Long) As Double
Declare Function sdEqu2Azi Lib "sdsun.dll" Alias "sdEqu2Azi" (ByVal H As Double, ByVal Latitude As Double, ByVal Decl As Double) As Double
Declare Function sdEqu2Alt Lib "sdsun.dll" Alias "sdEqu2Alt" (ByVal H As Double, ByVal Latitude As Double, ByVal Decl As Double) As Double
Declare Function sdSin Lib "sdsun.dll" Alias "sdSin" (ByVal Angle As Double) As Double
Declare Function sdCos Lib "sdsun.dll" Alias "sdCos" (ByVal Angle As Double) As Double
Declare Function sdTan Lib "sdsun.dll" Alias "sdTan" (ByVal Angle As Double) As Double
Declare Function sdATan Lib "sdsun.dll" Alias "sdATan" (ByVal Value As Double) As Double
Declare Function sdASin Lib "sdsun.dll" Alias "sdASin" (ByVal Value As Double) As Double
Declare Function sdACos Lib "sdsun.dll" Alias "sdACos" (ByVal Value As Double) As Double
Declare Function sdPI Lib "sdsun.dll" Alias "sdPI" () As Double
Declare Function sdxGetv Lib "sdsun.dll" Alias "sdxGetv" (ByVal selector As String, ByVal xstring As String) As Double
Declare Function sdxTime2Text Lib "sdsun.dll" Alias "sdxTime2Text" (ByVal Timex As String) As String
Declare Function sdxTimeUnpackx Lib "sdsun.dll" Alias "sdxTimeUnpackx" (ByVal Timex As String) As String
Declare Function sdDUnpackx Lib "sdsun.dll" Alias "sdDUnpackx" (ByVal Degree As Double) As String
Declare Function sdD2Text Lib "sdsun.dll" Alias "sdD2Text" (ByVal Degree As Double) As String
' Define To/From Unit values for use in sdD2Unit and sdUnit2D functions
Public Const sdUnitDay As Long = 10
Public Const sdUnitHour As Long = 11
Public Const sdUnitTMin As Long = 12
Public Const sdUnitTSec As Long = 13
Public Const sdUnitDegree As Long = 14
Public Const sdUnitArcMin As Long = 15
Public Const sdUnitArcSec As Long = 16
Public Const sdUnitRadian As Long = 17
' Define Feature values for use in sdxfindannfeatx function
Public Const sdFeatEOTMaxMay As Long = 40
Public Const sdFeatEOTMaxNov As Long = 41
Public Const sdFeatEOTMinFeb As Long = 42
Public Const sdFeatEOTMinJul As Long = 43
Public Const sdFeatEOTZeroApr As Long = 44
Public Const sdFeatEOTZeroJun As Long = 45
Public Const sdFeatEOTZeroSep As Long = 46
Public Const sdFeatEOTZeroDec As Long = 47
Public Const sdFeatDeclMax As Long = 48
Public Const sdFeatDeclMin As Long = 49
Public Const sdFeatDeclZeroMar As Long = 50
Public Const sdFeatDeclZeroSep As Long = 51
Public Const sdFeatAnalemmaCrossingApr As Long = 52
Public Const sdFeatAnalemmaCrossingAug As Long = 53
Public Const sdFeatSolsticeJun As Long = 54
Public Const sdFeatSolsticeDec As Long = 55
Public Const sdFeatEquinoxMar As Long = 56
Public Const sdFeatEquinoxSep As Long = 57
' DMS Sign Constants
Public Const sdDMSNorth As Long = 1
Public Const sdDMSSouth As Long = -1
Public Const sdDMSWest As Long = 1
Public Const sdDMSEast As Long = -1
Public Const sdDMSPlus As Long = 1
Public Const sdDMSMinus As Long = -1