Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

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

Prüfen eines Textes auf Uhrzeit	306	Shu En Lai	22.02.26 17:13
Re: Prüfen eines Textes auf Uhrzeit	102	Shu En Lai	22.02.26 18: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