![]() |
|
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: [ 3457 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 