diff --git a/fhem/FHEM/90_at.pm b/fhem/FHEM/90_at.pm
index b34b8bdd9..f85727176 100755
--- a/fhem/FHEM/90_at.pm
+++ b/fhem/FHEM/90_at.pm
@@ -567,6 +567,10 @@ EOF
         <ul>
           23:00-24:00 00:00-01:00
         </ul>
+        If parts of the attribute value are enclosed in {}, they are evaluated:
+        <ul>
+          {sunset_abs()}-24 {sunrise_abs()}-08
+        </ul>
         </li><br>
 
     <a name="skip_next"></a>
@@ -754,6 +758,11 @@ EOF
         <ul>
           23:00-24:00 00:00-01:00
         </ul>
+        Falls Teile des Wertes in {} eingeschlossen sind, dann werden sie als
+        ein Perl Ausdruck ausgewertet:
+        <ul>
+          {sunset_abs()}-24 {sunrise_abs()}-08
+        </ul>
         </li><br>
 
     <a name="skip_next"></a>
diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 656fb8d3e..f9c94df8f 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -785,6 +785,7 @@ IsDisabled($)
 
   my $dfi = $attr{$devname}{disabledForIntervals};
   if(defined($dfi)) {
+    $dfi =~ s/{([^\x7d]*)}/$cmdFromAnalyze=$1; eval $1/ge; # Forum #69787
     my ($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime;
     my $dhms = sprintf("%s\@%02d:%02d:%02d", $wday, $hour, $min, $sec);
     foreach my $ft (split(" ", $dfi)) {