function DateDemo(){
   var d, day, x, s = "Today is: ";
   var x = new Array("Sunday", "Monday", "Tuesday");
   var x = x.concat("Wednesday","Thursday", "Friday");
   var x = x.concat("Saturday");
   d = new Date();
   day = d.getDay();
   return(s += x[day]);
}

C:\WINDOWS\system32>now

Tue Dec  27   17 : 28 : 14   2005 

Sub Main()
Dim my_cmd As String
my_cmd = "setx.exe XDAY " + CStr(Weekday(Date)) + " -m"
Shell my_cmd, vbHide
End Sub

@echo off
Echo.|Command /C Date>DayOfWeek
set /p today=<DayOfWeek
set DayOfWeek=%today:~ 16 , 3 %
echo DayOfWeek=%DayOfWeek%

program day;


{$APPTYPE CONSOLE}
        {$R *.RES}


uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

var dayof :  integer;
begin
dayof:=DayOfWeek(Date);
if dayof= 1  then
dayof:= 8 ;
Halt(DayOfWeek(Date)- 1 );
end.

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы