rss sql ru access programming
rss_sql_ru_access_programming

 -

rss_sql_ru_access_programming

 - e-mail

 

 -

LiveInternet.ru:
: 16.03.2006
:
:
: 4

:


VBA

, 18 2015 . 09:41 +
, (1) (2).
.

.

- ,

.

. , , , . , .

, .

, .
+
Oplatit = 0
Oplata = 0

Set rcdPlateji = CurrentDb.OpenRecordset("2")
rcdPlateji.MoveFirst '  
Do While Not rcdPlateji.EOF '   2

    KodStudend = rcdPlateji![]
    PenjaSumm = 0
    Do While rcdPlateji![] = KodStudend '     

                    If rcdPlateji![] = 1 Then
                    Oplatit = Oplatit + rcdPlateji![]
                    OplataPo = rcdPlateji![]
                    Else
                    Oplata = Oplata + rcdPlateji![]
                    PlategkiOt = rcdPlateji![]
                    End If
                    
                    If Dolg > 0 And Oplata > 0 Then
                    KOlDni = DateDiff("d", OplataPo, PlategkiOt)
                    Penja = Dolg * KOlDni * 0.001
                    PenjaSumm = Penja + PenjaSumm
                    Dolg = Oplatit - Oplata
                    End If

    rcdPlateji.MoveNext
    Loop

Loop



: , . ((.

http://www.sql.ru/forum/1157084/algoritm-dlya-rascheta-peni-v-vba


— — : [1] []
 

:
: 

: ( )

:

  URL