vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Probleme mit Datum 
Autor: jaydragon
Datum: 16.01.06 22:25
hi
ich weiß das der code nicht gerade klein ist aber vielleicht hilft es dir ja weiter. 

Public Enum newDate
        pTTMMJJJJ = 1 ' Trennzeichen .
        pTTMMJJ = 2   ' Trennzeichen .
        pJJJJMMTT = 3 ' Trennzeichen .
        pJJMMTT = 4   ' Trennzeichen .
 
        mTTMMJJJJ = 5 ' Trennzeichen -
        mTTMMJJ = 6   ' Trennzeichen -
        mJJJJMMTT = 7 ' Trennzeichen -
        mJJMMTT = 8   ' Trennzeichen -
 
End Enum
 
 
Public Function GetMyDate(oldDate As String, newFormat As newDate) As String
 
If newFormat = "0" Then GetMyDate = "Nix?"
 
If newFormat = "1" Then GetMyDate = Mid(oldDate, 1, 2) & "." & Mid(oldDate, 4, _
  2) & "." & Mid(oldDate, 7, 4)
 
If newFormat = "2" Then GetMyDate = Mid(oldDate, 1, 2) & "." & Mid(oldDate, 4, _
  2) & "." & Mid(oldDate, 9, 2)
 
If newFormat = "3" Then GetMyDate = Mid(oldDate, 7, 4) & "." & Mid(oldDate, 4, _
  2) & "." & Mid(oldDate, 1, 2)
 
If newFormat = "4" Then GetMyDate = Mid(oldDate, 9, 2) & "." & Mid(oldDate, 4, _
  2) & "." & Mid(oldDate, 1, 2)
 
 
If newFormat = "5" Then GetMyDate = Mid(oldDate, 1, 2) & "-" & Mid(oldDate, 4, _
  2) & "-" & Mid(oldDate, 7, 4)
 
If newFormat = "6" Then GetMyDate = Mid(oldDate, 1, 2) & "-" & Mid(oldDate, 4, _
  2) & "-" & Mid(oldDate, 9, 2)
 
If newFormat = "7" Then GetMyDate = Mid(oldDate, 7, 4) & "-" & Mid(oldDate, 4, _
  2) & "-" & Mid(oldDate, 1, 2)
 
If newFormat = "8" Then GetMyDate = Mid(oldDate, 9, 2) & "-" & Mid(oldDate, 4, _
  2) & "-" & Mid(oldDate, 1, 2)
 
End Function
 
Private Sub cmdRefresh_Click()
 
Text2.Text = GetMyDate(Text1.Text, pTTMMJJJJ)
Text3.Text = GetMyDate(Text1.Text, pTTMMJJ)
Text4.Text = GetMyDate(Text1.Text, pJJJJMMTT)
Text5.Text = GetMyDate(Text1.Text, pJJMMTT)
Text6.Text = GetMyDate(Text1.Text, mTTMMJJJJ)
Text7.Text = GetMyDate(Text1.Text, mTTMMJJ)
Text8.Text = GetMyDate(Text1.Text, mJJJJMMTT)
Text9.Text = GetMyDate(Text1.Text, mJJMMTT)
 
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Probleme mit Datum1.206Dreamcatcher13.01.06 21:58
Re: Probleme mit Datum781kahremst13.01.06 22:18
Re: Probleme mit Datum761Dreamcatcher14.01.06 10:12
Re: Probleme mit Datum775kahremst14.01.06 11:22
Re: Probleme mit Datum786PJ_Shorty14.01.06 13:08
Re: Probleme mit Datum850Dreamcatcher14.01.06 22:20
Re: Probleme mit Datum782Dreamcatcher14.01.06 23:57
Re: Probleme mit Datum797VB-Crack15.01.06 14:45
Nachtrag782VB-Crack15.01.06 15:00
Re: Nachtrag764Dreamcatcher16.01.06 20:40
Re: Probleme mit Datum808jaydragon16.01.06 22:25
Lösung854Dreamcatcher19.01.06 21:21
Re: Lösung843tellmi04.01.08 17:47

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel