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
 
Weitere Links zum Thema
Tierkreiszeichen eines Datums anzeigen
Wochentag aus einem Datum ermitteln

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: [ 3466 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Dienstag, 13. September 2011