lazarus-ccr/applications/lazstats/source_orig/presentvalueunit.lfm

object PresentValueFrm: TPresentValueFrm
  Left = 163
  Height = 480
  Top = 111
  Width = 336
  Caption = 'Present Value'
  ClientHeight = 480
  ClientWidth = 336
  OnShow = FormShow
  LCLVersion = '0.9.28.2'
  object Label1: TLabel
    Left = 7
    Height = 14
    Top = 288
    Width = 62
    Caption = 'Future Value'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 8
    Height = 14
    Top = 321
    Width = 43
    Caption = 'Payment'
    ParentColor = False
  end
  object Label3: TLabel
    Left = 8
    Height = 14
    Top = 354
    Width = 89
    Caption = 'Number of Periods'
    ParentColor = False
  end
  object Label4: TLabel
    Left = 8
    Height = 14
    Top = 392
    Width = 76
    Caption = 'Rate Per Period'
    ParentColor = False
  end
  object Label5: TLabel
    Left = 8
    Height = 14
    Top = 431
    Width = 67
    Caption = 'Present Value'
    ParentColor = False
  end
  object Memo1: TMemo
    Left = 6
    Height = 240
    Top = 8
    Width = 318
    Lines.Strings = (
      'Description:'
      ''
      'This procedure calculates the Present Value of an investment'
      'where Payment is received for N periods and is discounted at'
      'the rate of Rate per period.  Future Value is the value the'
      'investment may reach at some point.  Payment Time indicates'
      'whether the cash flow occurs at the beginning or end of the'
      'period.'
      'EXAMPLE:  What was the amount borrowed in a 7.5% APR'
      '(Annual Percentage Rate) four year auto loan when the'
      'payment is $500.00?'
      'Rate per Period = 0.075 / 12 = 0.00625'
      'Number of periods = 4 years * 12 months = 48'
      'Payment = -$500.00'
      'Future Value = 0'
      'Payment Time = End of Period'
      'ANSWER: about $20679.19'
    )
    TabOrder = 0
  end
  object FutureEdit: TEdit
    Left = 104
    Height = 21
    Top = 281
    Width = 68
    TabOrder = 1
    Text = 'FutureEdit'
  end
  object PaymentEdit: TEdit
    Left = 104
    Height = 21
    Top = 314
    Width = 68
    TabOrder = 2
    Text = 'Edit1'
  end
  object NPeriodsEdit: TEdit
    Left = 104
    Height = 21
    Top = 347
    Width = 68
    TabOrder = 3
    Text = 'Edit1'
  end
  object RateEdit: TEdit
    Left = 104
    Height = 21
    Top = 384
    Width = 68
    TabOrder = 4
    Text = 'Edit1'
  end
  object PresentEdit: TEdit
    Left = 104
    Height = 21
    Top = 424
    Width = 68
    TabOrder = 5
    Text = 'Edit1'
  end
  object PayTimeGrp: TRadioGroup
    Left = 191
    Height = 62
    Top = 272
    Width = 131
    AutoFill = True
    Caption = 'Payment Time:'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.TopBottomSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 44
    ClientWidth = 127
    Items.Strings = (
      'Start of Period'
      'End of Period'
    )
    TabOrder = 6
  end
  object ResetBtn: TButton
    Left = 208
    Height = 34
    Top = 344
    Width = 85
    Caption = 'Reset'
    OnClick = ResetBtnClick
    TabOrder = 7
  end
  object ComputeBtn: TButton
    Left = 208
    Height = 34
    Top = 392
    Width = 85
    Caption = 'Compute'
    OnClick = ComputeBtnClick
    TabOrder = 8
  end
  object ReturnBtn: TButton
    Left = 208
    Height = 34
    Top = 440
    Width = 85
    Caption = 'Return'
    ModalResult = 1
    TabOrder = 9
  end
end