General Formatting Functions

Public Function AddIfNotMt(s As Variant, prefix As String, suffix As String) As String

Add the prefix and suffix to the string if the string is not empty

Public Sub AddToControlText(c As Control, s As String, Optional Delimiter As String = vbCrLf)

Add text to a control, separated by a delimiter, unless the text is already present. This is useful for adding text from a combo list of selections to a textbox.

Public Sub AddToStringText(ByRef baseStr As String, s As String, Optional Delimiter As String = vbCrLf)

Add text to a control, separated by a delimiter, unless the text is already present.

Public Sub AuditTimes(ByRef TotalHours As Long, ByRef TotalMins As Long)

Correct the results of summing separate hour and minute settings.
eg. 2 hrs, 190 min will be corrected to 5 hrs, 10 mins The hour and minute vars are passed ByRef and corrected 'in place'.
If the minute var is less than 60, no changes are made.


Public Function CollectionAsArray(coll As Collection) As Variant

Return the collection values as a zero based array of variants

Public Function CollectionAsDelimList(coll As Collection, Optional Delimiter As String = ",", Optional QuoteType As xf_QuoteTypeEnum = None) As String

Return the collection values as a delimited string, optionally quoting each element

Public Function DisplayFileSize(ByteCount As Single) As String

Display file size formatted to show bytes, kB, MB, GB.


Public Function DisplayHrMin(Hrs As Variant, Mins As Variant) As String

Display hours and minutes in friendly form.
The input vars are variants, and will be coerced to Long before calculating. Also calls AuditTimes() to correct values before calculating.


Public Function FindIntInArray(i As Long, ArrayVar As Variant) As Long

See if the integer/long is a member of the array of integers Returns the array index matching the integer or -1 if not located.


Public Function GetTimeAgo(d As Date) As String

Get time in the past as a short phrase: eg. today, yesterday, 6 days ago, three weeks ago, 20 months ago

Public Function IntInParamList(i As Long, ParamArray TestInts()) As Boolean

Is the integer/long is a member of the list of integers ?

Public Function MakeTextVertical(s As String) As String

Make test vertical by placing a return after every letter.
Mainly used prior to Access 2000 when vertical text was not a format option.

Public Function NumberWithSuffix(number As Variant) As String

Return the number with the correct suffix, eg 1st, 2nd, 3rd, 4th, 5th, etc

Public Function subst(text As String, ParamArray ValueList()) As String

Parameter substitution: substitute the passed values for %1, %2 etc in the string

Public Function subst_array(text As String, ArrayVar As Variant) As String

Parameter substitution: substitute the values in the passed array for %1, %2 etc in the string