VBA - Datum Ändern-Sprache

Ich versuche, solche problem zu lösen:
In Makros, die ich benutze, einer der Teile ist, zum abrufen von Datum Monat (vollständige Benennung), die derzeit verwendet wird : 

LastMonth = Format(DateSerial(Year(Date), Month(Date) - 1, 1), "mmmm")

Aber dann ein problem erscheint - für Personen, die unterschiedliche regionale Sprache Einstellungen Datum erscheint in der lokalen Sprache, aber ich muss es für jeden in Englisch.

Ich war auf der Suche rund um das internet, aber habe nicht gefunden eine ähnliche Lösungen.
Wer weiß, wie kann das gelöst werden?

InformationsquelleAutor Yuriy T. | 2015-08-19
  1. 10

    Excel-Formel TEXT erlaubt die Definition von Ausgabe-Sprache, also eine der Optionen ist zu verwenden das VBA-äquivalent:

    LastMonth = WorksheetFunction.Text(Date - Day(Date), "[$-409]mmmm")
    InformationsquelleAutor BrakNicku
  2. 3

    Versuchen dieses, gefunden auf ein forum und es scheint zu funktionieren.

    Public Function Format_en(Datum As Date) As String 
Dim DD              As String 
Dim MMM             As String 
Dim YY              As String 

DD = Format(Datum, "dd") 
MMM = Choose(Month(Datum), "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December") 
YY = Format(Datum, "yy") 

Format_en = DD & "." & MMM & " " & YY 
End Function 

MsgBox Format_en(Date)

    Referenz: http://www.office-loesung.de/ftopic99887_0_0_asc.php

    Cheers

    InformationsquelleAutor GOSCHEN
  3. -1

    Nur mit [$-409] zu zwingen englischen Zahlenformat.

    .NumberFormat = "[$-409]mmmm JJ"

    gibt eine Ausgabe wie z.B. "December 19".

    .NumberFormat = "[$-409]mmm yy"

    gibt eine Ausgabe wie z.B. "Dec-19".

    InformationsquelleAutor Stefan
Schreibe einen Kommentar