Converting and Zero Fill Fields

[Rocky0201]

Hi Folks...

I have a few fields that I need to convert in VBA.

Location ID Field - This is a numeric value 1 to 4 characters in length. I need to convert to Text, Right Justify and zero fill to 4 characters. ex: 1 needs to be 0001, 0 needs to be 0000, 22 needs to be 0022.

Zip Code Field - This ia a Zipcode field in my spreadsheet. I need to right justfy and fill with zeros. ex: 1234 needs to be 01234.

Date field - This is formated as mm/dd/yyyy. I need to convert this to the sequence number, right justify, zero fill. ex: 08/01/2011 needs to be Text 40756.

Time Field - This is formated as HH:MM AM or PM. I need to convert this to 24 hour clock.

Any help would greatly be appreciated.

Thanks in advance.

 

[austin350s10]

is this for a userform, range, column, row, or cells?

 

[Rick Rothstein]

I guess you are looking for something like these...

Location ID Field - This is a numeric value 1 to 4 characters in length. I need to convert to Text, Right Justify and zero fill to 4 characters. ex: 1 needs to be 0001, 0 needs to be 0000, 22 needs to be 0022.

LocationID = Format(OriginalLocationID, "0000")

Zip Code Field - This ia a Zipcode field in my spreadsheet. I need to right justfy and fill with zeros. ex: 1234 needs to be 01234.

ZipCode = Format(OriginalZipCode, "00000")

Date field - This is formated as mm/dd/yyyy. I need to convert this to the sequence number, right justify, zero fill. ex: 08/01/2011 needs to be Text 40756.

DateField = CLng(OriginalDateField)

Time Field - This is formated as HH:MM AM or PM. I need to convert this to 24 hour clock.

TimeField = Format(OriginalTimeField, "hh:mm")

 

[Rocky0201]

Thank you very much!!!