Petitverse

BGMの合計時間は、実際に計らないとわからないです。
BGMPLAY 流したい曲
WHILE BGMCHK()
A=A+1
CLS
?A
WAIT 60
WEND

現在の時間は、
BGM流してるときに
A=A+1/60
?FORMAT$("%02D",(A DIV 60));".";FORMAT$("%02D",(A MOD 60));"/";実際に計った時間

もし、そのBGMのMMLがあるならば、解析することで計算することが可能です。（ただし、途中でテンポが変わる場合は処理が大変なことになります）

プリセットBGMのMMLを取得することはできませんので、プリセットBGMの時間を計算することはできません。

自分が作ったときは、MILLISECを使って
経過時間(秒)=FLOOR(((今のMILLISEC)-(BGM再生開始時のMILLISEC))/1000)
て感じに計算してました。

プリセットBGMのだいたいの時間については↓に素晴らしいデータがあるので見てみるといいかもしれません
http://wiki.hosiken.jp/petc3gou/?Memo#j9f4308c

答えられる中級者が居ない様なのでヒントを

MMLを解析すれば再生時間を求めることはできる。
MMLはSmileBASICからすれば単なる文字列なので、１文字ずつ切り出して判別できる。

それにはSmileBASICの基礎知識と文字列の扱い方を知らなくてはならない。
http://petitcom.net/3gou/category/intstrary/string

次にMMLがどの様な文字で構成されているのか理解する必要がある。
https://smileboom.com/special/ptcm2/co_manual/p10.php#3

MMLって音楽の譜面を文字だけで表したものなので、音楽の知識も必要となる。
と言っても、知る必要があるのは時間的なものだけだ。

譜面には音符があり、音符は音の高さだけでなく、音の長さの情報でもある。
音が鳴らない所は休符だ、これにも長さがある。

MMLでは音符はドレミファソラシをCDEFGABで表現する、休符はR

では音符や休符って、どうやって長さを表現しているのか、
それは、全音符(MMLではC1)を基準として
全音符の1/2の長さが２分音符(MMLではC2)
全音符の1/4の長さが４分音符(MMLではC4)
全音符の1/8の長さが８分音符♪(MMLではC8)
全音符の1/16の長さが１６分音符(MMLではC16)
全音符の1/32の長さが３２分音符(MMLではC32)
といった具合だ。

連続する音符と休符の長さを全て合算すれば、曲の長さが求まる。

では時間はどうやって求めるのか。
曲にはテンポがあり、同じ曲でもテンポを変えれば再生時間は変わってくる。
テンポが変わっても音符の長さの割合は変わらないため、音符は割合で表現されているのだろう。
テンポ120をMMLではT120と表現する。
ではテンポの値はどんな意味があるかと言うと、

１分間に４分音符が幾つ鳴るのか、その数を意味する。

T120とは、60秒間に４分音符が120回鳴る速度である。
これを逆算すると、T120の時、４分音符１つの時間は、
60秒 ÷ T120 ＝ 0.5秒 と求まる。
あとは計算はできるだろう、小学生レベルの計算だ。

MMLについてはよく理解した方が良い。
Tは省略される場合がある、その場合 デフォルト 120 だったかな。
音符は音程表現で＃半音上がる MMLでは C# C+、半音下がる C-と言った表現も出てくる。
音符はCDEFGABだけじゃないし、（Nというのもある）
音符の長さの表現として付点音符 MMLでは . が付くものもある、
例えば付点４分音符 C4. この場合の長さは４分音符の1.5倍の長さである。
音符の長さが省略されることもある、その場合、L4で指定した長さとなる、
L も省略されることがある、その場合、Lの長さのデフォルト 4 だったかな。
MMLでは和音を表現するためチャンネル区切り : がある。
全てのチャンネルが同じ時間の長さである保証は無いので、
全チャンネルの時間をそれぞれ求め、一番長い時間を曲の時間とするのが良いだろう。
繰り返し表現もある [ ]2 だ。
[]の後ろの数字が繰り返し回数で、[]の間にあるMMLを繰り返す。
[]はネストが可能で、[]の後ろの数字が省略されることもある、その場合は無限である。
マクロが定義されているものはマクロの展開も必要だ。
マクロもネストが可能である。
これらを全て解析しなければならない。

因みに

付点は複数書ける、これを複付点音符という。
長さは
C1.　全音符＋２分音符
C1..　全音符＋２分音符＋４分音符
C1...　全音符＋２分音符＋４分音符＋８分音符
C1....　全音符＋２分音符＋４分音符＋８分音符＋１６分音符
どこまでも続く

繰り返しの中にマクロ展開が入る場合もあるし、
マクロ定義に繰り返しが入ることもある。
マクロ定義に他のマクロ展開が入ることもある。
なので展開は結構面倒だ。
プレーンテキストになるまで展開するロジックを考えてみるといい。

まぁそこまでのやる気は無いのだろうけど。

処理の進捗状況を表示するプログレスバーを作る時も、まず下準備で行程完了までをカウントしてから
そのカウント数を分母として全体の長さを調整するのと同じですな
ループ制御に使ってる変数から計算出来るんならそれに越した事はないですけど
実測した方が手っ取り早いですし

ZEXさんの愛のムチ、いいですな
takumiさんならここまで言われたら絶対やるだろうって思いが無いと最後の一文は書けませんな
（そう思う根拠はZEXさんが大抵参考リンク先を貼って済ましてる人だからなんですけど）

MMLの仕様はmkIIと3号で全く同じなの??

＞MMLの仕様はmkIIと3号で全く同じなの??

上位互換だね、差は比較してみれば判ること