func GetWavDuration
lpara tcFile
LOCAL lcHdr, lnBitsPerSample, lnChunkSize, lnH, lnNumChannels, lnSampleRate
lnH = fopen(tcFile)
if lnH > 0
	lcHdr = fread(lnH, 44)
	fclose(lnH)
else
	? 'Ошибка открытия файла', tcFile
	return 0
endif

if left(lcHdr, 4) != 'RIFF'
	? 'Неправильная структура файла', tcFile
	return 0
endif

lnSubChunk2Size = ctobin(substr(lcHdr, 41, 4), '4RS')
lnBitsPerSample = ctobin(substr(lcHdr, 35, 2), '2RS')
lnNumChannels = ctobin(substr(lcHdr, 23, 2), '2RS')
lnSampleRate = ctobin(substr(lcHdr, 25, 4), '4RS')

return lnSubChunk2Size / (lnNumChannels * lnSampleRate * lnBitsPerSample / 8)