Quintiq file version 2.0
#parent: #root
Method UpdateStartAndEnd () id:Method_LibCal_dlgCalendarSettings_UpdateStartAndEnd
{
  #keys: '[131094.1.162996849]'
  Body:
  [*
    now      := DateTime::Now();
    base     := dtBase.DateTime();
    window   := [Number]edtWindow.Text();
    history  := [Number]edtHistory.Text();
    interval := durUpdateInterval.Duration();
    timezone := LibCal_GlobalState.GetLocalTimeZone();
    
    if( TimeZone::HasTimeZoneSupport() )
    {
      now  := now  + timezone.RawOffset();  // now and base are in GMT (?) and need to be adjusted
      base := base + timezone.RawOffset();  // in order to calculate the correct times to show in the dialog
    }
    
    start      := base;
    lastUpdate := base;
    
    if( now >= base and
        interval > Duration::Zero() )
    {
      if( base.IsInfinite() )
      {
        base := now.StartOfDay( timezone );
      }
      
      nrOfIntervalsSinceBase := ( now - base ) div interval;
      lastUpdate             := base + nrOfIntervalsSinceBase * interval;
    }
    
    start := lastUpdate - Duration::Days( history );
    end   := guard( start + Duration::Days( window ), DateTime::MinDateTime() );
    
    mask    := "D2-MM-Y  H2:m";
    convOps := ConversionOptions::ISO();
    
    lblStart.Text( start.Format( mask, convOps ) );
    lblEnd.Text(   end  .Format( mask, convOps ) );
    
    lblLastUpdate.Text( lastUpdate.Format( mask, convOps ) );
    
    nextUpdate := "-";
    if( interval > Duration::Zero() )
    {
      nextUpdate := ifexpr( base > now, base, lastUpdate + interval ).Format( mask, convOps );
    }
    lblNextUpdate.Text( nextUpdate );
  *]
}