Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Datum - 1 Tag Unterschied und...???
Autor: Reinhold
Datum: 03.12.01 21:31
Hallo, hab schon wieder ein Datumsproblem - was mach ich hier falsch ??? Bei nachstehender Datumsberechnung (AktDat 03.12.2001 / BegDat 31.12.2000 / EndDat 01.01.2005 )kommt, wenn ich das 1.Mal klicke das richtige Datum und zwar der 30.11.2001 heraus. Klick ich das 2.Mal drauf kommt der 01.12.2001, beim 3.Klick geht's dann gar nicht mehr ???? Gebe ich im Debugger den Haltemodus ein und seh mir den Inhalt der Variablen an zeigt das BegY die Zahl 1899 ???? Aber beim 1.Mal rechnet's trotzdem richtig ??? Jetzt kenn ich mich gar nicht mehr aus, WAS ist da falsch, schuld, oder so....????? Wäre super wenn jemand das Rätsel (meinen Fehler ?) lösen könnte und mich erleuchten würde. DANKE - Reinhold P.S.: Anbei der Code Option Explicit Dim BegDat As Date Dim EndDat As Date Dim AktDat As Date 'Beg Dim BegY As Integer Dim BegM As Integer Dim BegD As Integer 'End Dim EndY As Integer Dim EndM As Integer Dim EndD As Integer 'AktDat Dim AktY As Integer Dim AktM As Integer Dim AktD As Integer 'Misch Dim AktYBegMSub1 As Date Private Sub Command1_Click() AktDat = Date ' BegY = Year(BegDat) BegM = Month(BegDat) BegD = Day(BegDat) ' EndY = Year(EndDat) EndM = Month(EndDat) EndD = Day(EndDat) ' AktY = Year(AktDat) AktM = Month(AktDat) AktD = Day(AktDat) ' BegDat = CVDate(Text1) EndDat = CVDate(Text2) ' AktYBegMSub1 = DateSerial(AktY, BegM - 1, BegD) Label1 = AktYBegMSub1 End Sub

Datum - 1 Tag Unterschied und...???	61	Reinhold	03.12.01 21:31
HA !!! Ich hab's die Reihenfolge...aber	50	Reinhold	03.12.01 22:11
Re: Datum - 1 Tag Unterschied und...???	473	unbekannt	03.12.01 22:20
Danke, Du hast recht !!! ABER noch 1 Frage	54	Reinhold	03.12.01 22:42
Re: Danke, Du hast recht !!! ABER noch 1 Frage	319	Dieter	03.12.01 22:51
DAS IST ES !!! DANKE	42	Reinhold	03.12.01 22:56
Re: Danke, Du hast recht !!! ABER noch 1 Frage	301	unbekannt	03.12.01 23:04
Danke, ...habe anstatt mit DateAdd mit DateSerial gearbeitet	44	Reinhold	03.12.01 23:16
Re: Danke, ...habe anstatt mit DateAdd mit DateSerial gearbe...	357	unbekannt	03.12.01 23:19

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