Število dni med dvema datumoma

Najprej ustvarimo nov projekt.

V okolju Lazarus izberemo File -> New ...

Označimo Application in potrdimo z OK.

Priporočamo

Lazarus razvojno okolje

Lazurs je razvojno okolje za hitro razvijanje aplikacij v programskem jeziku pascal, zelo podobno okolju Delphi, v katerem lahko razvijamo aplikacije za Windows, Linux ali MacOS operacijski sistem.

Na obrazec postavimo komponente, kot je prikazano na sliki.

Uporabimo komponente TLabel, TEdit in TButton, vse pa najdete zgoraj v oknu s komponentami na zavihku Standard.

Komponentam nastavimo vrednost Caption in Text.

Priporočamo

Osnova sintaksa v programskem jeziku Pascal

V tokratni lekciji si bomo pogledali osnovno sintakso uporabe programskega jezika Pascal, ki ga uporabljamo v razvojnem okolju Delphi ali Lazarus.

Zaradi estetskega vidika bomo najprej nastavili, da bo ob zagonu programa labela, ki prikazuje število dni, vsebovala prazno vrednost.

Kliknemo na prazen prostor na obrazcu, da izberemo Form1.

Na levi strani izberemo zavihek Events ter dvokliknemo OnCreate.

Odpre se nam nova funkcija, ki se vedno izvede ob zagonu programa.

V njej nastavimo labelo na prazno vrednost z naslednjo kodo:

Label4.Caption:=''; 

Sedaj se vrnemo na obrazec in dvokliknemo gumb.

Odpre se nam funkcija, ki se bo izvedla ob kliku na gumb.

V funkciji najprej definiramo spremenljivke, ki jih bomo potrebovali v naši kodi:

var odDatuma, doDatuma: TDateTime;
    dni: integer;

V kodi bomo nato najprej iz obrazca prebrali datuma, ki sta v tekstovni obliki ter ju pretvorili v format TDate.

try
  odDatuma:=StrToDate(edit1.Text);
  doDatuma:=StrToDate(edit2.Text);
except
  ShowMessage('Datum ni v pravem formatu.');
end;   

Branje datuma smo dali znotraj kode try .. except ..end.
V primeru napake pri branju datuma bomo tako lahko izpisali sporočilo, da datum ni pravilen.

Na koncu samo še izračunamo število dni med datuma ter izpišemo dobljeno vrednost v Label4.

dni:=DaysBetween(doDatuma, odDatuma);
Label4.Caption:=IntToStr(dni); 

Program sedaj zaženemo.

V polja vnesemo poljubna datuma ter pritisnemo gumb Izračun in spodaj se bo prikazalo število dni, ki je med omenjenima datumoma.


Za dodatna vprašanja v zvezi z lekcijo ali okoljem Lazarus pa seveda lahko povprašate na forumu.

Priporočamo

Pregledovalnik slik

V razvojnem okolju Lazarus bomo sprogramirali enostaven pregledovalnik slik, ki bo znal slike tudi raztegovati ter pri tem ohraniti pravilno razmerje slike.

Priporočamo

Enostaven urejevalnik besedil

V razvojnem okolju Lazarus bomo sprogramirali enostaven urejevalnik besedil, ki omogoča odpiranje in shranjevanje teksta v datoteko.