复制内容到剪贴板
代码:
//时间转换为GMT格式
function DateTimeToGMT(Const DateTime: TDateTime): String;
begin
Result := FormatDateTime('ddd, dd mmm yyyy hh:mm:ss',DateTime);
Result := StringReplace(Result, '一月', 'Jan', [rfReplaceAll]);
Result := StringReplace(Result, '二月', 'Feb', [rfReplaceAll]);
Result := StringReplace(Result, '三月', 'Mar', [rfReplaceAll]);
Result := StringReplace(Result, '四月', 'Apr', [rfReplaceAll]);
Result := StringReplace(Result, '五月', 'May', [rfReplaceAll]);
Result := StringReplace(Result, '六月', 'Jun', [rfReplaceAll]);
Result := StringReplace(Result, '七月', 'Jul', [rfReplaceAll]);
Result := StringReplace(Result, '八月', 'Aug', [rfReplaceAll]);
Result := StringReplace(Result, '九月', 'Sep', [rfReplaceAll]);
Result := StringReplace(Result, '十月', 'Oct', [rfReplaceAll]);
Result := StringReplace(Result, '十一月', 'Nov', [rfReplaceAll]);
Result := StringReplace(Result, '十二月', 'Dec', [rfReplaceAll]);
Result := StringReplace(Result, '星期日', 'Sun', [rfReplaceAll]);
Result := StringReplace(Result, '星期一', 'Mon', [rfReplaceAll]);
Result := StringReplace(Result, '星期二', 'Tue', [rfReplaceAll]);
Result := StringReplace(Result, '星期三', 'Wed', [rfReplaceAll]);
Result := StringReplace(Result, '星期四', 'Thu', [rfReplaceAll]);
Result := StringReplace(Result, '星期五', 'Fri', [rfReplaceAll]);
Result := StringReplace(Result, '星期六', 'Sat', [rfReplaceAll]);
Result := Result + ' GMT';
end;
