Data w formacie RSS feed np: hu, 27 Jan 2011 4:56:49

[Darek_C++]

Witam ponownie,

jak uzyskać datę w takim formacie jak stosuje się w kanale Feed RSS np:
<pubDate>Tue, 25 Jan 2011 3:45:17 +0100</pubDate>
<pubDate>Fri, 21 Jan 2011 12:00:00 +0100</pubDate>
----------
Skleciłem na podstawie http://www.yevol.com/bcb/Lesson33.htm

Pozdrawiam

[Cyfrowy Baron]

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

TDateTime CzasData = Now(); /* Now() = dziś */
Label1->Caption = CzasData.FormatString("ddd, dd mmm yyyy h:nn:ss '+0100'")

[Darek_C++]

CB Twój sposób jest prost, ale nie zwraca daty w takim formacie jak potrzeba:

Sun, 30 Jan 2011 14:47:41 +0100 < Feed
N, 30 sty 2011 14:47:41 +0100 < Data CB

http://feed2.w3.org/docs/rss2.html
http://en.wikipedia.org/wiki/RSS
---------------
Przy okazji zapytam jak odjać od aktualnego czasu ileś sekund ?

TDateTime RightNow = Time(); // i 60 sekund ?
Memo1->Lines->Add( RightNow);

[Cyfrowy Baron]

Chodzi Tobie o to, że zwracane są nazwy polskie a nie angielskie? Niestety to jest zależne od wersji językowej systemu Windows, a informacje o nazwie dni i miesięcy pobierane są z systemu. By to obejść musisz stworzyć własną tablicę nazw w wybranym języku:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

 char days[7][4] = {"Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"};
 char months[12][4] = {"Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"};

 TDateTime dtDate = Now();

 String DataCzas = (String)days[dtDate.DayOfWeek() - 1] + ", " +
                   (String)DayOfTheMonth(dtDate) + " " +
                   (String)months[MonthOfTheYear(dtDate) - 1] +
                   dtDate.FormatString(" yyyy hh:nn:ss '+0100'");

Edit1->Text = DataCzas;

Przy okazji zapytam jak odjać od aktualnego czasu ileś sekund ?

By zwiększyć lub zmniejszyć datę i czas trzeba uwzględnić właśnie tą datę początkową 12/30/1899 00:00:00:00:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

  TDateTime dtDate = Now();
 TDateTime dtTemp = Inc dtDate - TDateTime(1899, 12, 30, 0, 0, 60, 0);

 Edit1->Text = dtTemp.FormatString("dd-mm-yyyy hh:nn:ss");

Można też używać funkcji IncDay, IncMonth, IncYear, IncHour, IncMinute, IncSecond, IncMillisecond:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

 TDateTime dtDate = Now();
 TDateTime dtTemp = IncSecond(dtDate, -60);

 Edit1->Text = dtTemp.FormatString("dd-mm-yyyy hh:nn:ss");