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

Jaranguda

  • 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

  • Jun on Kemana Menghilangnya Saldo BCA 50 ribu
  • bayu apriliansyah on Password Superadmin Huawei HG8245A
  • mrw on Kemana Menghilangnya Saldo BCA 50 ribu
  • Hani on Kemana Menghilangnya Saldo BCA 50 ribu
  • Hani on Kemana Menghilangnya Saldo BCA 50 ribu

Terbaru

  • Cara Nonaktif HTTP Session dan CSRF di Laravel 8
  • Cara Resmi Download ISO RHEL 8 dari CLI
  • Install VirtualBox 6.1.18 untuk Linux Kernel 5.10
  • Cara Testing IPv6
  • Cara Menggunakan Guzzle PHP untuk POST dan GET

Tulisan Populer

  • Password Terbaru ZTE F609 Indihome 761.6k views
  • Password Router Huawei HG8245H5 Indihome 548.2k views
  • Cara Setting Manual Modem GPON ZTE F609 Indihome 235.8k views
  • Cara Setting Wireless ZTE F609 Indihome 223.2k views
  • Password Superadmin Huawei HG8245A 216.7k views
  • Akses UseeTV Indihome via Wireless ZTE F609 143.7k views
  • Mengaktifkan Port LAN di Huawei HG8245 Indihome 143k views
  • Cara Reset Password ZTE F609 Indihome 137.2k views
  • Mengubah Modem Wireless Router Menjadi Access Point 97.1k views
  • Cara Setting DHCP Server Modem/Router ZTE F609 93k views

Kategori

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

Sponsor

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