How can I add leading zeroes to a number? For example:
Dim stracctnumber as String
stracctnumber = 987654321
If stracctnumber is less than 15 characters, then add leading zeroes to the account number.
The final number should be
stracctnumber = "000000987654321"
Can anyone help me?
stracctnumber = Format(stracctnumber, String(15, "0"))
strAcct = Right("000000000000000" & strAcct, 15)
Note that concatenation is relatively expensive . If this is just for display, rather than modifying the underlying value, consider using the Format() function.
B8 = Format((Format(B2, "###,###")), "@@@@@@@")
This is to add spaces to left.
WORKS GREAT in VBA Excel.....
Win.ShellExecute 0, "open", "C:dirprogram.exe", "arguments", vbNullString, SW_SHOWNORMAL Win.ShellExecute 0, "open", "http://www.google.com", vbNullString, vbNullString, SW_SHOWNORMAL I want google....
I have a stored procedure in Sql Server 2005 with a varchar input parameter defined as: @Value varchar(24) = NULL in my VB6 application I try to set the parameter with an ADO function: Set ...
Using VB6 In a folder, i have n number of files, i want to delete a 0 kb files code Dim filename5 As String filename5 = Dir$(txtsourcedatabasefile & "*_*", vbDirectory) MsgBox filename5 Do ...
Using VB6 I have the text file with different sizes, so i want to delete the file where filesize = 0 kb. How to make a vb6 code for deleting the 0 kb files. Need vb6 code Help
I m using VB6 and I have a folder where I have n number of files. I want to change the file extension to .txt. I used the code below to change the extension of all .fin files to .txt. Dim filename1 ...
I m using Crystal Reports in my VB6 project, but I m facing error while loading the report in crystalreport1.action=1; Please give me some solution for this problem. It is showing the error as Error ...
When running my vb6 application I am getting error like, runtime error 53 : file not found: rscomclNoMsg.dll then i tried to register that dll from cmd line using regsvr32. Then I am getting ...
How to determine if a Transaction is active i.e. before issuing Begin Transaction I want to ensure that no previous transaction are open.. the platform is VB6, MS-SQL Server 2000 and ADO 2.8