aanzwellend meer kerstmuziek voor en minder na kerst

[radio010]

De kerstinhoud wordt geleidelijk aan steeds intensiever naarmate Kerstmis dichterbij komt, en na Kerstmis steeds minder.

Met een beetje aanpassen kun je dit ook gebruiken voor andere feestdagen of evenement dagen.

veel plezier ermee!

Code: Selecteer alles

PAL.LockExecution;

//PAL.Loop := True;

var theYear : Integer = 0;
var theMonth : Integer = 0;
var theDay : Integer = 0;
DecodeDate(now, theYear, theMonth, theDay);
var mytime : DateTime = now;
var randomInteger : Integer = 0;

WriteLn('theMonth='+IntToStr(theMonth));

if (theMonth = 12) then
begin
  WriteLn('theDay='+IntToStr(theDay));
  case theDay of
  1,2,3,4,5,6,7:
    begin
      if (mytime >= (date + EncodeTime(18,00,00,0))) then
      begin
          cat['Quiet'].QueueTop(smLRP, EnforceRules)
      end
      else begin
          cat['Christmas'].QueueTop(smLRP, EnforceRules);
      end;
      WriteLn('1 Christmas');
    end;
  8,9,10,11,12,13,14:
    begin
      if (mytime >= (date + EncodeTime(18,00,00,0))) then
      begin
          cat['Quiet'].QueueTop(smLRP, EnforceRules);
          cat['Quiet'].QueueTop(smLRP, EnforceRules);
      end
      else begin
          cat['Christmas'].QueueTop(smLRP, EnforceRules);
          cat['Christmas'].QueueTop(smLRP, EnforceRules);
      end;
      WriteLn('2 Christmas');
    end;
  15,16,17,18,19,20,21,22,23,24,25:
    begin
      if (mytime >= (date + EncodeTime(18,00,00,0)))
      then begin
          cat['Quiet'].QueueTop(smLRP, EnforceRules);
          cat['Quiet'].QueueTop(smLRP, EnforceRules);
          cat['Quiet'].QueueTop(smLRP, EnforceRules);
      end
      else begin
          cat['Christmas'].QueueTop(smLRP, EnforceRules);
          cat['Christmas'].QueueTop(smLRP, EnforceRules);
          cat['Christmas'].QueueTop(smLRP, EnforceRules);
      end;
      WriteLn('3 Christmas');
    end;
  26:
    begin
      if (mytime >= (date + EncodeTime(18,00,00,0)))
      then begin
          cat['Quiet'].QueueTop(smLRP, EnforceRules);
          cat['Quiet'].QueueTop(smLRP, EnforceRules);
      end
      else begin
          cat['Christmas'].QueueTop(smLRP, EnforceRules);
          cat['Christmas'].QueueTop(smLRP, EnforceRules);
      end;
      WriteLn('2 after Christmas');
    end;
  27,28,29,30:
    begin
      if (mytime >= (date + EncodeTime(18,00,00,0))) then
      begin
          cat['Quiet'].QueueTop(smLRP, EnforceRules);
      end
      else begin
          cat['Christmas'].QueueTop(smLRP, EnforceRules);
      end;
      WriteLn('1 after Christmas');
    end;
    end;
end;

PAL.UnlockExecution;