Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoSystem.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.205 by h677, Fri Dec 9 17:06:30 2005 UTC revision 1.206 by h677, Sat Dec 10 06:13:31 2005 UTC
# Line 176  type Line 176  type
176    
177                  function GetFileSize(FileName : string) : longint;                  function GetFileSize(FileName : string) : longint;
178                  function GetFileLineCount(FileName : string): longint;                  function GetFileLineCount(FileName : string): longint;
                 function Get2chDate(aDate: TDateTime): string;  
179                  function IntToDateTime(val: Int64): TDateTime;                  function IntToDateTime(val: Int64): TDateTime;
180                  function DateTimeToInt(ADate: TDateTime): Int64;                  function DateTimeToInt(ADate: TDateTime): Int64;
181    
# Line 526  begin Line 525  begin
525  end;  end;
526    
527  {!  {!
 \brief 2ちゃんねる方式時刻取得  
 \param  変換する時刻  
 \return 2ちゃんねる方式で時刻を表した文字列  
 }  
 function TGikoSys.Get2chDate(aDate: TDateTime): string;  
 var  
         d2: TDateTime;  
 begin  
         d2 := aDate - EncodeTime(9, 0, 0, 0);  
         Result := FloatToStr(Trunc((d2 - ZERO_DATE) * 86400));  
 end;  
   
 {!  
528  \brief 経過秒を TDateTime に変換  \brief 経過秒を TDateTime に変換
529  \param val 1970/1/1/ 00:00:00 からの経過秒  \param val 1970/1/1/ 00:00:00 からの経過秒
530  \return val を示す TDateTime  \return val を示す TDateTime

Legend:
Removed from v.1.205  
changed lines
  Added in v.1.206

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26