Savet : Testirajte Office

Tipičan korisnik Office programa ne spada u one koji jure za izrazitom snagom svoje platforme: za većinu nas je bitnije da platforma bude stabilna i pouzdana. Međutim, niko od nas nije gadljiv na dodatnu snagu računara, pogotovo ako postoji potreba za intenzivnijom obradom podataka. U tom slučaju, više memorije, jači procesor ili brži disk mogu da pruže čak i značajnu uštedu u vremenu. Na Internetu ćete lako pronaći razne bencmark programe koji numerički izražavaju razne aspekte snage vašeg računara. Vista i Windows 7 su uveli i sopstvene indekse performansi (koje smo naučili da tumačimo kako kome odgovara, ali ko će svetu ugoditi).
Subjektivni osećaj i dalje više znači korisniku Office programa: nije sve ni u brzini, pokazalo se kada su višejezgarni procesori sa sporijim taktom pokazali bolje ukupne performanse od starijih a bržih procesora sa jednim jezgrom. Mnogi procesi u Office programima zavise od performansi jednog jezgra; tek je Excel 2007 uneo novinu u vidu modela simultane primene više jezgara za proračun u više niti (potražite opciju u dijalogu Options > Advanced). Ako koristite intenzivne statističke proračune u Excel-u, pa vam sistem zbog toga zastajkuje, izolujte procese na manje jezgara od broja raspoloživih.
Za letnju razbibrigu, u nastavku je VBA makro koji sam našao negde na Mreži. Zadatak makroa je da vam da okvirnu predstavu o snazi vašeg računara u Office primenama. Makro će raditi u jednom jezgru procesora i samo će iskazati koliko mu je vremena trebalo da generiše i ispita sto miliona slučajnih brojeva. Bez brige, neće to trajati dugo: moj trenutni stoni računar (Quad Q8200 na 2,33 GHz) izvrti ovaj makro prosečno za oko 7,6 sekundi; mom starom Pentium-u 4 koji radi na 3 GHz treba prosečno oko 14,1 sekundi. Novi računari iz gornje klase bi trebalo da obrnu ovu petlju za manje od pet sekundi.

Benchmark test za Office okruženje:

Sub TestMakine1()
‘ 100 miliona sluèajnih brojeva u petlji
Dim x As Long
Dim PocVreme As Single
Dim i As Long
Const Polovina As Single = 0.5
x = 0
PocVreme = Timer
For i = 1 To 100000000
If Rnd <= Polovina Then x = x + 1 Else x = x – 1
Next i
MsgBox Timer – PocVreme & " sekundi"
End Sub