ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите реализовать алгоритм
41 сообщений из 41, показаны все 2 страниц
  все  
Помогите реализовать алгоритм
    #32563249
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ирча
Участник
Здравствуйте Люди!
Существует выполнение по договору, которое разбивается на выполнение по объектам по факту.
Существует оплата выполненных работ, которая идет одной суммой (SummaP).
Структура таблицы в которой содержаться данные:
idDog, Vipolnenie, DataV, idOb, Oplata
Задача. Распределить оплату программно по объектам, по которым есть задолженность.
Алгоритм представляю себе такой,
для всех объектов по договору считаю задолженность (Dolg)
Если SummaP >= Dolg по 1 объекту, тогда
Oplata = Dolg
SummaP1=SummaP-Oplata
Иначе
Oplata=SummaP
SummaP1=SummaP-Oplata

Все это в цикл,
SummaP1=0 конек цикла
А дальше, как в том анекдоте «нутром чувствую, что литр, а математически выразить не могу»
Т.Е. не знаю с какой стороны к этому подступиться
...
Рейтинг: 0 / 0
16.06.2004, 12:11:34
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32563290
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
Sub TraTaTa (ByVal SummaP as Double, idDog as String)
Dim db As Database: Set db = CurrentDb
Dim rs as Recordset: Set Rs = Db.OpenRecordset("SELECT idDog, Vipolnenie, DataV, Oplata WHERE ((idDog = '" & idDog & "'));", DbOpenDynaset)

With rs
Do While Not .EOF
.Edit
If SummaP >= !Dolg
!Oplata = !Dolg
Else
!Oplata = SummaP
End If
SummaP=SummaP-!Oplata
if SummaP = 0 Then
Exit Do

.Update
.MoveNext
Loop

If SummaP > 0 Then
MsgBox "Остались деньги на выпить и закусить в размере " & SummaP
...
Рейтинг: 0 / 0
16.06.2004, 12:29:35
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32563307
Фотография neal
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
neal
Участник
Может ты имела ввиду
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Set Rs = currentdb.OpenRecordset("...")
Do while not (rs.EOF) and (SummaP >  0 )
    Dolg = ....  ' -- по i-му объекту  должно быть 0 или положительное '
    IF (Dolg >  0 ) Then
         IF (SummaP >= Dolg) Then
              RS.edit
              SummaP=SummaP-Dolg
              Rs!Oplata = Rs!Oplata+Dolg
              Rs.update
         Else IF (SummaP >  0 ) Then  '-- т.е. Dolg > SummaP > 0 '
              Rs.Edit
              Rs!Oplata = Rs!Oplata+SummaP
              SummaP= 0 
              Rs.update
        End if
    End if
    Rs.moveNext   '--переход к следующему '
Loop
...
Рейтинг: 0 / 0
16.06.2004, 12:34:16
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32563309
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ирча
Участник
Спасибо за помощь!
Буду делать...
...
Рейтинг: 0 / 0
16.06.2004, 12:35:10
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32563312
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
Ирча, а что в Уренгой уже регулярно поезда ходят? А до Пангод на поезде доехать можно? Или все так же, как и раньше вертушкой через Надым?
...
Рейтинг: 0 / 0
16.06.2004, 12:36:36
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32563336
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
2 Ирча

стройка?

1-й ворпрос - а надо ли "распределять"

может быть - Oplata в твоей таблице - вовсе не оплата, а цена вопроса?
тогда складывай цены вопроса и смотри против них сумму оплат по договору. Разница даст тебе величину задолженности (дебиторской/кредиторской).
Размазывать по стакану есть смысл, только если оплата постаканная.
Вообще же, размазывать - примерно так, как Rivkin Dmitry нарисовал.
Если только у тебя задача без приоритетов, или каких-нибудь специальных заковык, где явная "функция распределения" потребуется.

обозначился.

Все.
В дальнейшем участвовать не смогу.
по причине боления.
побег дальше болеть.

PS
всем привет
:))
...
Рейтинг: 0 / 0
16.06.2004, 12:43:26
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32563365
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ирча
Участник
to Rivkin Dmitry
Поезда до Уренгоя уже ходят, а вот На счет Пангод не скажу, потому что не знаю
Victosha1-й ворпрос - а надо ли "распределять"
Распределять Надо, потому, что есть господа инвесторы, которые такой отчет придумали
...
Рейтинг: 0 / 0
16.06.2004, 12:49:14
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32563395
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
Victosha ,наверное, прав, и надо бы добавить в таблицу приоритет по idOb,
т е. еще одно поле инт, например, и в нем проставлять порядок объектов для оплаты. Тогда в запросе достаточно будет добавить сортировку по этому полю.
А что ты собираешься делать с остатком, если такой проявится?

