delphi 시간 함수

1. 서로 다른 컴퓨터의 시간 형식이 다를 수 있어 시간 형식 데이터를 변환할 때 의외로 오류가 발생할 수 있다.
2. 소프트웨어 운행 과정의 시간 형식을 통계하기 위해 몇 개의 작은 함수를 써야 한다.
1. 데이터베이스 날짜 시간 형식 함수
function format_sql_datetime(temp_datetime: string; date_interval: string = '/'; time_interval: string = ':'): string;
var
  yyyy: string;
  mm: string;
  dd: string;
  hh: string;
  minute: string;
  ss: string;
  temp_result: string;
begin
  yyyy := Copy(temp_datetime, 1, 4);
  mm := Copy(temp_datetime, 6, 2);
  dd := Copy(temp_datetime, 9, 2);
  hh := Copy(temp_datetime, 12, 2);
  minute := Copy(temp_datetime, 15, 2);
  ss := Copy(temp_datetime, 18, 2);
  temp_result := yyyy + date_interval + mm + date_interval + dd + ' ' + hh + time_interval + minute + time_interval + ss;
  result := temp_result;
end;

2. 소프트웨어 내 사용 시간 부분 형식
function format_sys_time(temp_time: string): string;
var
  SysFrset: TFormatSettings;
  temp_result:string;
  hh: string;
  minute: string;
  ss: string;
  sys_time_interval:string;
begin
  GetLocaleFormatSettings(GetUserDefaultLCID, SysFrset);
  sys_time_interval:=SysFrset.TimeSeparator;
  hh := Copy(temp_time, 1, 2);
  minute := Copy(temp_time, 4, 2);
  ss := Copy(temp_time, 7, 2);
  temp_result:= hh+sys_time_interval+minute+sys_time_interval+ss;
  result:=temp_result;
end;

3. 소프트웨어 내 사용 날짜 부분 형식
약간, 시간 부분의 형식을 참고하여 수정합시다. SysFrset을 사용하세요.DateSeparator 가져오기 간격 기호
3. 소프트웨어 운행 과정에서 각 고객의 사용단은 수령 시간의 방식이 다르기 때문에 조회 결과가 달라질 수 있다. 가능한 한 통계 수령 함수 수령 시간을 사용하고 가능한 한 INTERNET 시간이나 서버 시간을 사용한다. 수령 횟수를 줄이려면 소프트웨어를 시작할 때 한 번 취득한 다음에 소프트웨어 내 시계 함수로 취득할 수 있다.

좋은 웹페이지 즐겨찾기