Aplikasi Cek Umur dengan Delphi #85

Kambing tidak dapat melakukan backflip

Andry Fadrie K Oktober 18, 2010

1 817 Less than a minute

andrypein.net : Aplikasi cek umur gan, cuma show off kecil2an saja, hanya implementasi matematika2 an dalam algoritma delphi.

Postingan ini bisa jadi tutor atau apa lah terserah yang pasti ane sengaja iseng2 lagi bikin ginian terus di postingkan sajalah, ya maklum lah ane kan nyubi.

penampakan skripnya kaya gini ko gan dan mudah dimengerti.

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var
  tahunskrng, bulanskrng, hariini: Word;
  tahun, bulan, hari: Word;
  umur: Word;
begin
  if Edit1.Text&lt;&gt;'' then
  begin
    DecodeDate(Now, tahunskrng, bulanskrng, hariini);
    DecodeDate(StrToDateTime(Edit1.Text), tahun, bulan, hari);
    if bulanskrng&gt;bulan then
      umur:=tahunskrng-tahun;
    if bulanskrng=hari then
        umur:=tahunskrng-tahun;
      if hariini&lt;=hari then
        umur:=tahunskrng-tahun-1;
    end;
    Label1.Caption:='Umurmu adalah : '+IntToStr(umur)+' Tahun';
  end;
end;

procedure TForm1.Edit1Click(Sender: TObject); 
begin 
 application.HintColor:=clred; 
 edit1.ShowHint:=true; 
 edit1.Hint:='formatnya yaitu bulan/tanggal/tahun'; 
end;  

procedure TForm1.FormCreate(Sender: TObject); 
begin 
 label1.Caption:=''; 
end;  

end.

Selamat mencoba gan aplikasi cek umur nya, ooo jelas app dan source code bisa di unduh disini.

Download

*AFK