日历不可用时间表修改

lazhen

2024-06-12 de982da373b3a8df0f1d6f28263fa591403e39d0

 _Main/BL/Type_LibCal_SubscriberEventTable/Method_InitializeDay.qbl

@@ -21,16 +21,14 @@
      if( startTime.StartOfNextDay() > endtime ){
        duration := endtime - startTime;
        cell := column.LibCal_SubscriberEventCell( relnew, Value := [String]duration.HoursAsReal()
                                                   , Start := startTime.Format( 'M/D/Y H:m' )
                                                   , End := endtime.Format( 'M/D/Y H:m' )
                                                   , Description := desc );
        cell.Period( relnew, Start := startTime.Format( 'M/D/Y H:m' ), End := endtime.Format( 'M/D/Y H:m' ) );
        row.LibCal_SubscriberEventCell( relinsert, cell );
      }else{
        duration := startTime.StartOfNextDay() - startTime;
        cell := column.LibCal_SubscriberEventCell( relnew, Value := [String]duration.HoursAsReal()
                                                   , Start := startTime.Format( 'M/D/Y H:m' )
                                                   , End := startTime.StartOfNextDay().Format( 'M/D/Y H:m' )
                                                   , Description := desc );
        cell.Period( relnew, Start := startTime.Format( 'M/D/Y H:m' ), End := startTime.StartOfNextDay().Format( 'M/D/Y H:m' ) );
        row.LibCal_SubscriberEventCell( relinsert, cell );
      }
    //  info( startTime, column.Name(), duration.AsQUILL(), duration.HoursAsReal() );