Delphiben hogyan lehet két számot összeadni?
A Google-n semmit se találtam, mert nem tudom, hogy hogyan keressem.
A 2016-ból kiszeretném vonni a jelenlegi évet (yyyy), amit a naptárból tud meg a program.
(Jelenleg így tudom meg az évet:
var
Form1: TForm1;
ev : TDateTime;
procedure TForm1.Button1Click(Sender: TObject);
begin
ev := Now;
ShowMessage(' Év = '+ FormatDateTime('yyyy', ev));
end; )
A te forráskodódat megtudom nyitni, de az enyémet már nem :(
Az enyémnek valamiért a grafikus rész teljesen eltünt.
Sajnos nem segített az F12 a programot se engedi futtatni.
Újraírom a grafikus részét, és remélem, hogy jó lesz.
Nem kell hozzányúlni a regisztrációs adatbázishoz, senki sem veszi jó néven.
procedure TForm1.Button1Click(Sender: TObject);
begin
DateSeparator := '-';
ShortDateFormat := 'yyyy-mm-dd';
Next2 := StrToDate('2016-06-15');
Label1.Caption := IntToStr(DaysBetween(Now, Next2)) + ' NAP';
Label2.Caption := ('VAN MÉG HÁTRA!')
end;
SimkoL: Köszönöm a segítségedet! Mostmár jól müködik a program.
Névtelen: Ezt hol láttad?
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!