separatore - formato data ora excel




VBA-Cambia lingua della data (2)

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")

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?


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