Re: Time

Try the following function:

function GetTimeInSec:Integer;
var h,m,s,ms:Word;
  begin
    DecodeTime(Time,h,m,s,ms);
    Result:=h*360+m*60+s;
  end;

----------------------------------------------
Angelos I. Markos
Phd Student 
Department of Applied Informatics
University of Macedonia, Thessaloniki
Greece

----- Original Message ----- 
  From: Eduardo Meyer 
  To: [email protected] 
  Sent: Monday, July 07, 2003 3:51 PM
  Subject: Re: [Delphi] Time


  Hi Mike,

      I'm sorry, I think I haven't expressed that in the right way.
  Imagine that I have a Time value as (12:54:05).
  I would like to know know many seconds does it has. 

  12:43:05 = 45785 seconds

  That's it.

  Is there a function that do it?

  Thanks a lot!


  Eduardo
    ----- Original Message ----- 
    From: Shkolnik M. 
    To: [email protected] 
    Sent: Monday, July 07, 2003 9:40 AM
    Subject: RE: [Delphi] Time


    >Is there a function which convert a time data as ( 1:00:03  ) in seconds?
    You need the FormatDateTime function:
    str := FormatDateTime('hh:nn:ss', yourTimeVar);

    With best regards, Mike Shkolnik
    EMail: [email protected]
    http://www.scalabium.com

          Yahoo! Groups Sponsor 
                ADVERTISEMENT
               
         
         

    Delphi Tips & Tutorials...
    http://www.delphicollection.com
    ---------------------------------------------------------------
    Unsubscribe:[email protected]
    List owner:[email protected]
    --------------------------------------------------------------- 

    Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service. 


  [Non-text portions of this message have been removed]


        Yahoo! Groups Sponsor 
              ADVERTISEMENT
             
       
       

  Delphi Tips & Tutorials...
  http://www.delphicollection.com
  ---------------------------------------------------------------
  Unsubscribe:[email protected]
  List owner:[email protected]
  --------------------------------------------------------------- 

  Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service. 


[Non-text portions of this message have been removed]


------------------------ Yahoo! Groups Sponsor ---------------------~-->
Save up to 80% on top-quality inkjet cartridges and get your order fast!
FREE shipping on orders $50 or more to the US & Canada. Shop at Myinks.com!
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/v2G7ND/KfUGAA/ySSFAA/i7folB/TM
---------------------------------------------------------------------~->

Delphi Tips & Tutorials...
http://www.delphicollection.com
---------------------------------------------------------------
Unsubscribe:[email protected]
List owner:[email protected]
--------------------------------------------------------------- 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/