Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Datum aendern
Autor: mephisto
Datum: 27.04.02 17:11
Ich habe ein kleines Problem. Ich moechte das Datum mittels Hilfe einer InputBox aendern. Dafuer verwende ich folgenen Code: Private Sub cmdChangeDate_Click() On Error GoTo DateError inpDate = InputBox("Please enter the new Date" + vbCrLf + _ " ''MM-DD-YY; MM/DD/YY'' Example: 05-13-03, or" _ + " 05/13/03)", "Change Date", Date) If inpDate = Date Then MsgBox "New Date equals current Date", , "Error" Else Date$ = inpDate End If txtSysDate = Date Exit Sub DateError: MsgBox "Enter a valid Date", , "Error" End Sub Wenn ich in der InputBox nun aber auch Abbrechen klicke, wird das Else Ereignis der If-Schleife ausgefuehrt und es gibt einen Error, das Programm springt zu DateError und zeigt die MsgBox an. mfg mephisto

Datum aendern	30	mephisto	27.04.02 17:11
Re: Datum aendern	18	Norbert	27.04.02 17:30
Falsch,	218	unbekannt	27.04.02 17:33
Re: Falsch,	19	mephisto	27.04.02 17:49

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