problem z time() - strefy czasowe

[shycat]

Witam, chce napisac sobie maly programik, ktory bedzie mi pokazywal jaki jest aktualnie czas w roznych miejscach na swiecie, np w Tokio, no i mam taki kod:

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  TDateTime czas=Time();

  Label2->Caption="  Tokio:  "+TimeToStr(czas);
}
//---------------------------------------------------------------------------

Ten kod oczywiscie pokazuje aktualny czas... probowalam zrobic tak: TDateTime czas=Time()+6000; lub czas=czas+6000; ale nie przynosci to zadnego rezultatu... nie rozchodzi mi sie o to, ze w Tokio czas jest +9 h, ale o to, zeby dodac jakas wartosc czasowa, np 1 godzine do czasu aktualnego. Przegladalam google, ale nic nie moglam znalezc, wiec pisze na forum. Pozdrawiam i prosze o pomoc.

[Cyfrowy Baron]

Nie można ot tak po prostu dodać wartości typu int do wartości typu TDataTime.

ProponujÄ™ takie rozwiÄ…zanie:

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
TTime czas = Time(); // może też być TDateTime

int godzina = StrToInt(czas.FormatString("hh"));
godzina = godzina + 9;

if(godzina == 24) godzina = 0;
if(godzina > 24) godzina = godzina - 25;

Label1->Caption = "Czas w Tokio: " + FormatCurr("#00", godzina) +  FormatDateTime(":nn:ss", czas);
}
//---------------------------------------------------------------------------


[Witold]

ale o to, zeby dodac jakas wartosc czasowa, np 1 godzine do czasu aktualnego.

Kod: Zaznacz cały

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  TDateTime zaGodzine = Now() + TDateTime(1 /*godz*/, 0,0,0);
  Caption = "Teraz: " + Now().TimeString() + " ,za godzinÄ™: "+ zaGodzine.TimeString();
}
//---------------------------------------------------------------------------


[Cyfrowy Baron]

Nie wiedziałem, że tak można.
Mam w związku z tym pytanie, czy można w analogiczny sposób postąpić z dodawaniem daty, np. dodać pięć miesięcy do aktualnej daty?
Próbuję, ale nie działa.

[Witold]

Mam w związku z tym pytanie, czy można w analogiczny sposób postąpić z dodawaniem daty, np. dodać pięć miesięcy do aktualnej daty?
Próbuję, ale nie działa.

Najwyraźniej nie. Wg helpa 0 dla TDateTime (dane trzymane w typie double) to 12/30/1899 12:00 am, to dla 5m-cy trzeba by dodać TDateTime(1900,6,1) ? – bezsens.

W DateUtils są lepsze funkcje do tego (nawet nie wiedziałem):

IncDay
Returns a date shifted by a specified number of days.

IncHour
Returns a date/time value shifted by a specified number of hours.

IncMilliSecond
Returns a date/time value shifted by a specified number of milliseconds.

IncMinute
Returns a date/time value shifted by a specified number of minutes.

IncSecond
Returns a date/time value shifted by a specified number of seconds.

IncWeek
Returns a date shifted by a specified number of weeks.

IncYear
Returns a date shifted by a specified number of years.

[Cyfrowy Baron]

Mi chodzi o sposób na proste inkrementowanie daty. Sposoby jakich się dotychczas imałem wymagają uwzględniania zbyt wielu zmiennych, a prawdziwą "zmorą" jest rok przestępny.

[shycat]

Dzieki wielkie za pomoc w zyciu bym na to nie wpadla... musze nauczyc sie korzystac z helpa, eh... ps. lubiecie zime? (bo nadchodzi)

[Cyfrowy Baron]

Najwyraźniej nie. Wg helpa 0 dla TDateTime (dane trzymane w typie double) to 12/30/1899 12:00 am, to dla 5m-cy trzeba by dodać TDateTime(1900,6,1) ? – bezsens.

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

Zwiększenie o jeden dzień:

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
TDateTime czas = Now() + TDateTime(1899, 12, 31, 0, 0, 0, 0);

Label1->Caption = czas;
}
//---------------------------------------------------------------------------

a żeby zwiększyć o dwa dni:

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
TDateTime czas = Now() + TDateTime(1900, 1, 1, 0, 0, 0, 0);

Label1->Caption = czas;
}
//---------------------------------------------------------------------------

Daje to już jakiś punkt zaczepienia umożliwiający inkrementację daty, trzeba tylko dorobić do tego algorytm.

[Witold]

Zwiększenie o jeden dzień:
...

Można też: IncDay(Now(),1);
lub Now() +1;

Kod: Zaznacz cały

#include <DateUtils.hpp>

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  TDateTime dt1(2008,2,25); // Rok przestÄ™pny
  TDateTime dt2(2009,2,25);

  const int ILE_DNI_DODAC = 4;
  TDateTime dt1_po = IncDay(dt1,ILE_DNI_DODAC);
  TDateTime dt1_po2 = dt1+ILE_DNI_DODAC;

  Memo1->Lines->Add("Przed dt1= " + dt1.DateString());
  Memo1->Lines->Add("Po IncDay= " + dt1_po.DateString());
  Memo1->Lines->Add("Po +int=   " + dt1_po2.DateString());

  TDateTime dt2_po = IncDay(dt2,ILE_DNI_DODAC);
  TDateTime dt2_po2 = dt2+ILE_DNI_DODAC;

  Memo1->Lines->Add("-------------");
  Memo1->Lines->Add("Przed dt2= " + dt2.DateString());
  Memo1->Lines->Add("Po IncDay= " + dt2_po.DateString());
  Memo1->Lines->Add("Po +int=   " + dt2_po2.DateString());

}

wynik:

Przed dt1= 2008-02-25
Po IncDay= 2008-02-29
Po +int= 2008-02-29
-------------
Przed dt2= 2009-02-25
Po IncDay= 2009-03-01
Po +int= 2009-03-01

[Cyfrowy Baron]

To jest oczywiste:

Kod: Zaznacz cały

  TDateTime dt1_po = IncDay(dt1,ILE_DNI_DODAC);

ale to daje mi do myślenia:

Kod: Zaznacz cały

  TDateTime dt1_po2 = dt1 + ILE_DNI_DODAC;

dlaczego inkrementowane sÄ… dni?

[Witold]

dlaczego inkrementowane sÄ… dni?

The TDateTime class inherits a val data member declared as a double that holds the date-time value. The integral part of a TDateTime value is the number of days that have passed since 12/30/1899. The fractional part of a TDateTime value is the time of day.

Zresztą i tak chyba lepiej jest używać IncDay, bardziej czytelnie i jak zmieni się reprezentacja wewnętrzna TDateTime, to dalej powinno działać.

[Cyfrowy Baron]

Zresztą i tak chyba lepiej jest używać IncDay, bardziej czytelnie i jak zmieni się reprezentacja wewnętrzna TDateTime, to dalej powinno działać.

Raczej tak.

Trochę cieszyłem się na myśl, ze opracuję własny algorytm inkrementujący datę, ale skoro są już gotowe funkcje to już mi się nie chce...