Pascal for Investment Database

Jun 18, 2008
Pascal coding is so useful for Investment database with SQL server.

Why? (sorry in Bahasa Indonesia)
FPC juga datang dengan bonus yang mantap..misalnya sebuah IDE (Integrated Development Environment) yang sangat mirip dengan IDE-nya TP7. Dan disamping seluruh keuntungan tersebut, FPC tersedia dalam berbagai platform system yang berbeda-beda. Seperti Win32,Linux, BSD,Sparc , dll. Dan berbicara soal keunggulan FPC sepertinya tidak akan pernah cukup,..maka saya berikan Anda satu lagi kompiler ini juga bisa melakukan pemrograman database dan berhubungan dengan SQL-SQL server hebat seperti like MySQL dan PostgreSQL,bahkan Interbase. Untuk membuat antarmuka GUI (banyak orang masih sangat menggilai GUI) maka FPC bisa dipadukan dengan widget software seperti GTK, Tcl/Tk, dan ncurses. Jadi..mengapa Free Pascal...mengapa tidak ?!!
source: freepascal.org //razmal djamal >>>

This the simple code to calculate portfolio gain and return retrieved from ForteCRM software.

//------------------------------------------------------------------------------

procedure appendTotal(Dataset: TDataset; fTotalStart, fTotalEnd, fTotalContribution, fTotalWithdrawn,
fTotalCashIncome: float;
style, reportCurrSymbol: string; PerformanceMethod : string;
PerformanceInflate : float; PerformanceAnnualise: boolean;
iDaysInPeriod : integer);

var

fNetOutFlow : float;
fNetInFlow, fPFolioReturn : float;
fReturn, fGain, fInflateRate, fInvestInflate : float;

begin

appendSubTotal(Dataset, fTotalStart, fTotalEnd, fTotalContribution, fTotalWithdrawn, fTotalCashIncome, style, reportCurrSymbol);
Dataset.edit;

// Calculate the return.

if (fTotalStart + fTotalContribution) <> 0 then

begin


if UpperCase(PerformanceMethod) = 'SIMPLE' then

begin
fReturn := (fTotalEnd + fTotalCashIncome + fTotalWithdrawn) / (fTotalStart + fTotalContribution);
end;

end;

// Dollar Gain

fGain := (fTotalEnd + fTotalWithdrawn) - (fTotalStart + fTotalContribution);

fInvestInflate := 0;

if iDaysInPeriod > 0 then

begin

fInflateRate := (PerformanceInflate/100) + 1;
fInvestInflate := Power(fInflateRate, 365/iDaysInPeriod);
fInvestInflate := (1 - fInvestInflate) * 100;
end

If PerformanceAnnualise then

begin

fReturn := Power(fReturn, 365/iDaysInPeriod);
end;

fReturn := ((fReturn - 1) * 100) - fInvestInflate;

end;

Labels:



Comments:
Blogger infogue said...

artikel anda bagus dan menarik, artikel anda:

http://database.infogue.com
http://database.infogue.com/pascal_for_investment_database


anda bisa promosikan artikel anda di www.infogue.com yang akan berguna untuk semua pembaca. Telah tersedia plugin/ widget vote & kirim berita yang ter-integrasi dengan sekali instalasi mudah bagi pengguna. Salam!

Jun 19, 2008, 2:34:00 AM  

Post a Comment

<< Home

Dutch Indonesian English
    I receive donation for premium financial model and website developments. Please contact me for any inquiries.
this tool only works in IE
Calculate Your Power
Your Energy
Your Age Now y.o.
Your after-tax Annual Income
Monthly Expenses
Desired Real Return %
Desired Retirement Age y.o.
Transcendence Ratio %
Your Power
Annual Saving
Power in 5 yrs
Power in 10 yrs
Power @ Retirement
Estate Planning
Charity
>> read Transcendence Power