Kliknite tukaj, da si ogledate profil, kot ga vidijo drugi

Število dni med dvema datumoma

Delite vsebino na Facebooku
Delite vsebino na Twitterju
  V razvojnem okolju Lazarus bomo izdelali program, ki bo prikazal število dni med dvema datumoma.
 
 
1
 
 
 
 
2
 
 

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.



 
 
3
 
 

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.

 
 
4
 
 

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

V njej nastavimo labelo na prazno vrednost z naslednjo kodo:

Label4.Caption:=''; 

 
 
 
 
 
5
 
 

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;


 
 
6
 
 

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.


 
 
7
 
 

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); 

 
 
8
 
 

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.


 
 
Komentiraj
 
 
Prijava in registracija
 
 
 
Zmaga.com ponuja brezplačno in razumljivo učenje računalniških programov, vas na enkraten način spozna z različnimi svetovnimi jeziki, s podrobno obrazloženimi recepti prikaže čare kulinarike in vam prežene strahove pred domačimi opravili.
 
 
Poleg tega lahko prebirate poučne članke, ki so namenjene širjenju naše splošne razgledanosti ter preverite svoje znanje z priljubljenim in enostavnim sistemom za preverjanje znanja. Če med vsebinami, ki se dodajajo vsak dan, ne najdete želenega znanja, je za vaša vprašanja na voljo dobro obiskan forum, kjer lahko tudi aktivno sodelujete. V primeru, da bi radi svoje praktično znanje delili z ostalimi, pa to lahko storite preko preprostega vmesnika za dodajanje vsebin. Zmagajte z znanjem z Zmaga.com!