Pascal: egy teljes dátumot lehet számmá konvertálni és olyan módon kezelni?
Egyszer tapasztaltam, hogy számként tudtam kiiratni az adott dátumot, feltételezem valahogy kezelhettem volna, bár nem lehetett felismerni hogy dátum.
Valami milliárdos szám volt, arra emlékszem, hogy 1 milliárd körüli számként jelent meg és ilyen formátumban volt a dátum.
Lehet hogy timestamp volt, fájl módosítási idő, most nem jövök rá.
Az érdekelne, hogy mi lehetett ez, nagyon régen volt amikor találkoztam ezzel, nem tudom visszaidézni.
Egész szám volt, ez teljesen biztos, nem olyan mintha kiíratom simán a datetime változót (konvertálás nélkül).
Mivel lehet ilyet csinálni, átnéztem a Free Pascal Wiki ide vonatkozó részét de ilyet nem találtam.
program datum;
uses sysutils;
var
dt : TDateTime;
begin
dt := now;
WriteLn(DateTimeToStr(dt));
end.
Szia.
Próbáld ki ezt :
program datum;
uses sysutils;
var dt : TDateTime;
_ _ _Szam:real;
begin
_ _ _dt := now;
_ _ _Szam:=dt;
_ _ _WriteLn(DateTimeToStr(dt));
_ _ _WriteLn(Szam:0:6);
end.
Egyébként a TDateTime változó ugyanúgy működik mint excelben, tehát az egészrésze az eltelt napokat tartja nyilván a kezdődátumtól (ez talán 1899.12.31_00:00:00),
A törtrésze pediglen az óra, perc, másodperc, ezredmásodperc értékek átalakítva napokká:
Óra átalakítása : óra/24
Perc átalakítása : perc/24/60 = perc/1440
Másodperc átalakítása:másosperc/24/60/60=másodperc/86400
Ezred másodperc: ezredmásodperc/24/60/60/1000=ezredmásodperc/86400000
Sok sikert.
üdv.
Megint bebizonyosodott, hogy szövegértésem nulla, ezért elnézést kérek.
Az egymilliós egész szám dátum érték az az "UNIX date" típusú lehetett. Annak nézz utána. Az is az eltelt időd tartja nyilván a kezdődátumtól, csak másodpercekben.
Sok sikert.
Üdv.
...
uses SysUtils, DateUtils;
begin
WriteLn(DateTimeToUnix(Now));
ReadLn;
end.
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!