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

Jaranguda

Belajar Mengajar

  • Home
  • Sponsor/Jasa
  • Tentang

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

Tanya Jawab tentang DevOps SRE CPE, gabung di https://t.me/devopsindonesia

Terbaru

  • Cara Mengganti Port Screen Sharing macOS
  • Cara Menonaktifkan Pager di macOS
  • Cara Mengupdate Nama Apple silicon-as-a-Service Scaleway
  • Cara Force Delete Namespace di Kubernetes
  • Install PHP MariaDB di Mac Monterey

Komentar

  • adi on Menggunakan Mikrotik Sebagai SSH Client
  • aris u on Solusi Simple Queue Mikrotik Tidak Berjalan
  • Bowo on Cara Mematikan SSID Molecool Balifiber
  • aris on Solusi Simple Queue Mikrotik Tidak Berjalan
  • Alief on Password Router Huawei HG8245H5 Indihome

Tulisan Populer

  • Password Router Huawei HG8245H5 Indihome 1.1m views
  • Password Terbaru ZTE F609 Indihome 784.5k views
  • Password Superadmin Huawei HG8245A 318k views
  • Cara Setting Manual Modem GPON ZTE F609 Indihome 273k views
  • Cara Setting Wireless ZTE F609 Indihome 257.1k views
  • Mengaktifkan Port LAN di Huawei HG8245 Indihome 169.8k views
  • Akses UseeTV Indihome via Wireless ZTE F609 156.8k views
  • Kemana Menghilangnya Saldo BCA 50 ribu 153k views
  • Cara Reset Password ZTE F609 Indihome 147.5k views
  • Cara Setting DHCP Server Modem/Router ZTE F609 113.5k views

Kategori

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

Sponsor

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