Hvodan lave en dato om til tal

Date d = new Date(System.currentTimeMillis());
        System.out.println(d.toString());

        long l = d.getTime();
        System.out.println(l);



giver:
Mon Feb 03 18:19:02 CET 2003
1044292742015

Så gemme du tallet i databasen (long)
og når du igen skal lave din dato, så skriver du:

Date d = new Date(1044292742015l); <----- HUSK det lille (l)
System.out.println(d.toString());

Selve sammenligningen kan laves således:


Date d = new Date(1044292742015l);  // Mon Feb 03 18:19:02 CET 2003
Date d2 = new Date(1044293288421l); //Mon Feb 03 18:28:08 CET 2003

int res = d.compareTo(d2);
System.out.println(res);

res bliver 0, hvis de 2 datoer er ens.
og -1 hvis  hvis d2 ligger før d
og 1 hvis d2 ligger efter d

TDateTime kan castes til en Float

var
  f : Real;
begin
  f := DateTimePicker1.DateTime;
  DateTimePicker1.DateTime := f;
end;

ups. Dette er vist delphi, og ikke java :-((
sorry...

Der er ingen problemer med Delphi/Access
Du skal bare bruge params

procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOQuery1 do begin

  with SQL do begin
    Clear;
    Add('SELECT * from tabel1');
    add('where Dato = :paramdato');

    ADOQuery1.Parameters.ParamByName('paramdato').Value :=  strtodate(edit1.text);


  end;
  Open;
  ;
  end;
  end;

Stoney

Tag et kig på DecodeDate i hjælpen

Returns Year, Month, and Day values for a TDateTime value.

Unit

SysUtils

Category

datetime routines

Delphi syntax:

procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);


Description

The DecodeDate procedure breaks the value specified as the Date parameter into Year, Month, and Day values. If the given TDateTime value has a negative (BC) year, the year, month, and day return parameters are all set to zero.

var
wYear,wMonth,wDay : Word;
begin
DecodeDate(now,wYear,wMonth,wDay);
end;


Herefter har du de forskellige tal i de 3 word variabler..

Jeg takker for svaret fra jer, men det er desværre ikke lige det jeg har brug for !
Det med params i sqlsætningen virker ikke altid, og derfor ønsker jeg ikke at bruge det !
Vedr. decodedate er det det samme som at kopiere dag, månded og år ud af dato-strengen, med det giver ikke et tal som jeg rigtig kan bruge ! Jeg kunne måske
splitte datoen fx 03-04-2003 så:
Dag blev 03
Mdr blev 04
Aar blev 2003

og derefter sætte den sammen således: 20030403, så ville jeg have et tal, men
jeg ville helst undgå denne løsning, og efterlyser blot en funktion der kan lave en dato om til tal.. fx ved jeg at 01-01-1980 er det samme som 1, men jeg kan ikke rigtig finde ud af at lave et nummer ud fra en anden dato !

Mvh

PigBear

Prøv at kig engang i online hjælpen på Typen TDateTime den er lige en Real og en TDateTime kan behandles som en sådan uden problemer !!

function getMyDate(d: TdateTime): integer;
begin
    result:=trunc(d-encodeDate(1980,1,1));
end; //myDate

procedure TForm1.FormCreate(Sender: TObject);
begin
    edit1.Text:=intToStr(getMyDate(encodedate(2003,2,11)));
end;

...1/1-1980 bliver altså "0" i mit svar, læg en til hvis ønsket i funktionen.
Der tælles i dage (!), idag = 8442 siden 1/1-1980.
Og det kan bruges i sql fx
fx: sql:='select * from tabel where dage <= 8442'
vil udvælge poster op til og med i dag.
--nop

Mange tak for svar.. det var lige det jeg manglede !

->PigBear