separatore - formato data ora excel




VBA-Cambia lingua della data (2)

Sto cercando di risolvere questo problema: in macro, che sto usando, una delle parti è recuperare il mese della data (in full naming), attualmente è usato:

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

Ma poi appare un problema - per le persone, che usano impostazioni della lingua regionale diverse, la data appare nella sua lingua locale, ma ho bisogno di averlo per tutti in inglese .

Stavo guardando in Internet, ma non ho trovato soluzioni simili. Qualcuno sa, come può essere risolto?


La formula di Excel TEXT consente di definire la lingua di output, quindi una delle opzioni consiste nell'utilizzare il suo equivalente VBA:

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

Prova questo, trovato su un forum e sembra funzionare.

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) 

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

Saluti







formatting