• Home
 · 
• VB function enhancement
 · 
• UDMX® AIntervals

UDMX® AIntervals

<< You will need to see to understand >>This a function that I have made which gets the Years,Days,Hours,Minutes,and Seconds by two dates. For example... Let say you want to see how long it is between this ( From 2/12/2001 2:30:10 PM To 2/12/2002 3:32:05 PM ) Well it is exactly 1 year, 0 days, 1 hour, 1 minute, and 55 seconds. See that??? It pretty simple to the eye of a Mathimatician but it is hard for some ppl. This is really a big help when it comes to a chat software because let say you want to know how long a user has been online since they log on... see ^_^ very useful... This code < function > is completely free.. The preview of the code in VBC is messed up so please copy and paste it in the text form.. thx bye ***This is extremely useful. Don't think so??? then don't vote for me but if you know < or think> that this code is very useful... Please Please Vote for me...^_^ I alway try to create the stuff that hasn't been avaiable for free. This is one of the two that I have made. CHECK OUT THE UDMX® HL RTB. Trust me you need to see that one. https://www.vbcoders.com/vb/scripts/ShowCode.asp?txtCodeId=29415&lngWId=1 that is the link for code and this is the screen shot: https://www.vbcoders.com/upload/ScreenShots/PIC2002211322258976.jpg ( Please take a minute and vote ^_^ )

Rate UDMX® AIntervals

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'This is the correct comments format'
Public Function AIntervals(FDate, SDate, URformat) As String
 '^_^ all my softwares and API codes are 
 ' usually copyrighted © but with the funct
 ' ions
 'I give out it freely ^_^
 'But please (if you can) please put my n
 ' ame ( UDMX IOCP® ) on your software ( <=
 ' > you make 1 )
 Dim xY, xD, xH, xN, xS
 xY = DateDiff("yyyy", FDate, SDate)
 xD = DateDiff("D", FDate, SDate)
 xH = DateDiff("H", FDate, SDate)
 xN = DateDiff("N", FDate, SDate)
 xS = DateDiff("S", FDate, SDate)
 Dim VarD, VarH, VarN, VarS
 S1:
 VarD = xD - (xY * 365)
 If VarD < 0 Then		'If the date is negative then
 VarD = -VarD + 365	'It takes the 365 from the years then add it to the opposite of it self
 xY = xY - 1	'Since it took the 365 from the years, then the year must be subtract by 1
 End If
 S2:
 VarH = xH - (xD * 24)
 If VarH < 0 Then		'If the hour is negative then
 VarH = -VarH + 24	'It takes the 24 from the days then add it to the opposite of it self
 xD = xD - 1	'Since it took the 24 from the days, then the date must be subtract by 1
 GoTo S1 	'After this you will need to go back and recalculate *note that the date does not need to do this*
 End If
 S3:
 VarN = xN - (xH * 60)
 If VarN < 0 Then		'If the hour is negative then
 VarN = -VarN + 60	'It takes takes the 60 from the days then ad it to the opposite of it self
 xH = xH - 1	'Since it took the 60 from the days, then the days must be subtract by 1
 GoTo S2		'After this it will need to go back and recalculate
 End If
 VarS = xS - (xN * 60)
 If VarS < 0 Then	'If the minute is negative then
 VarS = -VarS + 60	'It takes takes the 60 from the hours then ad it to the opposite of it self
 xN = xN - 1	'Since it took the 60 from the hours, then the hours must be subtract by 1
 GoTo S3		'After this it will need to go back and recalculate
 End If
 AIntervals = Replace(Replace(Replace(Replace(Replace(LCase(URformat), "yyyy", xY), "d", VarD), "h", VarH), "n", VarN), "s", VarS)		'This is a multi replace function that I used.
' All it does is replace the variable that you have inserted to this function
End Function