String Problem - Xtreme Visual Basic Talk

08-10-2004, 05:21 PM

DANY

Centurion

Join Date: Jun 2001

Posts: 128

String Problem

Hello to all,

Assume I have a field length of 10 digits long, a string type and the last four digits are considered to be the YEAR. Sometimes the user will enter it as shown below but i want it to be padded with leading zeros and also to pad the year

Code:

Before          After   (what I am looking for)
234/03        00024/2003
54576/99      54576/1999
567A/02       0567A/2002
78/98         00078/1998
786/2004      00786/2004

I need a funciton to pass the string value and as I type the value in the textbox, it will becomes as shown in the (AFTER) (what I am looking for.

thanks for any help.

Last edited by herilane; 08-11-2004 at 05:35 AM. Reason: [code] tags to line up the columns

08-10-2004, 06:33 PM

b0b

Contributor

Join Date: Jul 2003

Posts: 741

im sure there's a better way but this works

Code:

Dim TmpStr() As String
 
TmpStr = Split("786/2004", "/")
 
TmpStr(0) = Format$(TmpStr(0), "00000")
 
If Len(TmpStr(1)) < 4 Then  'if they've enter full year dont bother formatting
    If TmpStr(1) >= 0 And TmpStr(1) < 90 Then  'checks year
        TmpStr(0) = TmpStr(0) & "/" & Format$(TmpStr(1), "2000")
    Else
        TmpStr(0) = TmpStr(0) & "/" & Format$(TmpStr(1), "1900")
    End If
Else
    TmpStr(0) = TmpStr(0) & "/" & TmpStr(1)
End If
 
MsgBox TmpStr(0)

Last edited by b0b; 08-10-2004 at 06:39 PM.

08-10-2004, 08:12 PM

DANY

Centurion

Join Date: Jun 2001

Posts: 128

Hi,
Seems to work but if you have something like this,
it does not padd the leading zeros.

TmpStr = Split("786A/2004", "/")

its becomes 0786/2004

should be 0786A/2004

good job. make life easier.

thanks a bunch

Quote:

Originally Posted by b0b

im sure there's a better way but this works

Code:

Dim TmpStr() As String
 
TmpStr = Split("786/2004", "/")
 
TmpStr(0) = Format$(TmpStr(0), "00000")
 
If Len(TmpStr(1)) < 4 Then  'if they've enter full year dont bother formatting
    If TmpStr(1) >= 0 And TmpStr(1) < 90 Then  'checks year
        TmpStr(0) = TmpStr(0) & "/" & Format$(TmpStr(1), "2000")
    Else
        TmpStr(0) = TmpStr(0) & "/" & Format$(TmpStr(1), "1900")
    End If
Else
    TmpStr(0) = TmpStr(0) & "/" & TmpStr(1)
End If
 
MsgBox TmpStr(0)

08-11-2004, 04:23 AM

b0b

Contributor

Join Date: Jul 2003

Posts: 741

Didn't notice the letters, well if you want to fix that then you can use the IsNumeric function, before you format the first half of the value check to see if it has letters in it. If IsNumeric returns false (its not a number) then use the String$ function to maually format the value by sticking the right number of zeros to the left of the value.