PDA

Vollständige Version anzeigen : Erster und letzter Tag eines beliebigen Jahr berechnen


Glance
07.01.2002, 11:05
Hallo zusammen

Weiss jemand wie ich den ersten und den letzten Tag eines BELIEBIGEN Jahr herausfinden kann.

Wie man vom aktuellen Jahr den ersten und letzten Tag herausfinden kann weiss ich, aber wie geht dies bei einem beliebigen Jahr.

Vielen Dank für eure Hilfe

Griessli
Glance

PS: Wünsche allne no nochträglich e guets NEUS

Kurt aus Kienitz
07.01.2002, 11:32
Hallo,

Ich bin mir fast sicher, daß ich Deine Frage nicht richtig verstehe :( .

Kannst Du mir mal sagen, wie Du den 1. und letzten Tag des aktuellen Jahres ermittelst ?

Glance
07.01.2002, 11:38
Hier berechne ich den ersten Tag des aktuellen Jahres:

Public Function FirstDayCurrentYear() As Date
Dim intJahr As Integer

'//------------------------------------------------------------
'// Methode: | Erster Tag des aktuellen Jahres ermitteln
'//------------------------------------------------------------
'// Parameter: | -
'//------------------------------------------------------------
'// Rückgabe: | Datumwert (s.o.)
'//------------------------------------------------------------
intJahr = cboJahr

FirstDayCurrentYear = Date - DatePart("y", intJahr) + 1
'FirstDayCurrentYear = Date - DatePart("y", intJahr)

txtKontrolleVon = FirstDayCurrentYear
End Function

Und hier berechne ich den letzten Tag des aktuellen Jahr:

Public Function LastDayCurrentYear() As Date
Dim intJahr As Integer

'//------------------------------------------------------------
'// Methode: | Letzten Tag des aktuellen Jahres ermitteln
'//------------------------------------------------------------
'// Parameter: | -
'//------------------------------------------------------------
'// Rückgabe: | Datumwert (s.o.)
'//------------------------------------------------------------
intJahr = cboJahr

LastDayCurrentYear = DateAdd("yyyy", 1, Date - DatePart("y", Date))

txtKontrolleBis = LastDayCurrentYear
End Function

Griessli
Glance

Kurt aus Kienitz
07.01.2002, 12:00
Also doch,


Ich habe folgende Prozedur geschrieben:

Private Sub Jahr_Exit(Cancel As Integer)

Me.FistDay = Format("01.01." & Str$(Me.Jahr), "dd.mm.yyyy")
Me.LastDay = Format("31.12." & Str$(Me.Jahr), "dd.mm.yyyy")

End Sub

Dabei ist
Me.Jahr ein Textfeld zur Eingabe einer beliebigen Jahreszahl.
Me.FirstDay ein Textfeld (im Format "Date/Time") in dem der 01.01. des Jahres ausgegeben wird.
Me.LastDay ein Textfeld (im Format "Date/Time") in dem der 31.12. des Jahres ausgegeben wird.

Glance
07.01.2002, 13:56
Das Problem ist aber, dass der Benutzer nur in einem ComboBox, das Jahr 2001 oder 2002 auswählen kann und wenn er das Jahr 2001 auswählt sollte der 1.1.2001 bis 31.12.2001 erscheinen.

Griessli
Glance

Kurt aus Kienitz
07.01.2002, 14:09
Hallo nochmal,

Habe jetzt ein Kombinatiosfeld angelegt, mit dem Datensatzherkunft "2000;2001;2002;2003" (Herkunftyp = Wertliste).

Dann geht folgendes:

Private Sub Kombinationsfeld6_Click()

Me.FistDay = Format("01.01." & Str$(Kombinationsfeld6), "dd.mm.yyyy")
Me.LastDay = Format("31.12." & Str$(Kombinationsfeld6), "dd.mm.yyyy")

End Sub