|
|
|
И сново хелп
|
|||
|---|---|---|---|
|
#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, 11:52 |
|
||
|
И сново хелп
|
|||
|---|---|---|---|
|
#18+
Используйте форматирование, читать невозможно ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.12.2006, 12:40 |
|
||
|
И сново хелп
|
|||
|---|---|---|---|
|
#18+
А это типа на каком? Клингонском? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.12.2006, 13:27 |
|
||
|
И сново хелп
|
|||
|---|---|---|---|
|
#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:35 |
|
||
|
И сново хелп
|
|||
|---|---|---|---|
|
#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, 13:37 |
|
||
|
И сново хелп
|
|||
|---|---|---|---|
|
#18+
Нужно поднять глаза чуть выше курсора и увидеть кнопку SRC , либо оформить свой текст { SRC vba } { /SRC } только квадратными скобками замени. А чтобы созерцать плоды своего творения нужно нажать кнопку "Предварительный просмотр" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.12.2006, 16:36 |
|
||
|
|
start [/forum/topic.php?fid=60&gotonew=1&tid=2164833]: |
0ms |
get settings: |
7ms |
get forum list: |
11ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
150ms |
get topic data: |
8ms |
get first new msg: |
5ms |
get forum data: |
2ms |
get page messages: |
38ms |
get tp. blocked users: |
1ms |
| others: | 217ms |
| total: | 443ms |
| 0 / 0 |
