Re: Excel - vlastni funkce

From: krutohlav (krutohlav@host.sk)
Date: 30. 09. 2001, 14:09 CEST


Sunday, September 30, 2001, si napisal:

> 3. Vlastni vypocet:
>    mam 12ti mistne cislo, a potrebuji secist cislice na lichych pozicich
>    a pak na sudych pozicich.
>    Priklad: 123456789012
>    a = 1 + 3 + 5 + 7 + 9 + 1
>    b = 2 + 4 + 6 + 8 + 0 + 2
>    urcite to jde jednoduse udelat nejakym cyklem, ale ja zaboha nedokazu
>    ve VBA zjistit, zda je cislo liche... :(

Vo Visual Basic-u:

'deklaracie a inicializacia premennych
Dim liche As Integer, sude As Integer
Dim Str_cislo As String
sude = 0
liche = 0

'cyklus
Str_cislo = Str("123456789012") 'pretypujem to na string
For i = 1 To 13 Step 2
 liche = liche + Val(Mid(Str_cislo, i + 1, 1))
 sude = sude + Val(Mid(Str_cislo, i, 1))
Next


V premenej liche mas ten sucet cisiel na lichej pozicii a v sude mas
sucet cisiel na sudej pozicii.


S pozdravom,
 krutohlav                            



This archive was generated by hypermail 2.1.2 : 30. 09. 2001, 17:34 CEST