А муксун и нельму купить в Уренгое можно? (на остаток, конечно :) )
...
Рейтинг: 0 / 0
16.06.2004, 13:00:29
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32563502
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ирча
Участник
Rivkin DmitryА что ты собираешься делать с остатком, если такой проявится?
я заранее прослежу, чтобы SummaP была меньше или равна задолженности по договору, а остаток пойдет как аванс
Rivkin DmitryА муксун и нельму купить в Уренгое можно? (на остаток, конечно :) )
Смотря какой остаток...
Реально можно, но если интересует качество, то брать надо пока у нас холодно
...
Рейтинг: 0 / 0
16.06.2004, 13:39:55
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32563572
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
А что, все еще холодно? Пора бы и лету наступать. Помнится, снег по оврагам числа до 20 июня лежал, но на солнышке уже жарко становилось в середине июня ... Хотя не всегда! Комарики уже есть?

А код работает то? Я там End If и End With не проставил. Справилась?
...
Рейтинг: 0 / 0
16.06.2004, 14:04:57
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32563587
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ирча
Участник
Rivkin DmitryЯ там End If и End With не проставил. Справилась?
Код пока смотрю.
Он работает, но делает не совсем то, пытаюсь наладить.
Endы все дописала
Rivkin DmitryА что, все еще холодно? Пора бы и лету наступать
У нас уже тепло, но потеплело очень резко. 6 июля была метель и -5, а сейчас 28 вот на рынке и смотрят, кому бы подпорченную рыбку сбагрить. Холодильников то почти нет.
...
Рейтинг: 0 / 0
16.06.2004, 14:11:02
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32563732
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ирча
Участник
Всем спасибо...
Отдельное спасибо Rivkin Dmitry
Все работает посто отлично!
...
Рейтинг: 0 / 0
16.06.2004, 14:54:30
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32563763
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
Привет Северу! Давно там не бывал, и уж, наверное, не буду! А жаль.. :(
...
Рейтинг: 0 / 0
16.06.2004, 15:05:52
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32563767
Фотография neal
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
neal
Участник
ИрчаУ нас уже тепло, но потеплело очень резко. 6 июля была метель и -5, а сейчас 28 вот на рынке и смотрят, кому бы подпорченную рыбку сбагрить. Холодильников то почти нет.

А какая у Вас разница во времени? :)))
...
Рейтинг: 0 / 0
16.06.2004, 15:06:38
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564084
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
neal ИрчаУ нас уже тепло, но потеплело очень резко. 6 июля была метель и -5, а сейчас 28 вот на рынке и смотрят, кому бы подпорченную рыбку сбагрить. Холодильников то почти нет.

А какая у Вас разница во времени? :)))
Когда я там бывал - разница с Москвой была 2 часа (Израиль с Москвой впереди на 1 час), но судя по 6 июля с тех пор они значительно нас обогнали :)))
...
Рейтинг: 0 / 0
16.06.2004, 16:34:23
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564638
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ирча
Участник
Rivkin DmitryКогда я там бывал - разница с Москвой была 2 часа (Израиль с Москвой впереди на 1 час), но судя по 6 июля с тех пор они значительно нас обогнали :)))
Мы такие, к концу рабочего дня еще не то можем.
А вообще то я по делу.
Где-то туплю
Вот что у меня получилось
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("оплата", dbOpenDynaset)
SummaP =  10000 
With rs
Do While Not .EOF
.Edit
If SummaP >= !Dolg Then
!Opl = !Dolg
Else
  If SummaP < !Dolg Then
  !Opl = SummaP
  End If
End If
SummaP = SummaP - !Opl
If SummaP =  0  Then
Exit Do
End If
.Update
.MoveNext
Loop
If SummaP >  0  Then
MsgBox "лишних денег " & SummaP
End If
End With
End Sub
не срабатывает второе условие
SummaP < !Dolg ,Т.е. Когда сумма перестает быть больше или равна долгу,
молча не добавляет остаток.
Ставлю точку останова на это место
SummaP = SummaP - !Opl
Значения все правильные
...
Рейтинг: 0 / 0
17.06.2004, 07:47:40
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564645
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander G
Участник
Выход из цикла без сохранения рекордсета
If SummaP = 0 Then
.Update
Exit Do
End If
...
Рейтинг: 0 / 0
17.06.2004, 07:55:35
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564647
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
а пример данных пару строк + тип полей в таблице + описание переменных Variant/Float ?
...
Рейтинг: 0 / 0
17.06.2004, 08:00:32
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564649
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ирча
Участник
Код: plaintext
1.
2.
3.
4.
5.
Объект	КодД	Dolg	Data	                opl
 180 	 1027 	 992 , 47700 	 17 ,июн, 2004 	
 339 	 1027 	 989 , 90600 	 17 ,июн, 2004 	
 359 	 1027 	 978 , 08900 	 17 ,июн, 2004 	
 102 	 1027 	 97 , 58200 	 17 ,июн, 2004 	
 398 	 1027 	 9644 , 58500 	 17 ,июн, 2004 	 6942
