Полезности

Днес докато си кликах в нета попаднах на нещо интересно и полезно:

http://www.bluemoosetech.com/databasejournal.php

Ето един пример за функция в excel, която всеки може да си добави и използва.
Връща истина ако аргумента е просто число и лъжа ако не е.

Function IsPrime(ByRef rngVal As Range) As Variant
Dim ValPrime As Boolean
Dim x As Long
Dim ValGCD As Double
Dim Val As Double
Val = rngVal.Value
If Val = 1 Or Val <> Int(Val) Or IsEmpty(rngVal) = True
Then IsPrime = "#VALUE"
Exit Function
End If
ValPrime = True
For x = 2 To Val - 1
If Val / x = Int(Val / x) Then ValPrime = False
IsPrime = ValPrime
Exit Function
End If
Next x
IsPrime = ValPrime
End Function