Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi TDateTime in Integer wandeln (https://www.delphipraxis.net/25424-tdatetime-integer-wandeln.html)

Eggimaa 6. Jul 2004 11:13


TDateTime in Integer wandeln
 
Gibts da was fertiges in Delphi?

Gruss
Eggi

sakura 6. Jul 2004 11:17

Re: TDateTime in Integer wandeln
 
Einfach nur als Integer oder in ein bestimmtes Format?

...:cat:...

Smokey 6. Jul 2004 11:21

Re: TDateTime in Integer wandeln
 
TDateTime ist ja nix anderes als ne Zahl (allerdings Double) wie einem die Hilfe ja verrät.
Dementsprechend ist die Umwandlung als solche ziemlich einfach.

Aber ich rate mal ins blaue und schätze du willst aus 22.03.1994 nen 22031994 machen oder so.
Leider wird das in deinem Post nicht erkenntlich. Also sag ich mal :

Mach zB. i:= round(deinTdateTime); (dabei kommt aber nicht 22031994 raus!!! :wink: )

Mussfragen 6. Jul 2004 11:29

Re: TDateTime in Integer wandeln
 
Hallo,
vor dem Dezimalpunkt: Tage,
danach Uhrzeit
trunc() schneidet den int-Wert aus einer real-zahl


Delphi-Quellcode:
procedure TUExcelForm.Button2Click(Sender: TObject);
var dT : TDateTime;
    li : LongInt;
begin
  dT := now;  (*  Anzahl der Tage seit dem 30.12.1899 *)
  li := trunc(dT);
  Edit1.Text := IntTostr(trunc(dT));
end;
Gruss
H.L.


[edit=sakura] [delphi]Tags gesetzt. Mfg, sakura[/edit]

Eggimaa 6. Jul 2004 12:35

Re: TDateTime in Integer wandeln
 
Ich brauch das Ding wirklich als Integer..
aber die Idee mit dem Round hat geklappt..
wie ich bemerkt habe ist das Problem eigentlich mehr,
den Int64 einem Int zuzuweisen.. naja, wenn man HW programmiert ist
das simpel

Aber danke für den Tip

Gruss
Eggi


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:23 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz