Krzywe w Excelu

Modelowanie w EXCEL - (równania różniczkowe)

 

 

 

Function ODwaWiecej(liczba As Integer) As Integer

    ODwaWiecej = liczba + 2
End Function

Function Inicjaly(imie As String, nazwisko As String) As String
    Inicjaly = Left(imie, 1) & Left(nazwisko, 1)
End Function

Function Plec(imie As String) As String
    If Right(imie, 1) = "a" Then
        Plec = "kobieta"
    Else
        Plec = "mężczyzna"
    End If
End Function


Function cyfry(x As Long) As Long
' suma cyfr danej liczby x
Dim sc, a As Long
sc = 0
While x > 1
a = x Mod 10
sc = sc + a
x = (x - a) / 10
Wend
 cyfry = sc
End Function

 

Function CyfrySuma(Dana As String) As Integer

    CyfrySuma = 0
    For i = 1 To Len(Dana)
        CyfrySuma = CyfrySuma + Val(Mid(Dana, i, 1))
    Next
End Function