Ulepszona wersja Funkcji STR

Funkcja STR konwertuje cyfre na String. Niestety konwertując np liczbę 5 otrzymujemy " 5" Czasami ta spacja jest niewygodna, jak np chcemy utoworzyć plik o nazwie XXX+liczba+".dat" Mnie to denerwuje i dlatego napisałem funkcję STR2 która nie zostawia na początku Spacji (z liczby 5 otrzymujemy "5") Funkcja nie maże minusa przy liczbach ujemnych (liczby ujemne przy funkcji STR nie mają na początku spacji) Oto ta funkcja :

Public Function STR2(X As Variant) As String
' Ulepszona wersja funkcji STR
STR2 = Trim(X)
End Function

A oto przykład wykorzystania tej funkcji :

Dim A As Byte
For A = 1 To 3
MsgBox "PLIK" + STR2(A) + ".DAT"
' A to efekt instrukcji STR, usuń komentarz, aby zobaczyć różnice
' MsgBox "PLIK" + Str(A) + ".DAT"
Next A

Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze.

Powered by AkoComment 2.0!