Как узнать день недели

Автор:Izmajlov
Дата:26.08.2005
Просмотров:2800
Скачиваний:2033
Оценка:, Оценок - 3
Сохранить в файле

Обсудить в форуме

Описание

Короткий пример с использованием WSH. Не нашел в системной библиотеке Календарь функций определения дня недели, пришлось искать выход.

Текст примера

 Import rslx, lgxs;
if(IsStandAlone())
	obj=ActiveX("MSScriptControl.ScriptControl");
else
	obj=TlgActiveX("MSScriptControl.ScriptControl",true);
end;
obj.language  =  "VBscript";
arg = "weekday(CDate(\x22"+String({curdate})+"\x22),2)";
println(arg);
println(obj.eval(arg));