spCalc_func

Адрес этой странички : http://spcalc.narod.ru/spcalc_func_date.htm
spCalc.exe
Простой программируемый калькулятор.

Интерпретатор скриптов.

ВНИМАНИЕ !
Прежде, чем читать этот документ, крайне рекомендуется детально ознакомиться с документом :
"Библиотека скриптов FastScript 1.4. Руководство разработчика" ( http://spcalc.narod.ru/download/fs14_ru_rtf.zip ).

Список процедур и функций

Дата-Время

Проверка корректности даты (строка)
function IsDate(sDate : String) : Boolean;
function ValidDate(cDate: String): Boolean;

Перевод даты в строку
function DateToStr(e: Extended): String;

Перевод времени в строку
function TimeToStr(e: Extended): String;

Перевод даты и времени в строку
function DateTimeToStr(e: Extended): String;

Перевод строки в дату
function StrToDate(s: String): Extended;

Перевод строки во время
function StrToTime(s: String): Extended;

Перевод строки в дату и время
function StrToDateTime(s: String): Extended;

Текущая дата
function Date: TDateTime;

Текущее время
function Time: TDateTime;

Текущие дата и время
function Now: TDateTime;

Нормализация даты в формате строки
function NormalDateString(Sx : String) : string;

Получить числовое представление даты (ггггммдд)
function Get_IDDate(sDate : String) : integer;

Конвертировать числовое представление даты (ггггммдд) в строку (дд.мм.гггг)
function IDDate_to_StringDate(YMD : integer;sSep : string) : string;
sSep – символ-разделитель (для строкового представления)

Получить предыдущую дату
function GetPred_Date(sDate : String) : string;

Получить следущую дату
function GetNext_Date(sDate : String) : string;

Перевод года, месяца и дня в формат даты
function EncodeDate(Year, Month, Day: Word): TdateTime;

Перевод даты в года, месяц и день
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

Перевод часов, минут и секунд в формат времени
function EncodeTime(Hour, Min, Sec, MSec: Word): TdateTime;

Перевод времени в часы, минуты и секунды
procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);

День недели
function DayOfWeek(aDate: DateTime): Integer;

Високосный год
function IsLeapYear(Year: Word): Boolean;

Дней в месяце
function DaysInMonth(nYear, nMonth: Integer): Integer;

Форматирование даты и времени
function FormatDateTime(Fmt: String; DateTime: TDateTime): String;

Кол-во дней между двумя датами
function Get_Days_between_Dates(Date1,Date2 : string) : integer;