//---------------------------------------------------------------------------
//  TIMEDIF     :   時間から時間を引くルーチン
//      [Usage] :
//          call TIMEDIF $$time1, $$time2;
//          $$dif = $$return;
//
//          $$time1     :   時間１("HH:MM:SS"形式 … ex. "13:57:02")
//          $$time2     :   時間２(　　　　　　　〃　　　　　　　　)
//          $$timedif   :   結果("HH:MM:SS"形式 … $$time1 < $$time2 の時は
//                          先頭に "-" を付ける)
//
//  備考：  同じマクロファイル中に TIMECOUNT サブルーチンが必要
//
//---------------------------------------------------------------------------
//  サンプル：
//      call TIMEDIF "12:34:56", "02:50:40";
//      message "12時34分56秒の2時間50分40秒前は " + $$return + " です。";
//      endmacro;
//---------------------------------------------------------------------------
//
TIMEDIF:
    $$ret = "";

    call TIMECOUNT $$1;
    ##sec1 = ##return;
    call TIMECOUNT $$2;
    ##sec2 = ##return;

    if( ##sec1 < ##sec2 ){
        $$ret = "-";
        ##diff = ##sec2 - ##sec1;
    } else ##diff = ##sec1 - ##sec2;

    return  $$ret + rightstr( "0"+str(##diff/3600), 2 ) + ":" + 
            rightstr( "0"+str((##diff%3600)/60), 2 ) + ":" + 
            rightstr( "0"+str((##diff%3600)%60), 2 );
//---------------------------------------------------------------------------