1 minute read

OK, so maybe no one will ever need it but I did (or so I thought) so after not finding code available, I wrote it.

Basically, I needed to make a timestamp in an old version of ASP.  There are a few date string conversions in the VB of ASP but not the one I needed.  The newer ASP.NET has a richer collection but that was not the engine of the day.

I ended up with a function:

' Convert number to string with leading zero if needed
' Accepts 0 and up
' if 0-9 return 00, 01, ... 09
' if > 10 < 99 return number as text
' if > 100, modulus number to between 0 and 99

Function Return2CharForNumber( Value )
  TwoDigit = Value Mod 100
  If (TwoDigit > 9) Then
    Return2CharForNumber = CStr(TwoDigit)
    Return2CharForNumber = "0" & CStr(TwoDigit)
  End If
End Function

which was used like this for a timestamp:

  ThisYear = Return2CharForNumber(year(date()))
  ThisMonth = Return2CharForNumber(month(date()))
  ThisDay = Return2CharForNumber(day(date()))
  TimeStamp = ThisYear & ThisMonth & ThisDay

Nothing to brag about but I wanted to put out there in case it was any use to anyone (including me at a later time).

Now the sad truth, after writing it, debugging it, and deploying it – the interface changed back close to what was already in the code so the above is no longer needed.



Original post:

Leave a comment