FormatX$ in QB64

[eoredson]

https://qb64phoenix.com/forum/showthread.php?tid=2554

That is more to the point of what I was writing:

Code: (Select All)

Print Format(12345, "###,###")

Print Format(12345, "$###,###")

Print Format(Timer, "###,###.#####")

Function Format$ (num, using$)

  Static tempimage

  If tempimage = 0 Then tempimage = _NewImage(80, 1, 0)

  d = _Dest: s = _Source

  _Dest tempimage: _Source tempimage

  Cls

  Print Using using$; num;

  For i = 1 To 80

      p = Screen(1, i)

      If p = 0 Then Exit For

      text$ = text$ + Chr$(p)

  Next

  _Dest d: _Source s

  Format$ = text$

End Function

I wrote a FormatX$ function to parse date/time such as: HH:MM:SS