Kezdőoldal » Számítástechnika » Programozás » Pascal: egy teljes dátumot...

Pascal: egy teljes dátumot lehet számmá konvertálni és olyan módon kezelni?

Figyelt kérdés

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.



2016. nov. 5. 09:49
 1/5 anonim ***** válasza:
2016. nov. 5. 10:43
Hasznos számodra ez a válasz?
 2/5 coopper ***** válasza:

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.

2016. nov. 5. 11:20
Hasznos számodra ez a válasz?
 3/5 coopper ***** válasza:

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.

2016. nov. 5. 11:25
Hasznos számodra ez a válasz?
 4/5 SimkoL ***** válasza:

...


uses SysUtils, DateUtils;


begin

WriteLn(DateTimeToUnix(Now));

ReadLn;

end.

2016. nov. 5. 13:03
Hasznos számodra ez a válasz?
 5/5 SimkoL ***** válasza:
Ipor Sircer: Bocs nem néztem a teljes linket, ua....
2016. nov. 5. 13:09
Hasznos számodra ez a válasz?

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

A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!