Witam,
Jeden program zapisuje mi daty w takiej postaci np.
data 01-01-2004, to 37987
data 02-01-2004, to 37988
data 30-01-2004, to 38016
W jaki sposób magę np. liczbę 37987 przekonwertować na datę 01-01-2004 (w takim formacie)? Czy istnieje jakaś funkcja, która to umożliwia?
Z góry wielkie dzięki wszystkim za pomoc,
Janek
function DateToStr(Date: TDateTime): string; overload;
function DateToStr(const DateTime: TDateTime; const FormatSettings: TFormatSettings): string; overload;
type TDateTime = type Double;
Możesz też użyć DecodeDate
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
Nie będziesz miał takiego formatu jak chcesz, ale dostaniesz trzy wartości typu Word, które dają Ci numery roku, miesiąca i dnia.
W drugą stronę masz EncodeDate
function EncodeDate(Year, Month, Day: Word): TDateTime;
Ja zawsze tego używam, bo potrzebne mi jest np. do statystyk dziennych, a zamienić na dowolny format string-a to już pestka.