Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/GikoSystem.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
| 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 |
|
|
|