Cek Umurmu dengan ini

Yang ini merupakan percobaan ko gan,masukin tanggal terus ketauan umur dari juragan itu berapa,hahahhaha.
yah ini bisa jadi tutor atau apa lah terserah yang pasti ane sengaja iseng2 lagi bikin ginian terus di postingkan sajalah.
penampakannya kaya gini gan:


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<>'' then
  begin
    DecodeDate(Now, tahunskrng, bulanskrng, hariini);
    DecodeDate(StrToDateTime(Edit1.Text), tahun, bulan, hari);
    if bulanskrng>bulan then
      umur:=tahunskrng-tahun;
    if bulanskrng=hari then
        umur:=tahunskrng-tahun;
      if hariini<=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

Posted in: Delphi