Prikazi cijelu temu 08.06.2017 19:43
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: određivanje razmaka između podataka
ja sam se dugo zanimao sa ovakav nacin printajna evo ti od mene jedo resenje.
PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function AlignLeftString(N, s)
  2.   If Len(s) >= N Then
  3.     AlignLeftString = Mid$(s, 1, N)
  4.   Else
  5.     AlignLeftString = s & String(N - Len(s), " ")
  6.   End If
  7. End Function
  8.  
  9. Public Function AlignRightString(N, s)
  10.   If Len(s) >= N Then
  11.     AlignRightString = Mid$(s, 1, N)
  12.   Else
  13.     AlignRightString = String(N - Len(s), " ") & s
  14.   End If
  15. End Function
  16.  
  17. Public Function AlignCenterString(N As Integer, s As String)
  18. Dim Razlika As Integer
  19.   Razlika = N - Len(s)
  20.   If Razlika > 0 Then
  21.     AlignCenterString = String(Int(Razlika / 2), " ") & s & String(Int(Razlika / 2), " ")
  22.   Else
  23.    AlignCenterString = Mid$(s, 1, N)
  24.   End If
  25. End Function