...
Рейтинг: 0 / 0
17.06.2004, 08:12:28
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564651
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ирча
Участник
это была временная таблица из которой рекордсет
после внесенных изменений
If SummaP = 0 Then
.Update
Exit Do
End If
Общая сумма задолженности в таблице 12702,639,
распределяю 10000
Временная таблица
поля долг и оплата числовые, Одинарное с плавающей точкой
...
Рейтинг: 0 / 0
17.06.2004, 08:17:53
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564655
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
If SummaP >= !Dolg Then
!Opl = !Dolg
Else
  If SummaP < !Dolg Then
  !Opl = SummaP
  End If
End If
зачем по одному условия(If SummaP >= !Dolg Then
) 2 раза If ?
Код: plaintext
1.
2.
3.
4.
If SummaP >= !Dolg Then
!Opl = !Dolg
Else
!Opl = SummaP
...
Рейтинг: 0 / 0
17.06.2004, 08:20:18
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564656
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
вдогон в recordset нет Order BY
порядок следования записей не важен ?
...
Рейтинг: 0 / 0
17.06.2004, 08:22:49
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564662
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
у меня получилось всего
10000,0539855957
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Dim db As DAO.Database
Dim SummaP As Variant
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("оплата", dbOpenDynaset)
SummaP =  10000 
With rs
Do While Not .EOF
.Edit
If SummaP >= !Dolg Then
!Opl = !Dolg
Else
!Opl = SummaP
End If
SummaP = SummaP - !Opl
If SummaP =  0  Then
Exit Do
End If
.Update
.MoveNext
Loop
If SummaP >  0  Then
MsgBox "лишних денег " & SummaP
End If
End With
...
Рейтинг: 0 / 0
17.06.2004, 08:32:13
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564665
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
последний Update не работает - чукотка права
...
Рейтинг: 0 / 0
17.06.2004, 08:37:35
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564668
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
пересчитал - получилось
?dsum("OPL","оплата")
10000,0539855957


в последней записи opl урезалась для достижения нужной суммы
Ирча что не так сейчас
...
Рейтинг: 0 / 0
17.06.2004, 08:42:38
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564686
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
Доброе утро всем и Северу, где уже приближается полдень, в частности!

В запросе не участвует idDog - разве это не важно? Оплата проходит рандомально для любого договора и для случайного объекта?
...
Рейтинг: 0 / 0
17.06.2004, 09:01:30
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564690
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ирча
Участник
Shuhardвдогон в recordset нет Order BY
порядок следования записей не важен ?
порядок действительно не важен,
Shuhardзачем по одному условия(If SummaP >= !Dolg Then
) 2 раза If ?
так как второе условие не работала, подумала, а вдркг пойдет, если явно прописать
ShuhardИрча что не так сейчас
Сейчас вроде все так. Плпробую прокатать для нескольких вариантов,
единственное, я не могу понять в чем все - таки разница?
Я кроме того, что изменилось описание переменных, ничего не вижу.
Это настолько важно?
...
Рейтинг: 0 / 0
17.06.2004, 09:05:49
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564699
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
Ирча Shuhardвдогон в recordset нет Order BY
порядок следования записей не важен ?
порядок действительно не важен,
Shuhardзачем по одному условия(If SummaP >= !Dolg Then
) 2 раза If ?
так как второе условие не работала, подумала, а вдркг пойдет, если явно прописать
ShuhardИрча что не так сейчас
Сейчас вроде все так. Плпробую прокатать для нескольких вариантов,
единственное, я не могу понять в чем все - таки разница?
Я кроме того, что изменилось описание переменных, ничего не вижу.
Это настолько важно?

дай финальный код
Код: plaintext
1.
If SummaP =  0  Then

+ возможная причина строгое равенство
на самом деле SummaP - число с плавающей запятой и точного равенства быть не может лучше написать -0,000001<SummaP<0,00001

