[DELPHI] problemi compareTime non funziona???

[funnylux]

Ciao ragazzi, ho un problema

praticamente ad una determinata ora dovrei fare un'operazione, per questo ho usato un timer ecc...
per verificare l'ora utilizzo compareTime

  if(Radiobutton1.Checked = true) then
  begin
    timer1.Enabled := false;
    if(comparetime(time,dataSched.Time)=0) then
        begin
        vai.Caption := 'ok' ;
        end;
  end; 

però non funziona se l'ora è uguale..
funziona solo se voglio verificare se è minore o maggiore con 1 e -1

come posso fare??? VVoVe:

[123delphi321]

scusa ma cosa e' dataSched.Time?

[funnylux]

dataSched è il componente Tdatetimepicker

[123delphi321]

penso che il tuo problema e' una questione di millesimi....

ho fatto questa prova e il confronto funziona..

procedure TForm1.Button1Click(Sender: TObject);
var t:tdatetime;
begin

ShowMessage(TimeToStr(time)+'  '+TimeToStr(DateTimePicker1.Time));

DateTimePicker1.Time := time;
t:=DateTimePicker1.Time;
if CompareTime(t,DateTimePicker1.Time)=0 then
ShowMessage('uguale');

[Z0rn]

Il tipo TDateTime in delphi e' rappresentato da un semplice numero a virgola mobile, dove i giorni sono la parte intera (mi pare a partire dalla nascita di Cristo), mentre la parte decimale rappresenta la porzione di giornata, quindi un orario sara' ben difficile che sia uguale ad un altro a meno di qualche operazione aritmetica per estrarre il numero intero di minuti (o dii secondi o di millesimi).

[funnylux]

si è vero saranno millesimi..
ma come posso dividere l'ora? mmm
magari escludere i millesimi?

[123delphi321]

magari potresti usare qualche funzione appositamente studiata????

http://www.delphibasics.co.uk/RTL.asp?Name=DecodeTime

[funnylux]

sei mitico