diff --git a/components/tvplanit/source/vpdata.pas b/components/tvplanit/source/vpdata.pas
index 627cd72ec..3067caa93 100644
--- a/components/tvplanit/source/vpdata.pas
+++ b/components/tvplanit/source/vpdata.pas
@@ -1434,9 +1434,9 @@ begin
     Result.Alarm.Audio := (FDingPath <> '') and FileExists(FDingPath);
     Result.Alarm.AudioSrc := FDingPath;
     case FAlarmAdvType of
-      atMinutes: Result.Alarm.Trigger := FAlarmAdv * OneMinute;
-      atHours: Result.Alarm.Trigger := FAlarmAdv * OneHour;
-      atDays: Result.Alarm.Trigger := FAlarmAdv;
+      atMinutes: Result.Alarm.Trigger := -FAlarmAdv * OneMinute;
+      atHours: Result.Alarm.Trigger := -FAlarmAdv * OneHour;
+      atDays: Result.Alarm.Trigger := -FAlarmAdv;
     end;
     Result.Alarm.RepeatCount := 1;
   end;