Datumsformat ändern

[dragonos]

Hallo,

ich benötige das aktuelle Datum. Dazu verwende ich die Funktion heute().
Die liefert mir auf meinem System das Format DD.MM.YYYY.
Ist es möglich das Format in YYYY-MM-DD zu ändern?


Danke,
dragonos

[Steffan]

Hallo,

da Du im Basic-Forum gepostet hast, nehme ich mal an, dass Du an einer Makrolösung interessiert bist:

Code: Alles auswählen

Sub DatumUmwandeln
sDate = Date
sNewDate = Format(year(sDate),"0000") & "-" & _
          Format(month(sDate),"00") & "-" & _
          Format(day(sDate),"00")
msgbox sDate & chr(13) & sNewDate
End Sub

Steffan.

[Toxitom]

Hey,

Hmm, HEUTE() gibt es als Basic-Funktion nicht - ich denke also, du suchst eine Calc-Lösung?
Dann kannst du einfach die Zelle in deinem Wunsch-Format formatieren - dann stimmt schon alles.
Möchtest du das Ganze dann allerdings mit Bassc-Code durchführen, dann weise dem Zellobject oder dem Zellbereichsobject das entsprechende Nummernformat zu, etwa so:

Code: Alles auswählen

oZelle.NumberFormat = 84 'YYYY-MM-TT

Das betrifft allerdings nur die Darstellung inerhalb der Calczelle - intern weiterhin eine Zahl (fortlaufend) gespeichert. Benötigst du den String (Z.B. für eine Datenbank), so nutze Stefans Methode .-)

Gruss
Thomas