vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

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

VB.NET - Ein- und Umsteiger
Re: Format Datum 
Autor: stefanbla80
Datum: 18.09.08 09:30
Ok, dann mache ichs so wieDu schreibst.

Es geht mit beidem gut!!

Könnt Ihr mir noch helfen wegen der Zeit-Sache
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Format Datum 
Autor: stefanbla80
Datum: 18.09.08 08:38
Hallo zusammen,

ich würde gerne das Datum in einem anderen Format ausgeben.

Jetzt habe ich es so: 
Datum = Date.Today
Formatiert sollte es so sein: yyyy.mm.dd

Kann mir jemand helfen?!
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Format Datum 
Autor: ModeratorDieter (Moderator)
Datum: 18.09.08 08:43
Das geht so: 
Dim Datum As String = Format$(Date.Today, "yyyy.MM.dd")

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Format Datum 
Autor: stefanbla80
Datum: 18.09.08 08:59
Das geht!! Super.

Jetzt noch ne Frage:
Wenn die TextBox19 nichts drinnen stehen hat, dann kommt ein Fehler. Irgendwas mit Konvertirung zu Double oder so.
Was ich möchte: erst wenn der Inhalt der TextBox 6 stellig ist, dass dann die Schleife ausgeführt wird. 


If TextBox19.Text > 0 Then
            If MsgBox("Notiz speichern unter: " & speicherpfad, vbOKCancel) = _
              vbOK Then
                doc.SaveAs(Filename:=speicherpfad & "/" & Datum2 & "_" & v & _
                "-" & v2 & "_" & "Notiz.doc")
            End If
End If
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Format Datum 
Autor: ModeratorDieter (Moderator)
Datum: 18.09.08 09:05
If TextBox19.TextLength = 6 Then 
  ...
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Format Datum 
Autor: stefanbla80
Datum: 18.09.08 09:16
Perfekt.

Nun noch eins.

ich würde gerne "Zeit" in meinen Dateinamen "reinbringen".

Wie kann ich das Format der Zeit ändern, damit es z. B. 09-17-52 angezeigt wird. 

Zeit = TimeOfDay
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Format Datum 
Autor: ModeratorFZelle (Moderator)
Datum: 18.09.08 09:27
Machst Du immernoch VB6? 

Dim Datum As String = Date.Today.ToString("yyyy.MM.dd")
Das ist deshalb anzuraten, weil man erkennen kann, das es überall
bei .NET mit .ToString() gehen könnte ( was es ja auch tut ).
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Format Datum 
Autor: ModeratorDieter (Moderator)
Datum: 18.09.08 09:52
Dim Zeit As String = TimeOfDay.ToString("hh:mm:ss")

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Format Datum 
Autor: stefanbla80
Datum: 18.09.08 10:01
Perfekt!!!

geht alles!!

Kann ich meinen text nach word auch formatieren?!
Also fett machen und so?! 

 With doc
 
            'Text im Hauptteil des Dokuments zuweisen
            .Range.Text = "Notiz" & vbCrLf & vbCrLf & _
                    "Fa.: " & TextBox15.Text & vbCrLf & _
                    "Ansprechpartner: " & TextBox14.Text & vbCrLf & _
                    "Datum: " & Datum & " / " & Zeit & vbCrLf & _
                    "Telefon: " & TextBox13.Text & vbCrLf & _
                    "E-mail: " & TextBox12.Text & vbCrLf & _
                    "Projektnummer: " & TextBox19.Text & "-" & TextBox18.Text & _
                    vbCrLf & _
                    "Angebotsnummer: " & TextBox16.Text & vbCrLf & vbCrLf & _
                    "Betreff: " & TextBox2.Text & vbCrLf & vbCrLf & vbCrLf & _
                    "Notiz: " & TextBox3.Text
 
            'Kopfzeilen-Text zuweisen
            '.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = _
            '      "Telefonnotiz vom " & Format$(Now, "Long Date") & "/" & 
            ' TextBox17.Text
 
            'Fusszeilen-Text zuweisen
            '.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = _
            '      "Erstellt am " & Format$(Now, "Long Date")
 
        End With
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Format Datum 
Autor: ModeratorFZelle (Moderator)
Datum: 18.09.08 13:29
Sollen wir Dir jetzt jede Arbeit abnehmen?

Wohin soll die rechnung geschickt werden?
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Format Datum 
Autor: stefanbla80
Datum: 18.09.08 17:25
Wäre schon gut.

Ich habe keine Ahnung wie man sowas macht, im Netz ist nichts verfügbar.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Format Datum 
Autor: ModeratorFZelle (Moderator)
Datum: 18.09.08 18:53
Witzig.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Format Datum 
Autor: stefanbla80
Datum: 18.09.08 19:08
Nicht wirklich!!

Beiß mich halt so durch...

Eins habe ich noch:

Hier wird meines erachtens nach AM/PM unterschieden. Geht das auch in "normaler" Zeit. 

Dim Zeit2 As String = TimeOfDay.ToString("hh-mm-ss")
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Format Datum 
Autor: ModeratorFZelle (Moderator)
Datum: 19.09.08 09:42
Wann gedenkst Du denn mal selbständig in die Hilfe zu schauen?

Dort steht das drin.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Format Datum 
Autor: stefanbla80
Datum: 19.09.08 12:54
hast recht, hab ich dann auch gemacht.

Sorry!!
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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-2024 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