RFC 1123 Aika formaatti

Funktio function RFC1123TimeFormat(aDateTime:TDateTime; isLocalTime:boolean):string; luo ja näyttää ajan kansainvälisessä RFC 1123 formaatissa:

 DAY, DD MON YYYY hh:mm:ss GMT

esim.:

 Sun, 21 Oct 2018 12:16:24 GMT

Päivä on muotoa DAY, kolmikirjaiminen englanninkielinen lyhenne jota seuraa pilkku. Päivämäärä on muotoaa DD-MON-YYYY (päivä, kuukausi ja vuosi), jossa kuukausi kolmikirjaiminen englanninkielinen lyhenne.

Päivämäärä ja kellonaika näkyvät samalla rivillä, päivämäärää, jota seuraa aika. Päivämäärän ja tunnin välillä on välilyönti ja aika on muodossa hh:mm:ss (tunnit, minuutit ja sekunnit)

Aika on Coordinated Universal Time (UTC), vaikka merkintä voi olla valinnaisesti Greenwichin aika (GMT)

Ohjelma RFC1123_TimeFormat

program RFC1123_TimeFormat;

uses
  SysUtils, DateUtils;

function RFC1123TimeFormat(aDateTime:TDateTime; isLocalTime:boolean):string;
const
  ShortDayNamesEnglish :array[1..7] of string =
    ('Sun', 'Mon','Tue', 'Wed', 'Thu', 'Fri', 'Sat');
  ShortMonthNamesEnglish :array[1..12] of string = ('Jan', 'Feb','Mar', 'Apr',
     'May','Jun','Jul','Aug', 'Sep','Oct','Nov','Dec');
var
   day,month : string;
   someDateTime:TDateTime;
begin
  if isLocalTime then someDateTime := LocalTimeToUniversal(aDateTime)
    else  someDateTime := aDateTime;
  day := ShortDayNamesEnglish[DayOfWeek(someDateTime)];
  month := ShortMonthNamesEnglish[MonthOf(someDateTime)] ;
  result := day+', '+FormatDateTime('dd', someDateTime)+' '+
    month+' '+FormatDateTime('yyyy hh:nn:ss', someDateTime)+' GMT';
end;

var
  someDate: TDateTime;
begin
  someDate := EncodeDate(2018, 10, 23);
  WriteLn(RFC1123TimeFormat(now,true));
  WriteLn(RFC1123TimeFormat(someDate,false));
  ReadLn;
end.

Käännösyksikön eli unitin DateUtils funktio LocalTimeToUniversal muuttaa paikallisen ajan UTC aikaan

  function LocalTimeToUniversal( LT: TDateTime ):TDateTime;

Unit SysUtils funktio FormatDateTime tarjoaa monipuolisen TDateTime-arvon muotoilun merkkijonoksi. Muotoilu on määritellään Formatting merkkijonolla.

  function FormatDateTime ( const Formatting : string; DateTime : TDateTime ) : string;

Unit SysUtils function EncodeDate rakentaa vuodesta, kuukaudesta ja päivästä TDateTime varvon.

  function EncodeDate(Year, Month, Day :word): TDateTime;

Katso myös

• TDateTime
• Standardi päivän ja ajan muotoilu ISO 8601

From the Free Pascal wiki, page "RFC 1123 Time Format/fi", as it stood on 2022-08-06 after a change by Kai Burghardt, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.