shuffle a bit far2l sources

1 files changed, 822 insertions, 0 deletions

diff --git a/far2l/src/datetime.cpp b/far2l/src/datetime.cpp
new file mode 100644
index 00000000..885861a0
--- /dev/null
+++ b/far2l/src/datetime.cpp
@@ -0,0 +1,822 @@
+/*
+datetime.cpp
+
+Функции для работы с датой и временем
+*/
+/*
+Copyright (c) 1996 Eugene Roshal
+Copyright (c) 2000 Far Group
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions
+are met:
+1. Redistributions of source code must retain the above copyright
+   notice, this list of conditions and the following disclaimer.
+2. Redistributions in binary form must reproduce the above copyright
+   notice, this list of conditions and the following disclaimer in the
+   documentation and/or other materials provided with the distribution.
+3. The name of the authors may not be used to endorse or promote products
+   derived from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+*/
+
+#include "headers.hpp"
+
+
+#include "datetime.hpp"
+#include "lang.hpp"
+#include "language.hpp"
+#include "config.hpp"
+#include "strmix.hpp"
+
+#define range(low,item,hi) Max(low,Min(item,hi))
+
+static FARString AMonth[2][12], AWeekday[2][7],Month[2][12],Weekday[2][7];
+
+static int CurLang=-1, WeekFirst=0;
+
+DWORD ConvertYearToFull(DWORD ShortYear)
+{
+	DWORD UpperBoundary = 0;
+//	if(!GetCalendarInfo(LOCALE_USER_DEFAULT, CAL_GREGORIAN, CAL_ITWODIGITYEARMAX|CAL_RETURN_NUMBER, nullptr, 0, &UpperBoundary))
+	{
+		UpperBoundary = 2029; // Magic, current default value.
+	}
+	return (UpperBoundary/100-(ShortYear<UpperBoundary%100?0:1))*100+ShortYear;
+}
+
+int GetDateFormat()
+{
+	int Result = 1;
+//	GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_IDATE|LOCALE_RETURN_NUMBER,reinterpret_cast<LPWSTR>(&Result),sizeof(Result)/sizeof(WCHAR));
+	return Result;
+}
+
+wchar_t GetDateSeparator()
+{
+//	wchar_t Info[100];
+//	GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SDATE,Info,ARRAYSIZE(Info));
+//	return *Info;
+	return L'/';
+}
+
+wchar_t GetTimeSeparator()
+{
+//	wchar_t Info[100];
+//	GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_STIME,Info,ARRAYSIZE(Info));
+//	return *Info;
+	return L':';
+}
+
+void PrepareStrFTime()
+{
+	//DWORD Loc[]={LANG_ENGLISH,LANG_NEUTRAL},ID;
+
+//	GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_IFIRSTDAYOFWEEK|LOCALE_RETURN_NUMBER,reinterpret_cast<LPWSTR>(&WeekFirst),sizeof(WeekFirst)/sizeof(WCHAR));
+
+	for (int i=0; i<2; i++)
+	{
+		const wchar_t *months[12] = {L"January", L"February", L"March", L"April", L"May", L"June", L"July", L"August", L"September", L"October", L"November", L"December"};
+		const wchar_t *amonths[12] = {L"Jan", L"Feb", L"Mar", L"Apr", L"May", L"Jun", L"Jul", L"Aug", L"Sep", L"Oct", L"Nov", L"Dec"};
+		for (int j = 0; j<12; ++j) {
+			Month[i][j] = months[j];
+			AMonth[i][j] = amonths[j];
+		}
+
+		const wchar_t *days[7] = {L"Monday", L"Tuesday", L"Wednesday", L"Thursday", L"Friday", L"Saturday", L"Sunday"};
+		const wchar_t *adays[7] = {L"Mon", L"Tue", L"Wed", L"Thu", L"Fri", L"Sat", L"Sun"};
+		for (int j = 0; j<7; ++j) {
+			Weekday[i][j] = days[j];
+			AWeekday[i][j] = adays[j];
+		}
+/*		LCID CurLCID=MAKELCID(MAKELANGID(Loc[i],SUBLANG_DEFAULT),SORT_DEFAULT);
+
+		for (ID=LOCALE_SMONTHNAME1; ID<=LOCALE_SMONTHNAME12; ID++)
+		{
+			int size=GetLocaleInfo(CurLCID,ID,nullptr,0);
+			LPWSTR lpwszTemp=Month[i][ID-LOCALE_SMONTHNAME1].GetBuffer(size);
+			GetLocaleInfo(CurLCID,ID,lpwszTemp,size);
+			*lpwszTemp=Upper(*lpwszTemp);
+			Month[i][ID-LOCALE_SMONTHNAME1].ReleaseBuffer();
+		}
+
+		for (ID=LOCALE_SABBREVMONTHNAME1; ID<=LOCALE_SABBREVMONTHNAME12; ID++)
+		{
+			int size=GetLocaleInfo(CurLCID,ID,nullptr,0);
+			LPWSTR lpwszTemp=AMonth[i][ID-LOCALE_SABBREVMONTHNAME1].GetBuffer(size);
+			GetLocaleInfo(CurLCID,ID,lpwszTemp,size);
+			*lpwszTemp=Upper(*lpwszTemp);
+			AMonth[i][ID-LOCALE_SABBREVMONTHNAME1].ReleaseBuffer();
+		}
+
+		for (ID=LOCALE_SDAYNAME1; ID<=LOCALE_SDAYNAME7; ID++)
+		{
+			int size=GetLocaleInfo(CurLCID,ID,nullptr,0);
+			LPWSTR lpwszTemp=Weekday[i][ID-LOCALE_SDAYNAME1].GetBuffer(size);
+			GetLocaleInfo(CurLCID,ID,lpwszTemp,size);
+			*lpwszTemp=Upper(*lpwszTemp);
+			Weekday[i][ID-LOCALE_SDAYNAME1].ReleaseBuffer();
+		}
+
+		for (ID=LOCALE_SABBREVDAYNAME1; ID<=LOCALE_SABBREVDAYNAME7; ID++)
+		{
+			int size=GetLocaleInfo(CurLCID,ID,nullptr,0);
+			LPWSTR lpwszTemp=AWeekday[i][ID-LOCALE_SABBREVDAYNAME1].GetBuffer(size);
+			GetLocaleInfo(CurLCID,ID,lpwszTemp,size);
+			*lpwszTemp=Upper(*lpwszTemp);
+			AWeekday[i][ID-LOCALE_SABBREVDAYNAME1].ReleaseBuffer();
+		}*/
+	}
+
+
+	CurLang=0;
+}
+
+static void atime(FARString &strDest, const tm *tmPtr)
+{
+	// Thu Oct 07 12:37:32 1999
+	strDest.Format(L"%ls %ls %02d %02d:%02d:%02d %4d",
+	                      AWeekday[CurLang][!WeekFirst?((tmPtr->tm_wday+6)%7):(!(tmPtr->tm_wday)?6:tmPtr->tm_wday-1)].CPtr(),
+	                      AMonth[CurLang][tmPtr->tm_mon].CPtr(),
+	                      tmPtr->tm_mday,
+	                      tmPtr->tm_hour,
+	                      tmPtr->tm_min,
+	                      tmPtr->tm_sec,
+	                      tmPtr->tm_year+1900);
+}
+
+static void st_time(FARString &strDest,const tm *tmPtr,const wchar_t chr)
+{
+	int DateSeparator=GetDateSeparator();
+
+	if (chr==L'v')
+	{
+		strDest.Format(L"%2d-%3.3ls-%4d",range(1,tmPtr->tm_mday,31),AMonth[CurLang][range(0, tmPtr->tm_mon,11)].CPtr(),tmPtr->tm_year+1900);
+		strDest.Upper(3,3);
+	}
+	else switch (GetDateFormat())
+	{
+		case 0:
+			strDest.Format(L"%02d%lc%02d%lc%4d",
+			                   tmPtr->tm_mon+1,
+			                   DateSeparator,
+			                   tmPtr->tm_mday,
+			                   DateSeparator,
+			                   tmPtr->tm_year+1900);
+			break;
+		case 1:
+			strDest.Format(L"%02d%lc%02d%lc%4d",
+			                   tmPtr->tm_mday,
+			                   DateSeparator,
+			                   tmPtr->tm_mon+1,
+			                   DateSeparator,
+			                   tmPtr->tm_year+1900);
+			break;
+		default:
+			strDest.Format(L"%4d%lc%02d%lc%02d",
+			                   tmPtr->tm_year+1900,
+			                   DateSeparator,
+			                   tmPtr->tm_mon+1,
+			                   DateSeparator,
+			                   tmPtr->tm_mday);
+			break;
+	}
+}
+
+// weeknumber --- figure how many weeks into the year
+static int weeknumber(const tm *timeptr,const int firstweekday)
+{
+	int wday=timeptr->tm_wday;
+
+	if (firstweekday==1)
+	{
+		if (!wday) // sunday
+			wday=6;
+		else
+			wday--;
+	}
+
+	int ret=((timeptr->tm_yday+7-wday)/7);
+
+	if (ret<0)
+		ret=0;
+
+	return ret;
+}
+
+// isleap --- is a year a leap year?
+static int isleap(const int year)
+{
+	return ((!(year%4)&&(year%100))||!(year%400));
+}
+
+static int iso8601wknum(const tm *timeptr)
+{
+	/*
+	 * From 1003.2:
+	 *  If the week (Monday to Sunday) containing January 1
+	 *  has four or more days in the new year, then it is week 1;
+	 *  otherwise it is the highest numbered week of the previous
+	 *  year (52 or 53), and the next week is week 1.
+	 *
+	 * ADR: This means if Jan 1 was Monday through Thursday,
+	 *  it was week 1, otherwise week 52 or 53.
+	 *
+	 * XPG4 erroneously included POSIX.2 rationale text in the
+	 * main body of the standard. Thus it requires week 53.
+	 */
+	// get week number, Monday as first day of the week
+	int weeknum=weeknumber(timeptr,1);
+	/*
+	 * With thanks and tip of the hatlo to tml@tik.vtt.fi
+	 *
+	 * What day of the week does January 1 fall on?
+	 * We know that
+	 *  (timeptr->tm_yday - jan1.tm_yday) MOD 7 ==
+	 *      (timeptr->tm_wday - jan1.tm_wday) MOD 7
+	 * and that
+	 *  jan1.tm_yday == 0
+	 * and that
+	 *  timeptr->tm_wday MOD 7 == timeptr->tm_wday
+	 * from which it follows that. . .
+	 */
+	int jan1day=timeptr->tm_wday-(timeptr->tm_yday%7);
+
+	if (jan1day<0)
+		jan1day+=7;
+
+	/*
+	 * If Jan 1 was a Monday through Thursday, it was in
+	 * week 1.  Otherwise it was last year's highest week, which is
+	 * this year's week 0.
+	 *
+	 * What does that mean?
+	 * If Jan 1 was Monday, the week number is exactly right, it can
+	 *  never be 0.
+	 * If it was Tuesday through Thursday, the weeknumber is one
+	 *  less than it should be, so we add one.
+	 * Otherwise, Friday, Saturday or Sunday, the week number is
+	 * OK, but if it is 0, it needs to be 52 or 53.
+	 */
+	switch (jan1day)
+	{
+		case 1: // Monday
+			break;
+		case 2: // Tuesday
+		case 3: // Wednesday
+		case 4: // Thursday
+			weeknum++;
+			break;
+		case 5: // Friday
+		case 6: // Saturday
+		case 0: // Sunday
+
+			if (!weeknum)
+			{
+#ifdef USE_BROKEN_XPG4
+				/* XPG4 (as of March 1994) says 53 unconditionally */
+				weeknum = 53;
+#else
+				// get week number of last week of last year
+				// 12/31 last year
+				tm dec31ly=*timeptr;
+				dec31ly.tm_year--;
+				dec31ly.tm_mon=11;
+				dec31ly.tm_mday=31;
+				dec31ly.tm_wday=!jan1day?6:jan1day-1;
+				dec31ly.tm_yday=364+isleap(dec31ly.tm_year+1900);
+				weeknum=iso8601wknum(&dec31ly);
+#endif
+			}
+
+			break;
+	}
+
+	if (timeptr->tm_mon==11)
+	{
+		/*
+		 * The last week of the year
+		 * can be in week 1 of next year.
+		 * Sigh.
+		 *
+		 * This can only happen if
+		 *  M   T  W
+		 *  29  30 31
+		 *  30  31
+		 *  31
+		 */
+		if ((timeptr->tm_wday==1&&(timeptr->tm_mday>=29&&timeptr->tm_mday<=31))||
+		        (timeptr->tm_wday==2&&(timeptr->tm_mday==30||timeptr->tm_mday==31))||
+		        (timeptr->tm_wday==3&&timeptr->tm_mday==31))
+			weeknum=1;
+	}
+
+	return weeknum;
+}
+
+size_t WINAPI StrFTime(FARString &strDest, const wchar_t *Format,const tm *t)
+{
+	if (CurLang==-1 && Lang.IsLanguageLoaded())
+		PrepareStrFTime();
+
+	// меняем язык.
+	CurLang=0;
+	size_t Len;
+
+	for (Len=1; *Format; Format++)
+	{
+		if (*Format!=L'%')
+		{
+			Len++;
+			const wchar_t Text[]={*Format,0};
+			strDest+=Text;
+		}
+#if 1
+		else
+		{
+			FARString strBuf;
+
+			switch (*++Format)
+			{
+				case L'L':
+					CurLang=!CurLang;
+					continue;
+					// Краткое имя дня недели (Sun,Mon,Tue,Wed,Thu,Fri,Sat)
+					// abbreviated weekday name
+				case L'a':
+					strBuf=AWeekday[CurLang][!WeekFirst?((t->tm_wday+6)%7):(!t->tm_wday?6:t->tm_wday-1)];
+					break;
+					// Полное имя дня недели
+					// full weekday name
+				case L'A':
+					strBuf=Weekday[CurLang][!WeekFirst?((t->tm_wday+6)%7):(!t->tm_wday?6:t->tm_wday-1)];
+					break;
+					// Краткое имя месяца (Jan,Feb,...)
+					// abbreviated month name
+				case L'h':
+				case L'b':
+					strBuf=AMonth[CurLang][t->tm_mon];
+					break;
+					// Полное имя месяца
+					// full month name
+				case L'B':
+					strBuf=Month[CurLang][t->tm_mon];
+					break;
+					//Дата и время в формате WDay Mnt  Day HH:MM:SS yyyy
+					//appropriate date and time representation
+				case L'c':
+					atime(strBuf,t);
+					break;
+					// Столетие как десятичное число (00 - 99). Например, 1992 => 19
+				case L'C':
+					strBuf.Format(L"%02d",(t->tm_year+1900)/100);
+					break;
+					// day of month, blank padded
+				case L'e':
+					// Две цифры дня месяца (01 - 31)
+					// day of the month, 01 - 31
+				case L'd':
+					strBuf.Format(*Format==L'e'?L"%2d":L"%02d",t->tm_mday);
+					break;
+					// hour, 24-hour clock, blank pad
+				case L'k':
+					// Две цифры часа (00 - 23)
+					// hour, 24-hour clock, 00 - 23
+				case L'H':
+					strBuf.Format(*Format==L'k'?L"%2d":L"%02d",t->tm_hour);
+					break;
+					// hour, 12-hour clock, 1 - 12, blank pad
+				case L'l':
+					// Две цифры часа (01 - 12)
+					// hour, 12-hour clock, 01 - 12
+				case L'I':
+				{
+					int I=t->tm_hour%12;
+
+					if (!I)
+						I=12;
+
+					strBuf.Format(*Format==L'l'?L"%2d":L"%02d",I);
+					break;
+				}
+				// Три цифры дня в году (001 - 366)
+				// day of the year, 001 - 366
+				case L'j':
+					strBuf.Format(L"%03d",t->tm_yday+1);
+					break;
+					// Две цифры месяца, как десятичное число (1 - 12)
+					// month, 01 - 12
+				case L'm':
+				{
+					// %mh - Hex month digit
+					// %m0 - ведущий 0
+					const wchar_t *fmt=Format[1]==L'h'?L"%X":Format[1]==L'0'?L"%02d":L"%d";
+
+					if (fmt[1]!=L'd')
+						Format++;
+
+					strBuf.Format(fmt,t->tm_mon+1);
+					break;
+				}
+				// Две цифры минут (00 - 59)
+				// minute, 00 - 59
+				case L'M':
+					strBuf.Format(L"%02d",t->tm_min);
+					break;
+					// AM или PM
+					// am or pm based on 12-hour clock
+				case L'p':
+					strBuf=(t->tm_hour/12)?L"PM":L"AM";
+					break;
+					// Две цифры секунд (00 - 59)
+					// second, 00 - 59
+				case L'S':
+					strBuf.Format(L"%02d",t->tm_sec);
+					break;
+					// День недели где 0 - Воскресенье (Sunday) (0 - 6)
+					// weekday, Sunday == 0, 0 - 6
+				case L'w':
+					strBuf.Format(L"%d",t->tm_wday);
+					break;
+					// Две цифры номера недели, где Воскресенье (Sunday)
+					//   является первым днем недели (00 - 53)
+					// week of year, Sunday is first day of week
+				case L'U':
+					// Две цифры номера недели, где Понедельник (Monday)
+					//    является первым днем недели (00 - 53)
+					// week of year, Monday is first day of week
+				case L'W':
+				{
+					int I=t->tm_wday-(t->tm_yday%7);
+
+					//I = (chr == 'W'?(!WeekFirst?((t->tm_wday+6)%7):(t->tm_wday? t->tm_wday-1:6)):(t->tm_wday)) - (t->tm_yday % 7);
+					if (I<0)
+						I+=7;
+
+					strBuf.Format(L"%02d",(t->tm_yday+I-(*Format==L'W'))/7);
+					break;
+				}
+				// date as dd-bbb-YYYY
+				case L'v':
+					// Дата в формате mm.dd.yyyy
+					// appropriate date representation
+				case L'D':
+				case L'x':
+					st_time(strBuf,t,*Format);
+					break;
+					// Время в формате HH:MM:SS
+					// appropriate time representation
+				case L'T':
+				case L'X':
+				{
+					int TimeSeparator=GetTimeSeparator();
+					strBuf.Format(L"%02d%c%02d%c%02d",t->tm_hour,TimeSeparator,t->tm_min,TimeSeparator,t->tm_sec);
+					break;
+				}
+				// Две цифры года без столетия (00 to 99)
+				// year without a century, 00 - 99
+				case L'y':
+					strBuf.Format(L"%02d",t->tm_year%100);
+					break;
+					// Год со столетием (19yy-20yy)
+					// year with century
+				case L'Y':
+					strBuf.Format(L"%d",1900+t->tm_year);
+					break;
+					// Имя часового пояса или пусто, если часовой пояс не задан
+				case L'Z':
+					//todo strBuf.Format(L"%+03d%02d",-(_timezone/3600),-(_timezone/60)%60);
+					//Ptr = _tzname[ t->tm_isdst ];
+					break;
+					// same as \n
+				case L'n':
+					strBuf=L"\n";
+					break;
+					// same as \t
+				case L't':
+					strBuf=L"\t";
+					break;
+				case L'%':
+					strBuf=L"%";
+					break;
+					// time as %I:%M:%S %p
+				case L'r':
+					StrFTime(strBuf,L"%I:%M:%S %p",t);
+					break;
+					// time as %H:%M
+				case L'R':
+					StrFTime(strBuf,L"%H:%M",t);
+					break;
+					// week of year according ISO 8601
+				case L'V':
+					strBuf.Format(L"%02d",iso8601wknum(t));
+					break;
+			}
+
+			strDest+=strBuf;
+			Len+=strBuf.GetLength();
+		}
+#endif
+	}
+
+	if (*Format)
+		return 0;
+
+	return Len-1;
+}
+
+size_t MkStrFTime(FARString &strDest, const wchar_t *Fmt)
+{
+	tm *time_now;
+	time_t secs_now;
+	//todo _tzset();
+	time(&secs_now);
+	time_now=localtime(&secs_now);
+
+	if (!Fmt||!*Fmt)
+		Fmt=Opt.Macro.strDateFormat;
+
+	return StrFTime(strDest,Fmt,time_now);
+}
+
+int64_t FileTimeDifference(const FILETIME *a, const FILETIME* b)
+{
+	LARGE_INTEGER A={{a->dwLowDateTime, (LONG)a->dwHighDateTime}},B={{b->dwLowDateTime, (LONG)b->dwHighDateTime}};
+	return A.QuadPart - B.QuadPart;
+}
+
+uint64_t FileTimeToUI64(const FILETIME *ft)
+{
+	ULARGE_INTEGER A={{ft->dwLowDateTime,ft->dwHighDateTime}};
+	return A.QuadPart;
+}
+
+void GetFileDateAndTime(const wchar_t *Src,LPWORD Dst,size_t Count,int Separator)
+{
+	for (size_t i=0; i<Count; i++)
+	{
+		Dst[i]=(WORD)-1;
+	}
+
+	FARString strDigit;
+	const wchar_t *Ptr=Src;
+
+	for (size_t i=0; i<Count; i++)
+	{
+		Ptr=GetCommaWord(Ptr,strDigit,Separator);
+
+		if (Ptr)
+		{
+			const wchar_t *PtrDigit=strDigit;
+
+			while (*PtrDigit&&!isdigit(*PtrDigit))//todo iswdigit
+			{
+				PtrDigit++;
+			}
+
+			if (*PtrDigit)
+			{
+				Dst[i]=static_cast<WORD>(_wtoi(PtrDigit));
+			}
+		}
+		else
+		{
+			break;
+		}
+	}
+}
+
+void StrToDateTime(const wchar_t *CDate, const wchar_t *CTime, FILETIME &ft, int DateFormat, int DateSeparator, int TimeSeparator, bool bRelative)
+{
+	WORD DateN[3]{}, TimeN[4]{};
+	SYSTEMTIME st{};
+	// Преобразуем введённые пользователем дату и время
+	GetFileDateAndTime(CDate,DateN,ARRAYSIZE(DateN),DateSeparator);
+	GetFileDateAndTime(CTime,TimeN,ARRAYSIZE(TimeN),TimeSeparator);
+
+	if (!bRelative)
+	{
+		if (DateN[0]==(WORD)-1||DateN[1]==(WORD)-1||DateN[2]==(WORD)-1)
+		{
+			// Пользователь оставил дату пустой, значит обнулим дату и время.
+			memset(&ft,0,sizeof(ft));
+			return;
+		}
+
+		// "Оформим"
+		switch (DateFormat)
+		{
+			case 0:
+				st.wMonth = DateN[0];
+				st.wDay   = DateN[1];
+				st.wYear  = DateN[2];
+				break;
+			case 1:
+				st.wDay   = DateN[0];
+				st.wMonth = DateN[1];
+				st.wYear  = DateN[2];
+				break;
+			default:
+				st.wYear  = DateN[0];
+				st.wMonth = DateN[1];
+				st.wDay   = DateN[2];
+				break;
+		}
+
+		if (st.wYear<100)
+		{
+			st.wYear = static_cast<WORD>(ConvertYearToFull(st.wYear));
+		}
+	}
+	else
+	{
+		st.wDay = DateN[0]!=(WORD)-1?DateN[0]:0;
+	}
+
+	st.wHour   = TimeN[0]!=(WORD)-1?(TimeN[0]):0;
+	st.wMinute = TimeN[1]!=(WORD)-1?(TimeN[1]):0;
+	st.wSecond = TimeN[2]!=(WORD)-1?(TimeN[2]):0;
+	st.wMilliseconds = TimeN[3]!=(WORD)-1?(TimeN[3]):0;
+
+	// преобразование в "удобоваримый" формат
+	if (bRelative)
+	{
+		ULARGE_INTEGER time;
+		time.QuadPart = st.wMilliseconds;
+		time.QuadPart += (UINT64)st.wSecond * 1000;
+		time.QuadPart += (UINT64)st.wMinute * 1000 * 60;
+		time.QuadPart += (UINT64)st.wHour   * 1000 * 60 * 60;
+		time.QuadPart += (UINT64)st.wDay    * 1000 * 60 * 60 * 24;
+		time.QuadPart *= 10000;
+		ft.dwLowDateTime  = time.LowPart;
+		ft.dwHighDateTime = time.HighPart;
+	}
+	else
+	{
+		FILETIME lft{};
+
+		if (WINPORT(SystemTimeToFileTime)(&st,&lft))
+		{
+			WINPORT(LocalFileTimeToFileTime)(&lft,&ft);
+		}
+	}
+}
+
+void ConvertDate(const FILETIME &ft,FARString &strDateText, FARString &strTimeText,int TimeLength,
+                 int Brief,int TextMonth,int FullYear,int DynInit)
+{
+	static int WDateFormat;
+	static wchar_t WDateSeparator,WTimeSeparator,WDecimalSeparator;
+	static bool Init=false;
+	static SYSTEMTIME lt;
+	int DateFormat;
+	wchar_t DateSeparator,TimeSeparator,DecimalSeparator;
+
+	if (!Init)
+	{
+		WDateFormat=GetDateFormat();
+		WDateSeparator=GetDateSeparator();
+		WTimeSeparator=GetTimeSeparator();
+		WDecimalSeparator=GetDecimalSeparator();
+		WINPORT(GetLocalTime)(&lt);
+		Init=true;
+	}
+
+	DateFormat=DynInit?GetDateFormat():WDateFormat;
+	DateSeparator=DynInit?GetDateSeparator():WDateSeparator;
+	TimeSeparator=DynInit?GetTimeSeparator():WTimeSeparator;
+	DecimalSeparator=DynInit?GetDecimalSeparator():WDecimalSeparator;
+	int CurDateFormat=DateFormat;
+
+	if (Brief && CurDateFormat==2)
+		CurDateFormat=0;
+
+	SYSTEMTIME st;
+	FILETIME ct;
+
+	if (!ft.dwHighDateTime)
+	{
+		strDateText.Clear();
+		strTimeText.Clear();
+		return;
+	}
+
+	WINPORT(FileTimeToLocalFileTime)(&ft,&ct);
+	WINPORT(FileTimeToSystemTime)(&ct,&st);
+	//if ( !strTimeText.IsEmpty() )
+	{
+		const wchar_t *Letter=L"";
+
+		if (TimeLength==6)
+		{
+			Letter=(st.wHour<12) ? L"a":L"p";
+
+			if (st.wHour>12)
+				st.wHour-=12;
+
+			if (!st.wHour)
+				st.wHour=12;
+		}
+
+		if (TimeLength<7)
+			strTimeText.Format(L"%02d%c%02d%ls",st.wHour,TimeSeparator,st.wMinute,Letter);
+		else
+		{
+			FARString strFullTime;
+			strFullTime.Format(L"%02d%c%02d%c%02d%c%03d",st.wHour,TimeSeparator,
+			                   st.wMinute,TimeSeparator,st.wSecond,DecimalSeparator,st.wMilliseconds);
+			strTimeText.Format(L"%.*ls",TimeLength, strFullTime.CPtr());
+		}
+	}
+	//if ( !strDateText.IsEmpty() )
+	{
+		int Year=st.wYear;
+
+		if (!FullYear)
+			Year%=100;
+
+		if (TextMonth)
+		{
+			const wchar_t *Month=MSG(MMonthJan+st.wMonth-1);
+
+			switch (CurDateFormat)
+			{
+				case 0:
+					strDateText.Format(L"%3.3ls %2d %02d",Month,st.wDay,Year);
+					break;
+				case 1:
+					strDateText.Format(L"%2d %3.3ls %02d",st.wDay,Month,Year);
+					break;
+				default:
+					strDateText.Format(L"%02d %3.3ls %2d",Year,Month,st.wDay);
+					break;
+			}
+		}
+		else
+		{
+			int p1,p2,p3=Year;
+			int w1=2, w2=2, w3=2;
+			wchar_t f1=L'0', f2=L'0', f3=FullYear==2?L' ':L'0';
+			switch (CurDateFormat)
+			{
+				case 0:
+					p1=st.wMonth;
+					p2=st.wDay;
+					break;
+				case 1:
+					p1=st.wDay;
+					p2=st.wMonth;
+					break;
+				default:
+					p1=Year;
+					w1=FullYear==2?5:2;
+					f3=f1;
+					f1=L' ';
+					p2=st.wMonth;
+					p3=st.wDay;
+					break;
+			}
+			FormatString Fmt;
+			Fmt<<fmt::FillChar(f1)<<fmt::Width(w1)<<p1<<DateSeparator<<fmt::FillChar(f2)<<fmt::Width(w2)<<p2<<DateSeparator<<fmt::FillChar(f3)<<fmt::Width(w3)<<p3;
+			strDateText=std::move(Fmt.strValue());
+		}
+	}
+
+	if (Brief)
+	{
+		strDateText.Truncate(TextMonth ? 6 : 5);
+
+		if (lt.wYear!=st.wYear)
+			strTimeText.Format(L"%5d",st.wYear);
+	}
+}
+
+void ConvertRelativeDate(const FILETIME &ft,FARString &strDaysText,FARString &strTimeText)
+{
+	ULARGE_INTEGER time={{ft.dwLowDateTime,ft.dwHighDateTime}};
+	
+	UINT64 ms = (time.QuadPart/=10000)%1000;
+	UINT64 s = (time.QuadPart/=1000)%60;
+	UINT64 m = (time.QuadPart/=60)%60;
+	UINT64 h = (time.QuadPart/=60)%24;
+	UINT64 d = time.QuadPart/=24;
+
+	FormatString DaysText;
+	DaysText<<d;
+	strDaysText=std::move(DaysText.strValue());
+
+	FormatString TimeText;
+	TimeText<<fmt::Width(2)<<fmt::FillChar(L'0')<<h<<GetTimeSeparator()<<fmt::Width(2)<<fmt::FillChar(L'0')<<m<<GetTimeSeparator()<<fmt::Width(2)<<fmt::FillChar(L'0')<<s<<GetDecimalSeparator()<<fmt::Width(3)<<fmt::FillChar(L'0')<<ms;
+	strTimeText=std::move(TimeText.strValue());
+}