|
|
|
Click here to copy the following block |
Function RotateLeft(ByVal value As Long, ByVal times As Long) As Long Dim i As Long, signBits As Long times = times Mod 32 If times = 0 Then RotateLeft = value: Exit Function For i = 1 To times signBits = value And &HC0000000 value = (value And &H3FFFFFFF) * 2 value = value Or ((signBits < 0) And 1) Or (CBool(signBits And _ &H40000000) And &H80000000) Next RotateLeft = value End Function |
|
|
|
Submitted By :
Nayan Patel
(Member Since : 5/26/2004 12:23:06 PM)
|
|
|
Job Description :
He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting. |
View all (893) submissions by this author
(Birth Date : 7/14/1981 ) |
|
|