• Skip to primary navigation
  • Skip to main content
  • Skip to primary sidebar

Jaranguda

Belajar Mengajar

  • Home
  • Sponsor/Jasa
  • Tentang
Home » Menghitung Selisih Tanggal di Lazarus

Menghitung Selisih Tanggal di Lazarus

Last Updated on 2 December 2014 By tommy Leave a Comment

Untuk mempermudah pemilihan tanggal kita akan menggunakan ZVDateTimeControls cara instalasinya bisa dilihat di wiki

Buat design aplikasi seperti gambar dibawah
design selisih tanggal

Klik dua kali pada tombol Hitung edit biar tampilannya seperti dibawah ini

procedure TForm1.Button1Click(Sender: TObject);
 
var
  sekarang : TDateTime;
  nanti : TDateTime;
  selisih : String;
 
begin
     sekarang := ZVDateTimePicker3.Date;
     nanti := ZVDateTimePicker4.Date;
     selisih := IntToStr(DaysBetween(nanti,sekarang));
     // hasilnya
     edit1.Text:= selisih;
 
end;

dibagian uses paling atas tambahkan dateutils sehingga menjadi, karena fungsi DaysBetween ada disana.

uses
  Classes, SysUtils, mysql55conn, sqldb, db, FileUtil, Forms,
  Controls, Graphics, Dialogs, DBGrids, DbCtrls, StdCtrls, ZVDateTimePicker, dateutils;

Jalankan aplikasi dengan menekan tombol F9
selisih tanggal


Tulisan menarik lainnya

  • Menggunakan database SQLite di Lazarus Linux

    Tutorial ini khusus untuk Lazarus di Linux, karena saya belum pernah nyobain di Windows atau…

  • Instalasi Lazarus IDE di Fedora 20

    Lazarus bisa dibilang merupakan versi open source dari Delphi, dan banyak aplikasi yang bisa diporting…

  • Menampilkan Tanggal di Gambas

    Tutorial kali ini sangat singkat, dan tidak ada coding-coding :P. Menampilkan tanggal (hari, bulan dan…

  • Install Lazreport di Lazarus 1.26

    Lazreport, component untuk membuat report di Lazarus, sebenarnya sudah ada di dalam installer Lazarus hanya…

Filed Under: Delphi, Lazarus Tagged With: Delphi, hitung

Reader Interactions

Leave a Reply Cancel reply

Your email address will not be published. Required fields are marked *

Primary Sidebar

Pencarian

Komentar

  • Nafies Luthfi on Balifiber Memblokir Port SSH/22
  • Eli setiawan on Cara Redirect Domain di Cloudflare
  • Sipriyadi on Password Router Huawei HG8245H5 Indihome
  • Bidadari on Kemana Menghilangnya Saldo BCA 50 ribu
  • Cecilia on Kemana Menghilangnya Saldo BCA 50 ribu

Terbaru

  • Cara Lengkap Install Docker dan Minikube di Linux
  • Cara Membuat Docker Image dengan Dockerfile
  • Cara Setting Wake On LAN di Debian Linux
  • Cara Lengkap Install VirtualBox 6 di Debian 10
  • Cara Setting Variable Environment di Linux

Tulisan Populer

  • Password Terbaru ZTE F609 Indihome 768.8k views
  • Password Router Huawei HG8245H5 Indihome 646.2k views
  • Cara Setting Manual Modem GPON ZTE F609 Indihome 246.8k views
  • Password Superadmin Huawei HG8245A 237.5k views
  • Cara Setting Wireless ZTE F609 Indihome 231.1k views
  • Mengaktifkan Port LAN di Huawei HG8245 Indihome 149.2k views
  • Akses UseeTV Indihome via Wireless ZTE F609 147.3k views
  • Cara Reset Password ZTE F609 Indihome 140.7k views
  • Mengubah Modem Wireless Router Menjadi Access Point 99.7k views
  • Cara Setting DHCP Server Modem/Router ZTE F609 97.2k views

Kategori

  • Delphi
  • dll
  • Gambas
  • Internet
  • Java
  • Lazarus
  • Linux
  • PHP
  • Review
  • Teknologi

Sponsor

kadal.id
Untuk jadi sponsor, hubungi kita lewat halaman sponsor
© 2020. Jaranguda
  • Linux
  • PHP
  • Internet
  • Teknologi
  • Delphi
  • Gambas
  • Java