если так то должны появляться маленькие минусы
...
Рейтинг: 0 / 0
17.06.2004, 09:11:20
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564700
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
редукция


-0,00001<SummaP<0,00001
...
Рейтинг: 0 / 0
17.06.2004, 09:12:26
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564709
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
Или
If Abs(SummaP) <= 0.0001 Then
Exit Do
...
Рейтинг: 0 / 0
17.06.2004, 09:19:49
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564711
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ирча
Участник
вариант таблици
Код: plaintext
1.
Объект	КодД	Dolg	Data	 opl     
 355 	 1027 	 25052 	 17 ,июн, 2004 	 0
ничего ге заполняется
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
Public Sub dolgr()
Dim db As DAO.Database
Dim SummaP As Variant
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("оплата", dbOpenDynaset)
SummaP =  10000 
With rs
Do While Not .EOF
.Edit
If SummaP >= !Dolg Then
!Opl = !Dolg
Else
!Opl = SummaP
End If
SummaP = SummaP - !Opl
If SummaP =  0  Then
Exit Do
End If
.Update
.MoveNext
Loop
If SummaP >  0  Then
MsgBox "лишних денег " & SummaP
End If
End With

End Sub
Точка останова на
SummaP = SummaP - !Opl

в строке If SummaP = 0 Then
SummaP=10000
аналогично в строке
If SummaP > 0 Then

Rivkin DmitryВ запросе не участвует idDog - разве это не важно? Оплата проходит рандомально для любого договора и для случайного объекта?
idDog пока для обкатки забит в условии постоянный, потом будет браться из формы
...
Рейтинг: 0 / 0
17.06.2004, 09:20:56
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564726
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
...
Рейтинг: 0 / 0
17.06.2004, 09:30:20
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564732
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
буду ругаться
Код: plaintext
1.
2.
3.
If SummaP =  0  Then
Exit Do

а надо
Код: plaintext
1.
2.
3.
4.
If SummaP =  0  Then
.Update
Exit Do
НЕ ЗАПИСЫВАЕТСЯ В ТАБЛИЦУ БЕЗ .UPDATE !!!!
...
Рейтинг: 0 / 0
17.06.2004, 09:32:32
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564734
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
Must be:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
Public Sub dolgr()
    Dim db As DAO.Database: Set db = CurrentDb
    Dim rs As DAO.Recordset: Set rs = db.OpenRecordset("Pay", dbOpenDynaset)
    Dim SummaP As Double
    
    SummaP =  10000 
    With rs
        Do While Not .EOF
            .Edit
            
            If SummaP >= !Dolg Then
                !Opl = !Dolg
            Else
                !Opl = SummaP
            End If
            
            .Update
            .MoveNext
            
            SummaP = SummaP - !Opl
            If Abs(SummaP) <=  0 . 0001  Then Exit Do
            
        Loop
        
        If SummaP >  0  Then
            MsgBox "Rest " & SummaP
        End If
        
    End With

End Sub
...
Рейтинг: 0 / 0
17.06.2004, 09:33:23
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564740
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
Ой-ой - чуть чуть наврал

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
Public Sub dolgr()
    Dim db As DAO.Database: Set db = CurrentDb
    Dim rs As DAO.Recordset: Set rs = db.OpenRecordset("Pay", dbOpenDynaset)
    Dim SummaP As Double
    
    SummaP =  10000 
    With rs
        Do While Not .EOF
            .Edit
            
            If SummaP >= !Dolg Then
                !Opl = !Dolg
            Else
                !Opl = SummaP
            End If
            
            .Update
            
            SummaP = SummaP - !Opl
            If Abs(SummaP) <=  0 . 0001  Then Exit Do
            
            .MoveNext
        Loop
        
        If SummaP >  0  Then
            MsgBox "Rest " & SummaP
        End If
        
    End With

End Sub
...
Рейтинг: 0 / 0
17.06.2004, 09:35:18
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564747
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ирча
Участник
ShuhardНЕ ЗАПИСЫВАЕТСЯ В ТАБЛИЦУ БЕЗ .UPDATE !!!!
Не ругайся. пожалуйста, я же честно призналась ТУПЛЮ.
Спасибо большое за помощь.
Я с рекордсетами только начинаю работать, а цикл вообще в первый раз запускаю.
...
Рейтинг: 0 / 0
17.06.2004, 09:39:51
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564756
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
Ирча ShuhardНЕ ЗАПИСЫВАЕТСЯ В ТАБЛИЦУ БЕЗ .UPDATE !!!!
Не ругайся. пожалуйста, я же честно призналась ТУПЛЮ.
Спасибо большое за помощь.
Я с рекордсетами только начинаю работать, а цикл вообще в первый раз запускаю.


не забудь посмотреть в Гейтсе раздел про ADO
с 0 лучше учить эту технологию.У тебя же Acc > 97
...
Рейтинг: 0 / 0
17.06.2004, 09:45:03
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564773
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Опа - сейчас опять не втему встряну :)

Вы реализовываете алгоритм (щас на пальцах буду, но это для меня - чтоб мне самому было понятно)

Условие:
Есть несколько стаканов (разной емкости) и есть бутылка водки (известно, что суммарный объем стаканов больше объема бутылки)

Алгоритм:
1. Льем в первый стакан
2. Если стакан полон, а водка еще осталась, то переходим к следующему стакану
3. пункты 1 и 2 повторяем пока есть водка.
Хороший алгоритм (по будь я обладателем последнего стакана - мне бы постоянно водки не хватало - ну это так отступление)
Алгорим решаем циклом по рекордсету

Хочу предложить свой алгоритм:
1. Определяем суммарное свободное место в стаканах ([СуммаДолга])
2. Знаем размер бутылки ([ОбъемВодки])
3. Определяем коэфициент заполнения ([k] = [ОбъемВодки]/[СуммаДолга])
4. Разливаем водку по стаканам пропорционально свободному месту в стаканах (т.е. в каждый стакан наливаем [СвободноеМестоВСтакане]*[k] Водки)

1 пункт - DSum
2 пункт - дано
3 пункт - арифметика
4 пункт - один простенький запрос на обновление

?

Такой алгоритм не подойдет?
...
Рейтинг: 0 / 0
17.06.2004, 09:55:20
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564777
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ирча
Участник
Rivkin DmitryПривет Северу! Давно там не бывал, и уж, наверное, не буду! А жаль.. :(
Тебе тоже привет!
А почему, так сразу, не буду.
Мы к вам летом, вы к нам зимой....
Shuhardне забудь посмотреть в Гейтсе раздел про ADO
с 0 лучше учить эту технологию.У тебя же Acc > 97
Acc у меня 2003, а вот руки пока кривоваты,
а раздел про ADO, думала что рано мне естче...
...
Рейтинг: 0 / 0
17.06.2004, 09:55:45
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564805
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
авторТебе тоже привет!
А почему, так сразу, не буду.
Мы к вам летом, вы к нам зимой....

К нам - Добро пожаловать! А к вам надо разрешение в милиции оформлять и всякие там формальности... Или сейчас такого не надо?
Давно я с Севера - уже годков 16, а до сих пор временами снится! :(

Кстати, не сможешь добыть мыло кого нибудь из руководителей Пангодинского ГПУ? Например, Дурновцева А.Е. или кого нибудь из Надыма?

А что алгоритм, заработал?
...
Рейтинг: 0 / 0
17.06.2004, 10:11:16
| Ответить | Цитировать | Написать  
Помогите реализовать алгоритм
    #32564843
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ирча
Участник
paparomeТакой алгоритм не подойдет?
Он мог бы подойти, но у меня по одному договору объектов бывает за 300 и размазывать по ним пять миллионов рублей, и тем самым с каждой платежной добавлять колличество записей равное колличеству объектов не считаю разумным, в то же время, оплата производиться по договору в целом, а не за отдельные объекты, поэтому мне все равно, чей стакан останеться пустым
Rivkin DmitryК нам - Добро пожаловать! А к вам надо разрешение в милиции оформлять и всякие там формальности... Или сейчас такого не надо?
Давно я с Севера - уже годков 16, а до сих пор временами снится! :(

Кстати, не сможешь добыть мыло кого нибудь из руководителей Пангодинского ГПУ? Например, Дурновцева А.Е. или кого нибудь из Надыма?

А что алгоритм, заработал?
У нас уже давно ЗП сняли, так что добро пожаловать с обычными документами Гостя России.
Мыло посмотрю, но не обещаю.
Алгоритм вроде заработал, но зарекаться уже боюсь.
Сейчас все допишу по полной и посмотрим...
...
Рейтинг: 0 / 0
17.06.2004, 10:32:09
| Ответить | Цитировать | Написать  
41 сообщений из 41, показаны все 2 страниц
  все  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите реализовать алгоритм
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=45&tid=1673785]:
 0ms
get settings:
 8ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 180ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 90ms
get tp. blocked users:
 1ms
others: 217ms
total:  534ms
созд. / загр.: 534ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]