fungsi terbilang

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Memo1: TMemo;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

Function Terbilang(Uang:Int64):String;
Begin
If (Uang = 1) Then Terbilang:='Satu '
Else If (Uang = 2) Then Terbilang:='Dua '
Else If (Uang = 3) Then Terbilang:='Tiga '
Else If (Uang = 4) Then Terbilang:='Empat '
Else If (Uang = 5) Then Terbilang:='Lima '
Else If (Uang = 6) Then Terbilang:='Enam '
Else If (Uang = 7) Then Terbilang:='Tujuh '
Else If (Uang = 8) Then Terbilang:='Delapan '
Else If (Uang = 9) Then Terbilang:='Sembilan '
Else If (Uang = 0) Then Terbilang := ' '
Else If (Uang = 10) Then Terbilang := 'Sepuluh '
Else If (Uang = 11) Then Terbilang := 'Sebelas '
Else If (Uang >= 12) And (Uang <= 19) Then Terbilang:=Terbilang(Uang Mod 10) + 'Belas ' Else If (Uang >=20) And (Uang <=99) Then Terbilang := Terbilang(Round(Uang / 10)) + 'Puluh ' + Terbilang(Uang Mod 10) Else If (Uang >=100) And (Uang <=199) Then Terbilang := 'Seratus ' + Terbilang(Uang - 100) Else If (Uang >= 200) And (Uang <=999) Then Terbilang := Terbilang(Round(Uang / 100)) + 'Ratus ' + Terbilang(Uang Mod 100) Else If (Uang >=1000) And (Uang <=1999) Then Terbilang := 'Seribu ' + Terbilang(Uang - 1000) Else If (Uang >=2000) And (Uang <=999999) Then Terbilang := Terbilang(Round(Uang / 1000)) + 'Ribu ' + Terbilang(Uang Mod 1000) Else If (Uang >=1000000) And (Uang <=999999999) Then Terbilang := Terbilang(Round(Uang / 1000000)) + 'Juta ' + Terbilang(Uang Mod 1000000) Else If (Uang >=1000000000) And (Uang <=999999999999) Then Terbilang :=Terbilang(Round(Uang / 1000000000)) + 'Milyar ' + Terbilang(Uang Mod 1000000000) Else If (Uang >=1000000000000) Then Terbilang :=Terbilang(Round(Uang / 1000000000000)) + 'Triliun ' + Terbilang(Uang Mod 1000000000000);
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text := Terbilang(StrToInt64(Edit1.Text));
end;

end.