Výsledky 1 až 5 z 5

Téma: [Delphi 5] Odcitanie datumov

  1. #1

    Standardní [Delphi 5] Odcitanie datumov

    Mam problem s Delphi 5. Potrebujem odcitat dva datumy a zistit rozdiel v dnoch.
    Ale tym stylom, ze jeden datum zadam do Edit1.Text a druhy do Edit2.Text (string)
    potom ich prekonvertujem a zistim rozdiel v dnoch (Integer). Ako na to? Je to dost dolezite
    a pozeral som ako na to v helpe, ale na nic rozumne som neprisiel. Pomoze niekto?

    A este ma napadlo....ako dostat z datumu len mesiac, den, rok (hoci len ako cislo).

    Diky moc

  2. #2

    Standardní

    Pozri do helpu -> DateTimeToStr, StrToDateTime (a StrToDate)... Je tam toho plno...
    1: Asus P2B 1.10 • Celeron 1100@1364/1.8V • 512MB SDRAM • Samsung SP1213N+WD AC28400 • Toshiba XM-6402B+SD-M1212 • PowerColor AR2L Radeon 9100 64MB • 3C900-Combo • Bt848A • ASB-3940UA • AWE-64 • DTK PTP-3007 • VisionMaster 405 • Umax UC630 • Star LC24-200 Colour 2: PCPartner TXB820DS • Cyrix MII PR300/1.8V • 256MB SDRAM • 2xSamsung HD400LD+IT8212F • Accesstek CW4001 • LS-120 • Mystique 4MB • Millennium II 4MB • 3C509 • CMI8329A+Dream MIDI • ADI ProVista E44 • SyncMaster 203B Notebook: DTK FortisPro TOP-5A • P166MMX/1.8V • 80MB EDO • Hitachi 5K80 40GB • 12,1" TFT Router: A-Trend ATC-1425B • i486DX 50@33/5V • 48MB FPM • WD AC14300 • UMC UM9003F • HP PC LAN 16/TP+ Car: Mazda 323P BA • Z5 1489ccm, 65kW@5500rpm, 134Nm@4000rpm

  3. #3

    Standardní

    Heh, tak na tohle sou tam primo nejake funkce. Muzes mrknout na FormatDateTime, DayOfTime a vubec - unit SysUtils, podcelek "Datetime routines".
    In a world without fences and walls, who needs Gates and Windows? | Nesnáším wide monitory.
    Workstation: Xeon E3-1275v5 :: Silentmaxx TwinBlock fanless :: Fujitsu D3417-B :: 32 GB ECC DDR4 :: Radeon Pro WX 2100 fanless :: Dell UP2715K :: Gentoo
    Server: Xeon E3-1245v6 :: Supermicro X11SSH-F :: 32 GB ECC DDR4 :: Aquantia 5GBase-T :: 36 TB storage :: Gentoo Hardened

  4. #4

    Standardní

    procedure TForm1.Button1Click(Sender: TObject);
    var
    Present: TDateTime;
    DatCas : TTimeStamp;
    begin
    Present:= Now;
    DatCas := DateTimeToTimeStamp(Present);
    edit1.text := inttostr(DatCas.Date);
    edit2.text := inttostr(DatCas.Time);
    end;

  5. #5

    Standardní

    no dufam, ze sa z toho vysomarim zatial dik

Informace o tématu

Users Browsing this Thread

Toto téma si právě prohlíží 1 uživatelů. (0 registrovaných a 1 anonymních)

Pravidla přispívání

  • Nemůžete zakládat nová témata
  • Nemůžete zasílat odpovědi
  • Nemůžete přikládat přílohy
  • Nemůžete upravovat své příspěvky
  •