![]() |
Tipp 0291
|
Mondphase eines Datums anzeigen
|
 |
|
Autor/Einsender: Datum: |
|
Michael Werner 05.12.2002/29.02.2004 |
|
Entwicklungsumgebung: |
|
VB 5 |
|
|
Mit Hilfe einer kleinen Formel kann die jeweilige Mondphase eines beliebigen Datums ausgelesen werden.
Zur Darstellung der Mondphasen werden Mondbilder aus einer Ressource geladen.
|
Aus dem DTPicker-Steuerelement (Microsoft Windows Common
Controls-2 6.0) wird das entsprechende Datum angewählt und die
dazugehörige Mondphase angezeigt.
|
|
|
Option Explicit
Private Sub Form_Load()
DTPicker1.Value = Date
Mondphase DTPicker1.Value
End Sub
Private Sub DTPicker1_Change()
Mondphase DTPicker1.Value
End Sub
Sub Mondphase(dtpValue As Double)
Dim Phase As Double
Dim ResNum As Integer
Phase = dtpValue
Phase = Phase / 29.530589 + 0.9291176
Phase = Phase - Int(Phase)
ResNum = 2 + Int(Phase * 8 + 0.5)
If ResNum = 10 Then ResNum = 2
Image1.Picture = LoadResPicture(ResNum, vbResIcon)
Label1.Caption = LoadResString(ResNum)
End Sub
|
|
|
|
|
Windows-Version |
95 |
 |
|
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
VB-Version |
VBA 5 |
 |
|
VBA 6 |
 |
|
VB 4/16 |
 |
|
VB 4/32 |
 |
|
VB 5 |
 |
|
VB 6 |
 |
|
|
|
Download (4,8
kB)
|
Downloads bisher: [ 3462 ]
|
|
|