Код на VBA (эталон):
Sub Test1() Dim R As Range Set R = Range("a1") R.Clear ' очистим формулы и форматы R.Value2 = Date ' запишем текущую дату R.NumberFormat = "d/mm/yy" ' работает R.NumberFormatLocal = "ДД.ММ.ГГ" ' работает ' дальше не работает R.NumberFormat = "ДД.ММ.ГГ" ' не работает R.NumberFormatLocal = "d/mm/yy" ' ОШИБКА! Set R = Nothing End SubКод на Delphi:
R := ASheet.Range['A1', EmptyParam]; R.Value2 := Date; R.NumberFormat := 'd/mm/yy'; // ОШИБКА! R.NumberFormat := 'ДД.ММ.ГГ'; // работает R.NumberFormatLocal := 'ДД.ММ.ГГ'; // работает R.NumberFormatLocal := 'd/mm/yy'; // ОШИБКА