Format datetime in string

John Smithy

• April 02, 2020 07:08

I have a barcode that I push data to that contains text and date however I would like to format the date to either just the month and the last two digits of the year or just the last two digits of the year. I tried this code but I keep getting this error Sub of function not defined

 

dim p
p= "2ID589517531 5/31/2019 1:45:00 PM"
If Format.NamedSubStrings("csn").Value like p then
value = value=right(Format.NamedSubStrings("csn").Value,13,YY)
end if

0

• 

  Peter Thane

  ★ BarTender Hero ★

  • April 08, 2020 13:48

  The Like command is not present in VB script.

  If the data string is always the same length you could just extract the date elements you want from the string something like this (there are probably better ways to code it , but this works)

  Value = Format.NamedSubStrings("csn").Value

  Value = Right(Value,21)

  Value1 = Left(Value,10)

  Value2 = Left(Value1,2)

  Value3 = Right(Value1,2)

  Value = Value2 & "/" & Value3

   

  (You may have to make this and event controlled script to be processed after the barcode data is entered, such as OnIndenticalCopies for example)

  0

Please sign in to leave a comment.