Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Datumswerte
Autor: unbekannt
Datum: 21.09.02 16:37
Hi Nessi, was man auf jedenfall braucht, sind der Monat und das Jahr (wegen der Schaltjahre). Ich meine es gibt eine Funktion - aber aber leider vergessen, wie sie heißt (vermutlich erstes Stadium von Alzheimer). Aber was Lordchen vergißt proggt er .   ion GetDaysOfMonth(Byval dDatum As Date) As Byte Dim m As Byte Dim j As Long Dim MaxDays As Integer Dim sJ As Integer j = Year(dDatum) m = Month(dDatum) If Month(dDatum) = 2 Then sJ = DateDiff("d", DateSerial(j, 1, 1), DateSerial(j, 12, 31)) MaxDays = 30 - (366 - sJ) Else MaxDays = Choose(m, 31, 0, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31) End If GetDaysOfMonth = MaxDays End Funtion cu Lordchen

Datumswerte	58	nessi	21.09.02 15:47
Re: Datumswerte	217	unbekannt	21.09.02 16:37
Re: Datumswerte	224	Dieter	21.09.02 17:00
Re: Datumswerte	207	unbekannt	21.09.02 17:04
Re: Datumswerte	210	Dieter	21.09.02 17:13

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen