الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مساعدة اخواني المبرمجين

بدأه DANA_2007 في 21 فبراير 2012 · 0 رد · 392 مشاهدة · في هندسة البرمجيات
مشاركة: واتساب X فيسبوك تيليجرام
#1

السلام عليكم اخواني المبرمجين

احببت الاستفسار هل البرمجيه الأتية تخدمني في تحويل مقطع فيديو الا تكست

Function TCTOFRAMES(a,b)

Dim HrsString as String

Dim HrsInt as Integer

Dim HrsConvToFrames as Long

HrsString = left(a,2)

HrsInt = HrsString

HrsConvToFrames = HrsInt*60*60*b

Dim MinsString as String

Dim MinsInt as Integer

Dim MinsConvToFrames as Integer

MinsString = Mid(a,4,2)

MinsInt = MinsString

MinsConvToFrames = MinsInt*60*b

Dim SecsString as String

Dim SecsInt as Integer

Dim SecsConvToFrames as Integer

SecsString = Mid(a,7,2)

SecsInt = SecsString

SecsConvToFrames = SecsInt*b

Dim FramesString as String

Dim FramesInt as Integer

FramesString = right(a,2)

FramesInt = FramesString

TCTOFRAMES = HrsConvToFrames+MinsConvToFrames+SecsConvToFrames+FramesInt

End Function

مواضيع مشابهة