Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Двоичный код
 
 автор: промка   (12.11.2008 в 14:17)   личное сообщение
 
 

Как посмотреть двоичный код текстовой константы ? Н-р какой двоичный код буквы Т? как узнать Как работает функция Cbool не удалось ее использовать

  Ответить  
 
 автор: Кабан   (12.11.2008 в 14:42)   личное сообщение
 
 

а десятичный устроит?
Asc("Т")

  Ответить  
 
 автор: Промка   (12.11.2008 в 15:00)   личное сообщение
 
 

Спасибо, а как узнать прописная буква или строчная,мне нужно програмно заменить T латинское на T русское,перевожу в лоб,но не схватывается пропись или строчная

  Ответить  
 
 автор: Кабан   (12.11.2008 в 15:04)   личное сообщение
 
 

Большая меньше маленькой на 32

  Ответить  
 
 автор: Промка   (12.11.2008 в 15:11)   личное сообщение
 
 

мне нужно програмно заменить T латинское на T русское,перевожу в лоб,но не схватывается пропись или строчная

  Ответить  
 
 автор: Анатолий (Киев)   (12.11.2008 в 15:18)   личное сообщение
 
 

>програмно заменить T латинское на T русское

Если во всей строке, то используйте функцию Replace в режиме vbBinaryCompare.

  Ответить  
 
 автор: Анатолий (Киев)   (12.11.2008 в 15:13)   личное сообщение
 
 

Не всегда. Ёё, а также украинские и белорусские буквы - по другому.

  Ответить  
 
 автор: Кабан   (12.11.2008 в 15:32)   личное сообщение
 
 

+1

  Ответить  
 
 автор: Анатолий (Киев)   (12.11.2008 в 15:10)   личное сообщение
 
 

1. Двоичный код символа
Hex(Asc("А"))

2. Регистр символа
?StrComp("А",UCase("А"),vbBinaryCompare)
0
?StrComp("а",UCase("а"),vbBinaryCompare)
1

  Ответить  
 
 автор: Дрюня   (12.11.2008 в 15:01)   личное сообщение
 
 

This example uses the CBool function to convert an expression to a Boolean. If the expression evaluates to a nonzero value, CBool returns True; otherwise, it returns False.

Dim A, B, Check
A = 5: B = 5 ' Initialize variables.
Check = CBool(A = B) ' Check contains True.

A = 0 ' Define variable.
Check = CBool(A) ' Check contains False.

  Ответить  
 
 автор: Промка   (12.11.2008 в 15:18)   личное сообщение
 
 

Большое спасибо !!!

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList