Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datum Format tt mmm jjjj

Datum Format tt mmm jjjj
28.07.2003 11:14:58
Onkel Donald
hiho, habe erneut ein Problem,
ich möchte gerne einer Variable das heutige Datum im Format ttmmjjjj zuweisen, wobei mmm für den Monat stehen soll, also die abkürzung.
Könnte mir jemadn ein beispiel nennen wie ich so ein formatiertes Datum hinbekomme?
gruß
Donald

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum Format tt mmm jjjj
28.07.2003 11:17:22
sergiesam
Hi,
du hast 2 Möglichkeiten:
1) dim a as date
a= date
Verwendung: debug.print format(a, "dd.mmm.yyyy")
oder
2) dim a as string
a = format(date, "dd.mmm.yyyy") -> ist aber ein Text und kein Datum (Rechnen nur mit Konvertierung möglich)
Sam

AW: Datum Format tt mmm jjjj
28.07.2003 11:26:58
Onkel Donald
ich probier deins mal aus, vielen dank
hab derzeit selber mich an einem versucht:

Sub test()
a = Format(Date, "dd.mm.yyyy")
b = a
b = Mid(a, 4, 2)
Select Case b
Case "01 "
b = "Jan. "
Case "02"
b = "Feb. "
Case "03"
b = "Mär. "
Case "04"
b = "Apr. "
Case "05"
b = "Mai. "
Case "06"
b = "Jun. "
Case "07"
b = "Jul. "
Case "08"
b = "Aug. "
Case "09"
b = "Sep. "
Case "10"
b = "Okt. "
Case "11"
b = "Nov. "
Case Else
b = "Dez. "
End Select
c = Left(a, 2) & " " & b & Right(a, 4)
End Sub

greetz
Donald

Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige