Biçimlendirilmiş bir tarihin yerel ayarı nasıl değiştirilir?

Question

Bugünün tarihini İngilizce ay adıyla belirli bir biçimde almak istiyorum. Bana 05-cze-2013 verir ben Format(DateValue(Now), "dd-mmm-yyyy") kullanıyorum

, , Lehçe olduğunu . Ne almak istediğim 05-Jan-2013.

Sadece bir VBA çözümüyle ilgileniyorum. Lütfen ayrıca yerel ayarı da VBA kullanarak orijinaline geri döndürmenin bir yolunu sağlayın.

Answer 1

Çok zor değil ...

Sub VBA_Dates_Format() 
    Cells.Clear 
    Range("A1").Value = Now 
    Range("A2").Value = Now 
    ' Polish 
    Range("A1").NumberFormat = "[$-415]d mmm yy;@" 
    ' English UK 
    Range("A2").NumberFormat = "[$-809]d mmm yy;@" 
End Sub 

ben kayıt ve kriterlere uygun bir makro değiştirerek bu elde ettik.

---

Further reading available here

Answer 2

O değil temiz VBA ama o dizede biçimlendirilmiş tarihi lokalize almak için bir yoldur. Biçim işlevinin yapamayacağı bir şey. Ian Boyd yerelleştirilmiş biçimlendirme i harika cevap https://stackoverflow.com/a/899290 hakkında

With Range("$A$1") 
    .NumberFormat = "[$-809]dd mmmm" 
    .FormulaR1C1 = "=NOW()" 
    tmp = .Text 
    .NumberFormat = "@" 
    .Value = CStr(tmp) 
End With 

diğer bilgiler