Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Prüfen eines Textes auf Uhrzeit
Autor: Shu En Lai
Datum: 22.02.26 17:13
moin zusammen. ich habe folgendes Problem: ich habe 2 Textboxen, 1 Button in der 1. Textbox soll eine Uhrzeit (Sommer / Winterzeit) eingetragen werden. mit klick auf den button soll in der 2. Textbox die UTC-Uhrzeit ausgegeben werden. nu ist es aber so das die funktion IsDate mir True zurückgibt, sowohl bei einem korrektem Datum, bei einer korrekten Uhrzeit als auch bei der kombination von beiden. gibt es eine möglichkeit das mir eine funktion nur ein TRUE zurückgibt wenn NUR eine Uhrzeit angegeben wurde und FALSE bei einem Datum oder DatumUhrzeit und bei jedem anderen kauderwelsch (z.B. Kopf fällt auf die tastatur). ich bedanke mich schon jetzt einemal für eure hilfe und denkanstöße(Wink mit der Eisenbahnschwelle) Franz

Re: Prüfen eines Textes auf Uhrzeit
Autor: Shu En Lai
Datum: 22.02.26 18:19
Gelöst: Funktion: Private Function MEZzuUTC(ByVal Uhrzeit As String) As Boolean Dim eingegebeneZeit As DateTime Dim formate() As String = {"H:mm", "HH:mm", "H:mm:ss", "HH:mm:ss"} Dim result As Boolean If DateTime.TryParseExact(TextBox3.Text, formate, Globalization.CultureInfo.GetCultureInfo("de-DE"), Globalization.DateTimeStyles.None, eingegebeneZeit) Then result = True Else result = False End If Return result End Function Aufruf: If MEZzuUTC(Me.TextBox3.Text) = True Then Try If GMTDiff(Now) = 2 Then '"Sommerzeit ist eingestellt." Dim UTC_String = Me.TextBox3.Text UTC_String = DateAdd("n", +120, UTC_String) Me.TextBox4.Text = FormatDateTime(UTC_String, DateFormat.ShortTime) Else '"Winterzeit ist eingestellt." Dim UTC_String = Me.TextBox3.Text UTC_String = DateAdd("n", +60, UTC_String) Me.TextBox4.Text = FormatDateTime(UTC_String, DateFormat.ShortTime) End If Catch ex As Exception End Try Else MsgBox("Bitte eine Uhrzeit Eintragen (9:00)", vbOKOnly, "MEZ zu UTC") Me.TextBox3.Focus() Me.TextBox3.Text = "" End If

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