|
Действия ...
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
11.12.2006, 11:52
|
|||
|---|---|---|---|
|
|||
И сново хелп |
|||
|
#18+
Private Sub Kurs_AfterUpdate() If IsTrue(Me.Kurs) Then If str(Me.SellCurrency) = str(Me.RefCur1) Then If IsTrue(Me.SellAmount) Then Me.BuyAmount = Me.SellAmount / Me.Kurs ElseIf Not IsTrue(Me.BuyAmount) Then Me.SellAmount = Me.BuyAmount * Me.Kurs End If Else If IsTrue(Me.SellAmount) Then Me.BuyAmount = Me.SellAmount * Me.Kurs ElseIf Not IsTrue(Me.BuyAmount) Then Me.SellAmount = Me.BuyAmount / Me.Kurs End If End If End If End Sub как это примерно будет выглядеть на VB 6.0 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
11.12.2006, 12:40
|
|||
|---|---|---|---|
И сново хелп |
|||
|
#18+
Используйте форматирование, читать невозможно ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
11.12.2006, 13:27
|
|||
|---|---|---|---|
И сново хелп |
|||
|
#18+
А это типа на каком? Клингонском? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
11.12.2006, 13:35
|
|||
|---|---|---|---|
|
|||
И сново хелп |
|||
|
#18+
If IsTrue(Me.SellAmount) Then If IsTrue(Me.Kurs) Then If str(Me.SellCurrency) = str(Me.RefCur1) Then Me.BuyAmount = Me.SellAmount / Me.Kurs Else Me.BuyAmount = Me.SellAmount * Me.Kurs End If ElseIf IsTrue(Me.BuyAmount) Then If str(Me.SellCurrency) = str(Me.RefCur1) Then Me.Kurs = Me.SellAmount / Me.BuyAmount Else Me.Kurs = Me.BuyAmount / Me.SellAmount End If End If End If End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
11.12.2006, 13:37
|
|||
|---|---|---|---|
|
|||
И сново хелп |
|||
|
#18+
незнаю как его форматнуть выходит одинаково в одну линию ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
11.12.2006, 13:37
|
|||
|---|---|---|---|
|
|||
И сново хелп |
|||
|
#18+
Private Sub SellAmount_AfterUpdate() If IsTrue(Me.SellAmount) Then If IsTrue(Me.Kurs) Then If str(Me.SellCurrency) = str(Me.RefCur1) Then Me.BuyAmount = Me.SellAmount / Me.Kurs Else Me.BuyAmount = Me.SellAmount * Me.Kurs End If ElseIf IsTrue(Me.BuyAmount) Then If str(Me.SellCurrency) = str(Me.RefCur1) Then Me.Kurs = Me.SellAmount / Me.BuyAmount Else Me.Kurs = Me.BuyAmount / Me.SellAmount End If End If End If End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
11.12.2006, 16:36
|
|||
|---|---|---|---|
И сново хелп |
|||
|
#18+
Нужно поднять глаза чуть выше курсора и увидеть кнопку SRC , либо оформить свой текст { SRC vba } { /SRC } только квадратными скобками замени. А чтобы созерцать плоды своего творения нужно нажать кнопку "Предварительный просмотр" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=60&mobile=1&tid=2164833]: |
0ms |
get settings: |
8ms |
get forum list: |
18ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
160ms |
get topic data: |
11ms |
get forum data: |
2ms |
get page messages: |
58ms |
get tp. blocked users: |
1ms |
| others: | 206ms |
| total: | 470ms |
| 0 / 0 |
