Перевести секунды (например, 79) в мин.сек (1’19”).

[o600000]

Здравствуйте!

Необходимо обрабатывать длительности MP3-файлов (от 0:03 сек до 20:00 мин). Однако не могу этот атрибут преобразовать в текст (типа DIR *.mp3). Поэтому его (для качества звука 96 кбит/сек) вычисляю делением:

Размер файла / 12000 = Длительность (сек).

Как теперь эти секунды (например, 11; 79; 183 и т.п.) перевести в мин.сек. (0’11”; 1’19”; 3’03” и т.п.)? Быть может есть более простое решение?

Нашел вариант, но лишь для Delphi…

[Step_UA]

  Dim t As Date, s$, sec&
    sec = 78    ' секунды
    s = (sec \ 60) & "'" & (sec Mod 60) & "''"  ' текстовое представление
    t = sec / 86400 ' в формате даты

[Андрэич]

Сообщение от o600000

Здравствуйте!

Необходимо обрабатывать длительности MP3-файлов (от 0:03 сек до 20:00 мин). Однако не могу этот атрибут преобразовать в текст (типа DIR *.mp3). Поэтому его (для качества звука 96 кбит/сек) вычисляю делением:

Размер файла / 12000 = Длительность (сек).

Как теперь эти секунды (например, 11; 79; 183 и т.п.) перевести в мин.сек. (0’11”; 1’19”; 3’03” и т.п.)? Быть может есть более простое решение?

Нашел вариант, но лишь для Delphi…

Попробуйте Format ()