Calculate the time elapsed between two dates. Option ExplicitPublic Function ElapsedTime(tStart, tStop) As String’ *******************************************************************’ Function Name : ElapsedTime *’ Created By : Herry Hariry Amin *’ Email : h2arr@cbn.net.id *’ Language : VB4, VB5, VB6 *’ Example : sYourVariable = ElapsedTime(tStartTime,tStopTime) *’ *******************************************************************    Dim dtr, dtl, jml As Long    dtl = (Hour(tStart) * 3600) + (Minute(tStart) *… Read More »

This is a very simple way to get just the full directory path of a file passed in. Public Function GetTheFilePath(ByVal strFile) As String   Files = Split(strFile, “\”)   For I = 0 to (UBound(Files) – 1)      FilePath = FilePath & Files(I) & “\”   Next   GetTheFilePath = FilePathEnd Function Usage MyFilePath = GetTheFilePath(“C:\testing\jim\file.txt”) will return: C:\testing\jim\

This handy little function will determine if a value is present in an array, and return true or false. Option Explicit Public Function IsInArray(FindValue As Variant, arrSearch As Variant) As Boolean   On Error GoTo LocalError   If Not IsArray(arrSearch) Then Exit Function   If Not IsNumeric(FindValue) Then FindValue = UCase(FindValue)   IsInArray = InStr(1, vbNullChar & Join(arrSearch, vbNullChar) & vbNullChar, _vbNullChar & FindValue & vbNullChar)… Read More »

Ever wonder how to return multiple files using the CommonDialog control? Here is a short demonstration of how to get it done. Private Sub cmdOpen_Click()   Dim sFileNames() As String   Dim iCount As Integer    cd.Filter = “All Files|*.*”   cd.Flags = cdlOFNAllowMultiselect   cd.ShowOpen    If cd.FileName <> “” Then      sFileNames = Split(cd.FileName, Chr(32))      For iCount = LBound(sFileNames) To UBound(sFileNames)         MsgBox sFileNames(iCount), vbInformation      Next    End IfEnd Sub

Just a little something to help you do math in different numbering systems. Option Explicit ‘Convert a decimal number in another basePublic Function CBase(ByVal number As Long, ByVal base As Long) As String   ‘symbols to code the number   Const chars = “0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”   Dim r As Long    ‘verify if there are enought symbols to code the number in the selected base   If base… Read More »

These two function provide a simple method to encrypt and decrypt a string. Simply drop this code in to a module, and it is ready for use. Option Explicit Public Function Encrypt(ByVal icText As String) As StringDim icLen As IntegerDim icNewText As StringicChar = “”   icLen = Len(icText)   For i = 1 To icLen      icChar = Mid(icText, i, 1)      Select Case Asc(icChar)         Case… Read More »

This tip is based on existing tip (but with some bugfixes and explanation). The code should be treated as an example, e.g. more treating needed of other kinds of values Usage Dim CompName, sSMS_Site, sSMS_Travel As String CompName = “\\MyComputerName” sSMS_Site = ReadRemoteReg(CompName, HKEY_LOCAL_MACHINE, _ &nsbp; “SOFTWARE\Microsoft\Windows NT\CurrentVersion”, “SystemRoot”) Attachments File Uploaded Size 970-20190822-170650-remotereg.zip 8/22/2019 5:06:50 PM 2583

Here is another take on registry management. See the attached ZIP file for the source code. Usage Public Function GetShellFolder(sFolder As String) As String ‘ handle of the registry key to be accessed   Dim hKey As Long’ path of the folder being sought (returned by function)   Dim sFolderName As String’ path of the Shell Folders key in the registry   Dim sShellFoldersPath… Read More »

Working with the registry is no longer a chore, thanks to this handy module. In the attached module, you’ll find functions to add, remove, and change keys and values in the Windows Registry. Attachments File Uploaded Size 455-20190822-164748-regmodule.zip 8/22/2019 4:47:48 PM 2460

This function will allow you to easily get the username of the currently logged on user. Just pop it in to a module, and you’re good to go. Private Declare Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” (ByVal lpBuffer As String, nSize As Long) As Long Public Function UserName() As String   Dim cn As String   Dim ls As Long   Dim res As… Read More »