Summary Calculating time in frames

Additional information

'Sushil K Sharma 'sharma_k_s@hotmail.com ' The variable below will Store maximum no of frames which can make a frame Dim fr_val As Long ' The variable below will Store all the strat time HH : MM: SS: FR Dim start_hour, start_minute, start_second, start_frame As Long ' The variable below will Store all the end time HH : MM: SS: FR Dim end_hour, end_minute, end_second, end_frame As Long ' The variable below will Store all the Quotient values of HH : MM: SS: FR Dim quotient_hour, quotient_second, quotient_minute, quotient_frame As Long ' The variable below will Store all the FR : SS : MM : HH variables for calucation of each other Dim temp_hour, temp_second, temp_minute, temp_frame As Long ' The variable below will Store the total no of frames in Startime, End time & will store the diffrence of both Dim int_stl, int_etl, total_frames As Long Const increment_time As Long = 25 Const max_frame_hour As Long = 90000 '-------CONSTANTS STORE-------- Const max_frame_minute As Long = 1500 ' store the maximum no of frames in HH : MM : SS Const max_frame_second As Long = 25 '----------------------- ' The variable below will final long variable which will store the values before display Dim final_hh, final_mm, final_ss, final_fr As Long ' The variable below will finanl Strings which will be displayed on screen Public str_final_hh, str_final_mm, str_final_ss, str_final_fr As String '\\\\\\\\\\\ The function below will grab all the variables in '\\\\\\\\\\\ Start time and will return the number of frames in it. Public Function start_time(hh As Long, mm As Long, ss As Long, fr As Long) As Long start_hour = CLng(hh) * 60 * 60 * 25 ' get number of frames in the start hour start_minute = CLng(mm) * 60 * 25 ' get number of frames in the start minutes start_second = CLng(ss) * 25 ' get number of frames in the start seconds start_frame = CLng(fr) ' get number of frames in the time line int_stl = start_hour + start_minute + start_second + start_frame ' summation all the frames in the start time line start_check_frames = 0 start_check_frames = int_stl End Function '\\\\\\\\\\\ The function below will grab all the variables in '\\\\\\\\\\\ End time and will return the number of frames in it. Public Function end_time(hh As Long, mm As Long, ss As Long, fr As Long) As Long end_hour = CLng(hh) * 60 * 60 * 25 ' get number of frames in the end hour end_minute = CLng(mm) * 60 * 25 ' get number of frames in the end minutes end_second = CLng(ss) * 25 ' get number of frames in the end seconds end_frame = CLng(fr) ' get number of frames in the time line int_etl = end_hour + end_minute + end_second + end_frame ' summation all the frames in the start time line end_check_frames = 0 end_check_frames = int_etl End Function Private Sub cal_diff_time() '---------------------------START---------------------------- '---------------------------START---------------------------- '------------final program for calculating time-------------- fr_val = 25 ' Minimumm frame which can make a second [ for calculations ~ final_fr = 0 '-------------------------------- final_ss = 0 'flushing the old values, final_mm = 0 'and setting the long types to '0' final_hh = 0 '--------------------------------- '[CHANGE DONE ON 16TH FEB 2005 IN THE BELOW GIVEN TIME LINE BY ADDING fr_val that is 25 frames more 'ACTUL PROGRAM IS ' total_frames = CLng(CLng(int_etl) + CLng(int_stl)) total_frames = CLng(CLng(int_stl) - CLng(int_etl)) ' Getting the diffrence of frames from start and end time 'total_frames = CLng(CLng(int_stl) - CLng(int_etl) - fr_val) ' Getting the diffrence of frames from start and end time 'calculating frames If total_frames > 25 Then ' Checking the total frames , which will decide that the frames left can make a frame or not final_fr = total_frames Mod fr_val ' Give you the frame sfrom the time line thats the reminder of the total frames when divided by 25 total_frames = total_frames - final_fr ' removing the frames from the total frames calculated above If total_frames >= 25 Then ' Checking the total frames , which will decide that the frames left can make a second or not If ((InStrRev(CStr((total_frames / fr_val)), ".")) - 1) > 0 Then ' Checking for the decimal place , and reciving the value for seconds quotient_second = CLng(Mid(CStr((total_frames / fr_val)), 1, ((InStrRev(CStr((total_frames / fr_val)), ".")) - 1))) ' getting the integer value of the floting value for seconds temp_second = (quotient_second Mod 60) ' putting seconds into temperory variable for calculating in seconds final_ss = temp_second ' storing the final seconds in the global variable Else quotient_second = CLng(total_frames / fr_val) ' getting the integer value of the integer value for seconds temp_second = (quotient_second Mod 60) ' putting seconds into temperory variable for calculating in minutes final_ss = temp_second ' storing the final seconds in the global variable End If total_frames = total_frames - (25 * final_ss) ' deducting the frames which have calculated the seconds from the total frames calculated above End If If total_frames >= max_frame_minute Then ' Checking the total frames , which will decide that the frames left can make a minute or not If ((InStrRev(CStr((quotient_second / 60)), ".")) - 1) > 0 Then ' Checking for the decimal place , and reciving the value for minutes quotient_minute = CLng(Mid(CStr((quotient_second / 60)), 1, ((InStrRev(CStr((quotient_second / 60)), ".")) - 1))) ' getting the integer value of the floting value for minutes temp_minute = (quotient_minute Mod 60) ' putting seconds into temperory variable for calculating in minutes final_mm = temp_minute ' storing the final minutes in the global variable Else quotient_minute = CLng(quotient_second / 60) ' getting the integer value of the integer value for minutes temp_minute = (quotient_minute Mod 60) ' putting minutes into temperory variable for calculating in minutes final_mm = temp_minute ' storing the final minutes in the global variable End If total_frames = total_frames - (25 * final_mm * 60) ' deducting the frames which have calculated the minutes from the total frames calculated above End If If total_frames >= max_frame_hour Then ' Checking the total frames , which will decide that the frames left can make a hour or not If ((InStrRev(CStr((quotient_minute / 60)), ".")) - 1) > 0 Then ' Checking for the decimal place , and reciving the value for hours quotient_hour = CLng(Mid(CStr((quotient_minute / 60)), 1, ((InStrRev(CStr((quotient_minute / 60)), ".")) - 1))) ' getting the integer value of the floting value for hours temp_hour = (quotient_hour Mod 60) ' putting minutes into temperory variable for calculating in minutes final_hh = temp_hour ' storing the final minutes in the global variable Else quotient_hour = CLng(quotient_minute / 60) ' getting the integer value of the integer value for hours temp_hour = (quotient_hour Mod 60) ' putting hours into temperory variable for calculating in minutes final_hh = temp_hour ' storing the final hours in the global variable End If End If Else final_fr = total_frames ' If the frames calculated in the diffrence final_ss = 0 ' are les than 25 , it is not calculated to HH:MM:SS final_mm = 0 ', it get stored in the final global variable , and other final_hh = 0 ' hours,minutes & frames will be set '0'. End If ' Closing the time line frame check '------------final program for calculating time-------------- '---------------------------STOP---------------------------- '---------------------------STOP---------------------------- End Sub Private Sub cal_add_time() '---------------------------START---------------------------- '---------------------------START---------------------------- '------------final program for calculating time-------------- fr_val = 25 ' Minimumm frame which can make a second [ for calculations ~ final_fr = 0 '-------------------------------- final_ss = 0 'flushing the old values, final_mm = 0 'and setting the long types to '0' final_hh = 0 '--------------------------------- '[CHANGE DONE ON 16TH FEB 2005 IN THE BELOW GIVEN TIME LINE BY ADDING fr_val that is 25 frames more 'ACTUL PROGRAM IS ' total_frames = CLng(CLng(int_etl) + CLng(int_stl)) total_frames = CLng(CLng(int_etl) + CLng(int_stl)) 'total_frames = CLng(CLng(int_etl) + CLng(int_stl) + fr_val) ' Getting the diffrence of frames from start and end time 'calculating frames If total_frames > 25 Then ' Checking the total frames , which will decide that the frames left can make a frame or not final_fr = total_frames Mod fr_val ' Give you the frames from the time line thats the reminder of the total frames when divided by 25 total_frames = total_frames - final_fr ' removing the frames from the total frames calculated above If total_frames >= 25 Then ' Checking the total frames , which will decide that the frames left can make a second or not If ((InStrRev(CStr((total_frames / fr_val)), ".")) - 1) > 0 Then ' Checking for the decimal place , and reciving the value for seconds quotient_second = CLng(Mid(CStr((total_frames / fr_val)), 1, ((InStrRev(CStr((total_frames / fr_val)), ".")) - 1))) ' getting the integer value of the floting value for seconds temp_second = (quotient_second Mod 60) ' putting seconds into temperory variable for calculating in seconds final_ss = temp_second ' storing the final seconds in the global variable Else quotient_second = CLng(total_frames / fr_val) ' getting the integer value of the integer value for seconds temp_second = (quotient_second Mod 60) ' putting seconds into temperory variable for calculating in minutes final_ss = temp_second ' storing the final seconds in the global variable End If total_frames = total_frames - (25 * final_ss) ' deducting the frames which have calculated the seconds from the total frames calculated above End If If total_frames >= max_frame_minute Then ' Checking the total frames , which will decide that the frames left can make a minute or not If ((InStrRev(CStr((quotient_second / 60)), ".")) - 1) > 0 Then ' Checking for the decimal place , and reciving the value for minutes quotient_minute = CLng(Mid(CStr((quotient_second / 60)), 1, ((InStrRev(CStr((quotient_second / 60)), ".")) - 1))) ' getting the integer value of the floting value for minutes temp_minute = (quotient_minute Mod 60) ' putting seconds into temperory variable for calculating in minutes final_mm = temp_minute ' storing the final minutes in the global variable Else quotient_minute = CLng(quotient_second / 60) ' getting the integer value of the integer value for minutes temp_minute = (quotient_minute Mod 60) ' putting minutes into temperory variable for calculating in minutes final_mm = temp_minute ' storing the final minutes in the global variable End If total_frames = total_frames - (25 * final_mm * 60) ' deducting the frames which have calculated the minutes from the total frames calculated above End If If total_frames >= max_frame_hour Then ' Checking the total frames , which will decide that the frames left can make a hour or not If ((InStrRev(CStr((quotient_minute / 60)), ".")) - 1) > 0 Then ' Checking for the decimal place , and reciving the value for hours quotient_hour = CLng(Mid(CStr((quotient_minute / 60)), 1, ((InStrRev(CStr((quotient_minute / 60)), ".")) - 1))) ' getting the integer value of the floting value for hours temp_hour = (quotient_hour Mod 60) ' putting minutes into temperory variable for calculating in minutes final_hh = temp_hour ' storing the final minutes in the global variable Else quotient_hour = CLng(quotient_minute / 60) ' getting the integer value of the integer value for hours temp_hour = (quotient_hour Mod 60) ' putting hours into temperory variable for calculating in minutes final_hh = temp_hour ' storing the final hours in the global variable End If End If Else final_fr = total_frames ' If the frames calculated in the diffrence final_ss = 0 ' are les than 25 , it is not calculated to HH:MM:SS final_mm = 0 ', it get stored in the final global variable , and other final_hh = 0 ' hours,minutes & frames will be set '0'. End If ' Closing the time line frame check '------------final program for calculating time-------------- '---------------------------STOP---------------------------- '---------------------------STOP---------------------------- End Sub

Further additional information

'Sushil K Sharma 'sharma_k_s@hotmail.com ' The variable below will Store maximum no of frames which can make a frame Dim fr_val As Long ' The variable below will Store all the strat time HH : MM: SS: FR Dim start_hour, start_minute, start_second, start_frame As Long ' The variable below will Store all the end time HH : MM: SS: FR Dim end_hour, end_minute, end_second, end_frame As Long ' The variable below will Store all the Quotient values of HH : MM: SS: FR Dim quotient_hour, quotient_second, quotient_minute, quotient_frame As Long ' The variable below will Store all the FR : SS : MM : HH variables for calucation of each other Dim temp_hour, temp_second, temp_minute, temp_frame As Long ' The variable below will Store the total no of frames in Startime, End time & will store the diffrence of both Dim int_stl, int_etl, total_frames As Long Const increment_time As Long = 25 Const max_frame_hour As Long = 90000 '-------CONSTANTS STORE-------- Const max_frame_minute As Long = 1500 ' store the maximum no of frames in HH : MM : SS Const max_frame_second As Long = 25 '----------------------- ' The variable below will final long variable which will store the values before display Dim final_hh, final_mm, final_ss, final_fr As Long ' The variable below will finanl Strings which will be displayed on screen Public str_final_hh, str_final_mm, str_final_ss, str_final_fr As String '\\\\\\\\\\\ The function below will grab all the variables in '\\\\\\\\\\\ Start time and will return the number of frames in it. Public Function start_time(hh As Long, mm As Long, ss As Long, fr As Long) As Long start_hour = CLng(hh) * 60 * 60 * 25 ' get number of frames in the start hour start_minute = CLng(mm) * 60 * 25 ' get number of frames in the start minutes start_second = CLng(ss) * 25 ' get number of frames in the start seconds start_frame = CLng(fr) ' get number of frames in the time line int_stl = start_hour + start_minute + start_second + start_frame ' summation all the frames in the start time line start_check_frames = 0 start_check_frames = int_stl End Function '\\\\\\\\\\\ The function below will grab all the variables in '\\\\\\\\\\\ End time and will return the number of frames in it. Public Function end_time(hh As Long, mm As Long, ss As Long, fr As Long) As Long end_hour = CLng(hh) * 60 * 60 * 25 ' get number of frames in the end hour end_minute = CLng(mm) * 60 * 25 ' get number of frames in the end minutes end_second = CLng(ss) * 25 ' get number of frames in the end seconds end_frame = CLng(fr) ' get number of frames in the time line int_etl = end_hour + end_minute + end_second + end_frame ' summation all the frames in the start time line end_check_frames = 0 end_check_frames = int_etl End Function Private Sub cal_diff_time() '---------------------------START---------------------------- '---------------------------START---------------------------- '------------final program for calculating time-------------- fr_val = 25 ' Minimumm frame which can make a second [ for calculations ~ final_fr = 0 '-------------------------------- final_ss = 0 'flushing the old values, final_mm = 0 'and setting the long types to '0' final_hh = 0 '--------------------------------- '[CHANGE DONE ON 16TH FEB 2005 IN THE BELOW GIVEN TIME LINE BY ADDING fr_val that is 25 frames more 'ACTUL PROGRAM IS ' total_frames = CLng(CLng(int_etl) + CLng(int_stl)) total_frames = CLng(CLng(int_stl) - CLng(int_etl)) ' Getting the diffrence of frames from start and end time 'total_frames = CLng(CLng(int_stl) - CLng(int_etl) - fr_val) ' Getting the diffrence of frames from start and end time 'calculating frames If total_frames > 25 Then ' Checking the total frames , which will decide that the frames left can make a frame or not final_fr = total_frames Mod fr_val ' Give you the frame sfrom the time line thats the reminder of the total frames when divided by 25 total_frames = total_frames - final_fr ' removing the frames from the total frames calculated above If total_frames >= 25 Then ' Checking the total frames , which will decide that the frames left can make a second or not If ((InStrRev(CStr((total_frames / fr_val)), ".")) - 1) > 0 Then ' Checking for the decimal place , and reciving the value for seconds quotient_second = CLng(Mid(CStr((total_frames / fr_val)), 1, ((InStrRev(CStr((total_frames / fr_val)), ".")) - 1))) ' getting the integer value of the floting value for seconds temp_second = (quotient_second Mod 60) ' putting seconds into temperory variable for calculating in seconds final_ss = temp_second ' storing the final seconds in the global variable Else quotient_second = CLng(total_frames / fr_val) ' getting the integer value of the integer value for seconds temp_second = (quotient_second Mod 60) ' putting seconds into temperory variable for calculating in minutes final_ss = temp_second ' storing the final seconds in the global variable End If total_frames = total_frames - (25 * final_ss) ' deducting the frames which have calculated the seconds from the total frames calculated above End If If total_frames >= max_frame_minute Then ' Checking the total frames , which will decide that the frames left can make a minute or not If ((InStrRev(CStr((quotient_second / 60)), ".")) - 1) > 0 Then ' Checking for the decimal place , and reciving the value for minutes quotient_minute = CLng(Mid(CStr((quotient_second / 60)), 1, ((InStrRev(CStr((quotient_second / 60)), ".")) - 1))) ' getting the integer value of the floting value for minutes temp_minute = (quotient_minute Mod 60) ' putting seconds into temperory variable for calculating in minutes final_mm = temp_minute ' storing the final minutes in the global variable Else quotient_minute = CLng(quotient_second / 60) ' getting the integer value of the integer value for minutes temp_minute = (quotient_minute Mod 60) ' putting minutes into temperory variable for calculating in minutes final_mm = temp_minute ' storing the final minutes in the global variable End If total_frames = total_frames - (25 * final_mm * 60) ' deducting the frames which have calculated the minutes from the total frames calculated above End If If total_frames >= max_frame_hour Then ' Checking the total frames , which will decide that the frames left can make a hour or not If ((InStrRev(CStr((quotient_minute / 60)), ".")) - 1) > 0 Then ' Checking for the decimal place , and reciving the value for hours quotient_hour = CLng(Mid(CStr((quotient_minute / 60)), 1, ((InStrRev(CStr((quotient_minute / 60)), ".")) - 1))) ' getting the integer value of the floting value for hours temp_hour = (quotient_hour Mod 60) ' putting minutes into temperory variable for calculating in minutes final_hh = temp_hour ' storing the final minutes in the global variable Else quotient_hour = CLng(quotient_minute / 60) ' getting the integer value of the integer value for hours temp_hour = (quotient_hour Mod 60) ' putting hours into temperory variable for calculating in minutes final_hh = temp_hour ' storing the final hours in the global variable End If End If Else final_fr = total_frames ' If the frames calculated in the diffrence final_ss = 0 ' are les than 25 , it is not calculated to HH:MM:SS final_mm = 0 ', it get stored in the final global variable , and other final_hh = 0 ' hours,minutes & frames will be set '0'. End If ' Closing the time line frame check '------------final program for calculating time-------------- '---------------------------STOP---------------------------- '---------------------------STOP---------------------------- End Sub Private Sub cal_add_time() '---------------------------START---------------------------- '---------------------------START---------------------------- '------------final program for calculating time-------------- fr_val = 25 ' Minimumm frame which can make a second [ for calculations ~ final_fr = 0 '-------------------------------- final_ss = 0 'flushing the old values, final_mm = 0 'and setting the long types to '0' final_hh = 0 '--------------------------------- '[CHANGE DONE ON 16TH FEB 2005 IN THE BELOW GIVEN TIME LINE BY ADDING fr_val that is 25 frames more 'ACTUL PROGRAM IS ' total_frames = CLng(CLng(int_etl) + CLng(int_stl)) total_frames = CLng(CLng(int_etl) + CLng(int_stl)) 'total_frames = CLng(CLng(int_etl) + CLng(int_stl) + fr_val) ' Getting the diffrence of frames from start and end time 'calculating frames If total_frames > 25 Then ' Checking the total frames , which will decide that the frames left can make a frame or not final_fr = total_frames Mod fr_val ' Give you the frames from the time line thats the reminder of the total frames when divided by 25 total_frames = total_frames - final_fr ' removing the frames from the total frames calculated above If total_frames >= 25 Then ' Checking the total frames , which will decide that the frames left can make a second or not If ((InStrRev(CStr((total_frames / fr_val)), ".")) - 1) > 0 Then ' Checking for the decimal place , and reciving the value for seconds quotient_second = CLng(Mid(CStr((total_frames / fr_val)), 1, ((InStrRev(CStr((total_frames / fr_val)), ".")) - 1))) ' getting the integer value of the floting value for seconds temp_second = (quotient_second Mod 60) ' putting seconds into temperory variable for calculating in seconds final_ss = temp_second ' storing the final seconds in the global variable Else quotient_second = CLng(total_frames / fr_val) ' getting the integer value of the integer value for seconds temp_second = (quotient_second Mod 60) ' putting seconds into temperory variable for calculating in minutes final_ss = temp_second ' storing the final seconds in the global variable End If total_frames = total_frames - (25 * final_ss) ' deducting the frames which have calculated the seconds from the total frames calculated above End If If total_frames >= max_frame_minute Then ' Checking the total frames , which will decide that the frames left can make a minute or not If ((InStrRev(CStr((quotient_second / 60)), ".")) - 1) > 0 Then ' Checking for the decimal place , and reciving the value for minutes quotient_minute = CLng(Mid(CStr((quotient_second / 60)), 1, ((InStrRev(CStr((quotient_second / 60)), ".")) - 1))) ' getting the integer value of the floting value for minutes temp_minute = (quotient_minute Mod 60) ' putting seconds into temperory variable for calculating in minutes final_mm = temp_minute ' storing the final minutes in the global variable Else quotient_minute = CLng(quotient_second / 60) ' getting the integer value of the integer value for minutes temp_minute = (quotient_minute Mod 60) ' putting minutes into temperory variable for calculating in minutes final_mm = temp_minute ' storing the final minutes in the global variable End If total_frames = total_frames - (25 * final_mm * 60) ' deducting the frames which have calculated the minutes from the total frames calculated above End If If total_frames >= max_frame_hour Then ' Checking the total frames , which will decide that the frames left can make a hour or not If ((InStrRev(CStr((quotient_minute / 60)), ".")) - 1) > 0 Then ' Checking for the decimal place , and reciving the value for hours quotient_hour = CLng(Mid(CStr((quotient_minute / 60)), 1, ((InStrRev(CStr((quotient_minute / 60)), ".")) - 1))) ' getting the integer value of the floting value for hours temp_hour = (quotient_hour Mod 60) ' putting minutes into temperory variable for calculating in minutes final_hh = temp_hour ' storing the final minutes in the global variable Else quotient_hour = CLng(quotient_minute / 60) ' getting the integer value of the integer value for hours temp_hour = (quotient_hour Mod 60) ' putting hours into temperory variable for calculating in minutes final_hh = temp_hour ' storing the final hours in the global variable End If End If Else final_fr = total_frames ' If the frames calculated in the diffrence final_ss = 0 ' are les than 25 , it is not calculated to HH:MM:SS final_mm = 0 ', it get stored in the final global variable , and other final_hh = 0 ' hours,minutes & frames will be set '0'. End If ' Closing the time line frame check '------------final program for calculating time-------------- '---------------------------STOP---------------------------- '---------------------------STOP---------------------------- End Sub

---

Rate this article on a scale of 1 to 10 (0 votes, average 0)

Your vote : 1 2 3 4 5 6 7 8 9 10  

Updating...

<< System.XML		.NET and XML (67)Ajax (2)BizTalk (55)CSS (114)JavaScript (64)LAMP (6)Microsoft ASP (90)PHP XML (89)reBlogger (0)Schemas, xsd, xdr (45)SEO (3)SQL XML (76)System.XML (39)Uncategorized (137)WCF, WS, SOAP (55)XALAN (22)XHTML (97)XML DOM (119)XmlSerializer (34)XQuery (24)XSLT (252)	WCF, WS, SOAP >>

Updating comments...

---

Updating comments...

Leave a comment for this article
Your name
Your email (optional)
Your comment
Optional: Upload an attachment
Enter the code shown: