Delphi for delphier

DateTime – Mendapatkan tanggal terakhir

Tingkatan Menengah
   
Kategori DateTime
   
Sub Kategori Umum
   
Judul Mendapatkan tanggal terakhir dari suatu bulan
   
Oleh
eko-indriyawan-png.png   Nama Eko Indriyawan
Domisili Surabaya – Darmo Satelit
Delphi Delphi 2007 for Win32
YM eko_elits
Email eko_elits@yahoo.com
Telp 031 – 605 384 36
   
Referensi

lupa dulu dapat dari mana, kalau ada yang tahu dan mirip artikel ini mohon dikonfirmasikan ( untuk menghindari tuduhan pembajakan ).

   
Tujuan
Mengajarkan kepada Delphier tentang cara mendapatkan tanggal terakhir dari suatu bulan tertentu.
  spasi
Overview
Pembahasan pada artikel kali ini akan mempelajari DateTime dalam hal bagaimana mendapatkan tanggal terakhir dari suatu bulan tertentu.
Dari tutorial kali ini, anda bisa juga juga mengembangkannya untuk mendapatkan nama hari pada tanggal terakhir itu.
  spasi
Petunjuk :
Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.
  spasi
Langkah 1
   
Langkah 2
Tambahkan beberapa object kedalam Form
   
  TanggalAcuan: TDateTimePicker;
Label1: TLabel;
TanggalAkhir: TDateTimePicker;
Label2: TLabel;
Button1: TButton;
Bevel1: TBevel;
Button2: TButton;
  spasi
Langkah 3
Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini
   
 
menengahdatetime000001.png
   
Langkah 4
Buat fungsi TanggalTerakhir. Untuk lebih detailnya, silahkan lihat potongan kode program berikut.
   
 
function TanggalTerakhir(Tanggal : TDateTimeTDate;
begin
result := EncodeDate (
YearOf(Tanggal), // menentukan Tahun
MonthOf(Tanggal), // menentukan Bulan
DaysInMonth(Tanggal) // menentukan Jumlah tanggal
);
end;
   
Langkah 5
Lanjutkan dengan menekan 2x tombol Proses dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button1Click(Sender: TObject);
begin
TanggalAkhir.Date := TanggalTerakhir(TanggalAcuan.Date);
end;
   
Langkah 6
Silahkan anda compile dengan menekan tombol Ctrl + F9.
   
Langkah 7
Setelah itu anda lanjutkan dengan menekan tombol F9 hingga program siap untuk dijalankan. Untuk lebih detailnya, silahkan anda lihat gambar dibawah ini.
   
 

menengahdatetime000002.png

   
Langkah 8
Selanjutkan anda tekan tombol Proses.
   
Langkah 9
Apabila program aplikasi yang anda buat berhasil, maka akan ditampilkan hasil seperti terlihat pada gambar dibawah ini.
   
 

menengahdatetime000003.png

   
Langkah 10
Program sudah selesai anda buat. Sekarang silahkan anda tekan tombol Keluar.
  spasi
  spasi
Download
Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap.
Ada beberapa masukan dan keluhan dari teman – teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.
Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah – langkah yang sudah diberikan.
Atas perhatiannya, saya mengucapkan banyak terimakasih.
  spasi
Link terkait  
   
Buku panduan
Dasar First Step To Be A Programmer
Menengah Pemrograman Database dengan Delphi dan MS SQL Server
Menengah Membangun database MLM
Iklan

Blog di WordPress.com.

%d blogger menyukai ini: