| |
|
|
| | Здравствуйте!
Подскажите, как вывести название месяца в отчете на укр яз, если в настройках системы указан русский язык?
Предполагаю, что можно создать таблицу с названиями месяцев и всякий раз название месяца брать из нее, а дату и год с поля ДАТА .
Можно изменить в настройках системы, но это радикально, а мне нужно только в моей программе.
Может можно как-то проще, а?  | |
| |
| |
| |
|
|
| | напишите функцию, которая будет подменять название | |
| |
| |
| |
|
|
| | напримертак
Function CMonth(mes As Integer, Optional lang As String = "ua")
mes = mes + 1
Select Case lang
Case "ru":
CMonth = Choose(mes, "", "Январь", "Февраль", "Март", "Апрель", "Май", "Июнь", "Июль", "Август", "Сентябрь", "Октябрь", "Ноябрь", "Декабрь")
Case "ua":
CMonth = Choose(mes, "", "Січень", "Лютий", "Березень", "Квітень", "Травень", "Червень", "Липень", "Серпень", "Вересень", "Жовтень", "Листопад", "Грудень")
End Select
End Function | |
| |
| |
| |
|
|
| | красивый всё таки украинский язык
 | |
| |
| |
|
|
| |
|
|
| | http://hiprog.com/index.php?option=com_content&task=view&id=251661550&Itemid=35
чего скромничать-то :))) | |
| |
| |
| |
|
|
| | А что можно сделать, если в названии месяца есть специфические буквы, которые в VB не набираются | |
| |
| |
|
|
| |
|
|
| | chr(код буквы)  | |
| |
| |
| |
|
|
| | то версия хард, а ета - для начинаючих ;) | |
| |
| |
| |
|
|
| | Если не трудно поясните последние 2 сообщения.
Вопрос в следующем например в WORD чтобы набрать какую то спецбукву например ( ū ) нужно сделать два нажатия на ( ' ) и на ( u ). Когда это вводится в VBA, то получается совсем другой символ. Поэтому не получается задать нужное название месяца или например в функции сумма прописью название какой-либо цифры и т.д.
Вот и в этом сообщении при отправке нужная буква преобразовалась в ( ū ) | |
| |
| |
| |
|
|
| | так я не понял - вам здесь нужно(на форуме) или в VBA?
то, что вы написали - это отображение спецсимволов в HTML.
а в VBA - это через chr, вероятно. опросите тот символ ф-ей asc 
но я не уверен на все 100, т.к. не сталкивался с такой проблемой. | |
| |
| |
| |
|
|
| | Нужно в VBA
Мысль вроде понял
Ф-ия chr показала 255 символов из которых нашлось только 2 нужных.
А всего нужно 12.
Эти 2 можно использовать.
А где найти другие | |
| |
| |
|
|
| |
|
|
| | ChrW нашла все нужные буквы, но когда ввожу в VBA функцию ChrW (363) = спец. буква ( u ) получаю просто ( u )
Т.е. слово "zub - где "u" спец. буква ( u ) " в VBA пишу так
z" & ChrW (363) & "b
Получаю просто zub
Ф-ия Chr ( ) при такой записи работает коректно но с ней могу ввести только две буквы | |
| |
| |
| |
|
|
| | тема unicode в общем то
http://hiprog.com/forum/read.php?id_forum=1&id_theme=286&page=26
http://am.rusimport.ru/MSAccess/f2.aspx?type=1&id=2200&find=ChrW&page=-1
http://www.google.com.ua/search?q=msaccess+chr+chrw+unicode&hl=ru&start=10&sa=N
http://bbs.vbstreets.ru/viewtopic.php?p=6659672
http://support.microsoft.com/kb/193540
а вот это по-моему самое оно 
http://mypage.bluewin.ch/reprobst/WordFAQ/Unicode.htm | |
| |
| |
| |
|
|
| | Все-таки получилось через ChrW ( ) вывести коректно спец.буквы, но только в результате который получаем после выполнения ф-ии (напр.название месяца со спец.буквами).
Если через ChrW ( ) писать спец.буквы в какое-то системное сообщение, то в сообщении спец.буквы не распознаются.
Можно ли решить эту проблему
Посмотрел предложенные ссылки, но пока ничего не смог придумать. | |
| |
| |
