|
Visual Basic (VB and VBA) |
|
Copyright 1999-2001 Christopher Greaves. All rights reserved. Home Page and email to [email protected] |
| If in doubt, record a macro and inspect the entrails! |
Please read the DISCLAIMER.
Here is an INDEX to all the procedures.
You will probably need one copy of my GLOBAL DECLARATIONS.
Public Function strFmtDec(lngValue, Optional intPlaces As Integer = 0) As String
' Procedure : strFmtDec
' Description: Simple format of a numeric value.
' Copyright: Chris Greaves Inc.
' Inputs: Variant value, INTEGER number of decimal places
' Returns: STRING.
' Assumes: None.
' Side Effects: None.
' Tested: By the calls below.
Dim strFmt As String
strFmt = "#,##0"
If intPlaces < 0 Then
Else
If intPlaces = 0 Then
strFmtDec = Format(lngValue, strFmt)
Else
strFmt = strFmt & "." & String(intPlaces, "0")
strFmtDec = Format(lngValue, strFmt)
End If
End If
'Sub TESTstrFmtDec()
'MsgBox strFmtDec(1234567) ' 1,234,567
'MsgBox strFmtDec(1234567, -2) '
'MsgBox strFmtDec(1234567, 0) ' 1,234,567
'MsgBox strFmtDec(1234567, 4) ' 1,234,567.0000
'MsgBox strFmtDec(-1234567) ' -1,234,567
'End Sub
End Function
| We all knew nothing when we started … |
|
Home Page and Contact Information Send email to [email protected]. This page was last updated Thursday, November 15, 2001 |