Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Term - Delphi 7
#1
Halo sobat, setelah sekian lama saya tidak pernah kirim artikel ke forum ini, kali ini saya akan memberikan contoh sederhana untuk menghitung tanggal "Jatuh Tempo"
Coding nya simpel sekali, namun nanti akan sangat berguna jika teman-teman mendapat tugas untuk menghitung tanggal jatuh tempo.
Bahasa: Delphi 7

Code:
unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   DateTimePicker1: TDateTimePicker;
   DateTimePicker2: TDateTimePicker;
   Edit1: TEdit;
   Label1: TLabel;
   Label2: TLabel;
   Label3: TLabel;
   procedure Edit1Change(Sender: TObject);
   procedure FormShow(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin

DateTimePicker2.Date := IncMonth(DateTimePicker1.Date,
StrToInt(Edit1.Text));
end;

procedure TForm1.FormShow(Sender: TObject);
begin
// NOW adalah menentukan tanggal sekarang
DateTimePicker1.DateTime:=now; 
DateTimePicker2.DateTime:=now;
end;

end.

Tentunya coding  teersebut diatas sangat mudah untuk dimengerti, 
 IncMonth = Fungsi tanggal.
now = Untuk menampilkan Tanggal saat ini.

Selengkapnya ada disini ya... agak englis englis dikit http://www.delphibasics.co.uk/ByUnit.asp?Unit=DateUtils
now = Untuk menampilkan Tanggal saat ini.

INGAT !!! Tekan F9 untuk RUN programnya bro..

[Image: jadi1.png]

Tanggal Beli  : 11/6/2016
Term              : 1 bulan
Jth. Tempo     : 11/7/2016
jika ingin membuat jatuh tempo harian bisa ubah IncMonth menjadi IncDay. 

Selamat mencoba  Smile Smile Smile

#bukitsoft
Big Grin
Reply
#2
sintaknya banyak tapi cuma tiga box ya
gimana kalo isi database, bisa pusing
Reply
#3
Coba dibaca dl kodingnya bro, hanya menggunakan incmonth aja kok. Yg diatas kan fungi dan variabel aja. Kalo untuk ke database juga tidak sulit

Sent from my MI 4LTE using Tapatalk
Big Grin
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)

About Us
    Write About your Forum and stuff where this theme is Placed Just I am trying to extend the paragraphs to make some nice looking lines. But you can write about your forum lol. Like what your forum have special and all. or just leave what i have written if you don't like to write much..