Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Monats-Rechner (WICHTIG )
Autor: alert
Datum: 19.09.02 11:37
Hi Dork, das muß gehen ich habe das eben mal probiert, es geht wenn dein Code so aussieht muß es auch bei dir gehen. Private Sub Form_Activate() Label1.Caption = Now Label2.Caption = Format(Now, "hh:mm:ss") Label3.Caption = Format(Now, "dd.mm.yyyy") Text1.Text = "0" Label4.Caption = "" Text2.Text = "0" Label5.Caption = "" End Sub Private Sub Text1_Change() On Error GoTo fehler1 Label4.Caption = DateAdd("d", CInt(Text1.Text), Date) Exit Sub fehler1: Label4.Caption = "Eingabefehler" Exit Sub End Sub Private Sub Text2_Change() On Error GoTo fehler2 Label5.Caption = DateAdd("m", CInt(Text2.Text), Date) Exit Sub fehler2: Label5.Caption = "Eingabefehler" Exit Sub End Sub gruß, alert

Monats-Rechner (WICHTIG )	98	Dork	18.09.02 19:26
Re: Monats-Rechner (WICHTIG )	896	Dieter	18.09.02 19:32
Re: Monats-Rechner (WICHTIG )	62	Dork	18.09.02 20:59
Re: Monats-Rechner (WICHTIG )	52	alert	19.09.02 11:37

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