Custom Date Code

Robert Vermaak

• January 25, 2022 14:14

I need to print a custom date code on a label. The problem is that the "custom" date format doesn't allow for this.

The date code format is as follows

If the current week of the year is 23 the number needs to be reversed to 32 and then split apart . Then the day of the week  lets say 4 is the second number and the 3rd number can be 0 .

So the date code I need is 3402 .

Now uu is the date code for day of the week and WW is the week of the year I need.

Now this doesn't sound that hard but I can't find a way to use VB in bartender to access the Now('uu') or Date('uu') or any other form of "uu" .

I have managed to do this by creating a txt and pointing it to WW

Then create a txt field and transform it using 

 

temp = Format.NamedSubStrings("WeekOfYear").Value

tempReV = StrReverse(temp)

Value = Left(tempReV, 1)

And then doing the other side 

Then create a 4th txt and do the following transform

WoYL = Format.NamedSubStrings("WeekOfYearLeft").Value
WoYR = Format.NamedSubStrings("WeekOfYearRight").Value
DagOfWeek = Format.NamedSubStrings("DayOfWeek").Value
Zero = "0"

Value = WoYL + DagOfWeek + Zero + WoYR

 

Now this "works" but it seems that there should be a better/easier/more stable way of doing this ?

 

0

• 

  Peter Thane

  ★ BarTender Hero ★

  • January 25, 2022 16:03

  You dont actually need to use VB:

  If you add on a Date field to your label and set the pattern to custom with a WW format this will calculate the week of the year amount 

  

  That field does not need to be on the label but just needs to be referenced by the following field.

  For your actual data field you need to make that up of 3 or 4 substrings. 

  1. String 1 needs to be set as a Object Field that is linked to the week of the year field above. You then need to go into the Transforms and Truncation and set the keep characters on right to 1.
  2. String is set as a date field and, as above, the format needs to be set to Custom and the pattern as u
  3. String 3 is optional, you could either add this as 0 embedded text string or else add the zero as a suffix to string 3 or prefix to string 4
  4. String 4 is the same as string 1 other than the you need to set it to keep character on left to 1.

  You should end up with something like the image below

  

  0
• 

  Robert Vermaak

  ★ BarTender Hero ★

  • January 26, 2022 07:41

  Thanks for the help , I knew there had to be a better way.

  If it was possible to get Now("WW") it would be possible to achieve all this in one label and a bit of script.

  Anyway Thanks for help it looks a lot cleaner and is easier to reproduce.

  0
• 

  Robert Vermaak

  ★ BarTender Hero ★

  • January 26, 2022 09:19

  I have another DateCode that I need to setup , it is based on a matrix and i have no idea where to start .

  The sample of the matrix is as follows

  Day         1             2           3           4

  Jan         A1           B1         C1        D1

  Feb        A3           B3          C3        D3

   

  Was thinking of do it in VB maybe create a JulianDate txt with the jjj format add a txt field with vb script

   

  If Format.NamedSubStrings("JulianDate").Value = 026 Then
  X = "Z1"

  Elseif Format.NamedSubStrings("JulianDate").Value = 027 Then
  X = "11"

  End if

  Value = X

   

  Is there a way I am missing ?

  0
• 

  Robert Vermaak

  ★ BarTender Hero ★

  • January 27, 2022 09:52

  If anyone is interested or can help with a shorter/better solution

   

  'January
  If Format.NamedSubStrings("ddMMDate").Value = "01/01" Then
  X = "A1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/02" Then
  X = "B1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/03" Then
  X = "C1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/04" Then
  X = "D1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/05" Then
  X = "E1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/06" Then
  X = "F1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/07" Then
  X = "G1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/08" Then
  X = "H1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/09" Then
  X = "I1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/10" Then
  X = "J1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/11" Then
  X = "K1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/12" Then
  X = "L1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/13" Then
  X = "M1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/14" Then
  X = "N1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/15" Then
  X = "O1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/16" Then
  X = "P1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/17" Then
  X = "Q1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/18" Then
  X = "R1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/19" Then
  X = "S1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/20" Then
  X = "T1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/21" Then
  X = "U1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/22" Then
  X = "V1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/23" Then
  X = "W1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/24" Then
  X = "X1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/25" Then
  X = "Y1"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/26" Then
  X = "Z1"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "01/27" Then
  X = "11"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "01/28" Then
  X = "21"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/29" Then
  X = "31"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/30" Then
  X = "41"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "01/31" Then
  X = "51"

  'January

  'February

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/01" Then
  X = "A3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/02" Then
  X = "B3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/03" Then
  X = "C3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/04" Then
  X = "D3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/05" Then
  X = "E3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/06" Then
  X = "F3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/07" Then
  X = "G3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/08" Then
  X = "H3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/09" Then
  X = "I3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/10" Then
  X = "J3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/11" Then
  X = "K3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/12" Then
  X = "L3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/13" Then
  X = "M3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/14" Then
  X = "N3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/15" Then
  X = "O3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/16" Then
  X = "P3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/17" Then
  X = "Q3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/18" Then
  X = "R3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/19" Then
  X = "S3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/20" Then
  X = "T3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/21" Then
  X = "U3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/22" Then
  X = "V3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/23" Then
  X = "W3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/24" Then
  X = "X3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/25" Then
  X = "Y3"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/26" Then
  X = "Z3"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "02/27" Then
  X = "13"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "02/28" Then
  X = "23"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/29" Then
  X = "33"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/30" Then
  X = "43"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "02/31" Then
  X = "53"

  'February

  'March

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/01" Then
  X = "A5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/02" Then
  X = "B5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/03" Then
  X = "C5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/04" Then
  X = "D5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/05" Then
  X = "E5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/06" Then
  X = "F5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/07" Then
  X = "G5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/08" Then
  X = "H5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/09" Then
  X = "I5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/10" Then
  X = "J5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/11" Then
  X = "K5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/12" Then
  X = "L5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/13" Then
  X = "M5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/14" Then
  X = "N5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/15" Then
  X = "O5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/16" Then
  X = "P5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/17" Then
  X = "Q5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/18" Then
  X = "R5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/19" Then
  X = "S5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/20" Then
  X = "T5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/21" Then
  X = "U5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/22" Then
  X = "V5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/23" Then
  X = "W5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/24" Then
  X = "X5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/25" Then
  X = "Y5"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/26" Then
  X = "Z5"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "03/27" Then
  X = "15"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "03/28" Then
  X = "25"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/29" Then
  X = "35"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/30" Then
  X = "45"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "03/31" Then
  X = "55"

  'March

  'April

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/01" Then
  X = "A7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/02" Then
  X = "B7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/03" Then
  X = "C7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/04" Then
  X = "D7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/05" Then
  X = "E7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/06" Then
  X = "F7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/07" Then
  X = "G7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/08" Then
  X = "H7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/09" Then
  X = "I7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/10" Then
  X = "J7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/11" Then
  X = "K7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/12" Then
  X = "L7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/13" Then
  X = "M7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/14" Then
  X = "N7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/15" Then
  X = "O7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/16" Then
  X = "P7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/17" Then
  X = "Q7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/18" Then
  X = "R7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/19" Then
  X = "S7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/20" Then
  X = "T7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/21" Then
  X = "U7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/22" Then
  X = "V7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/23" Then
  X = "W7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/24" Then
  X = "X7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/25" Then
  X = "Y7"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/26" Then
  X = "Z7"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "04/27" Then
  X = "17"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "04/28" Then
  X = "27"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/29" Then
  X = "37"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/30" Then
  X = "47"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "04/31" Then
  X = "57"

  'April

  'May

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/01" Then
  X = "A9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/02" Then
  X = "B9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/03" Then
  X = "C9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/04" Then
  X = "D9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/05" Then
  X = "E9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/06" Then
  X = "F9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/07" Then
  X = "G9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/08" Then
  X = "H9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/09" Then
  X = "I9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/10" Then
  X = "J9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/11" Then
  X = "K9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/12" Then
  X = "L9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/13" Then
  X = "M9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/14" Then
  X = "N9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/15" Then
  X = "O9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/16" Then
  X = "P9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/17" Then
  X = "Q9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/18" Then
  X = "R9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/19" Then
  X = "S9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/20" Then
  X = "T9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/21" Then
  X = "U9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/22" Then
  X = "V9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/23" Then
  X = "W9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/24" Then
  X = "X9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/25" Then
  X = "Y9"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/26" Then
  X = "Z9"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "05/27" Then
  X = "19"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "05/28" Then
  X = "29"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/29" Then
  X = "39"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/30" Then
  X = "49"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "05/31" Then
  X = "59"

  'May

  'June

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/01" Then
  X = "A0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/02" Then
  X = "B0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/03" Then
  X = "C0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/04" Then
  X = "D0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/05" Then
  X = "E0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/06" Then
  X = "F0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/07" Then
  X = "G0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/08" Then
  X = "H0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/09" Then
  X = "I0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/10" Then
  X = "J0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/11" Then
  X = "K0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/12" Then
  X = "L0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/13" Then
  X = "M0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/14" Then
  X = "N0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/15" Then
  X = "O0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/16" Then
  X = "P0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/17" Then
  X = "Q0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/18" Then
  X = "R0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/19" Then
  X = "S0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/20" Then
  X = "T0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/21" Then
  X = "U0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/22" Then
  X = "V0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/23" Then
  X = "W0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/24" Then
  X = "X0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/25" Then
  X = "Y0"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/26" Then
  X = "Z0"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "06/27" Then
  X = "10"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "06/28" Then
  X = "20"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/29" Then
  X = "30"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/30" Then
  X = "40"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "06/31" Then
  X = "50"

  'June

  'July

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/01" Then
  X = "A8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/02" Then
  X = "B8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/03" Then
  X = "C8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/04" Then
  X = "D8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/05" Then
  X = "E8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/06" Then
  X = "F8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/07" Then
  X = "G8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/08" Then
  X = "H8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/09" Then
  X = "I8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/18" Then
  X = "J8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/11" Then
  X = "K8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/12" Then
  X = "L8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/13" Then
  X = "M8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/14" Then
  X = "N8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/15" Then
  X = "O8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/16" Then
  X = "P8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/17" Then
  X = "Q8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/18" Then
  X = "R8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/19" Then
  X = "S8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/20" Then
  X = "T8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/21" Then
  X = "U8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/22" Then
  X = "V8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/23" Then
  X = "W8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/24" Then
  X = "X8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/25" Then
  X = "Y8"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/26" Then
  X = "Z8"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "07/27" Then
  X = "18"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "07/28" Then
  X = "28"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/29" Then
  X = "38"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/30" Then
  X = "48"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "07/31" Then
  X = "58"

  'July

  'August

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/01" Then
  X = "A6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/02" Then
  X = "B6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/03" Then
  X = "C6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/04" Then
  X = "D6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/05" Then
  X = "E6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/06" Then
  X = "F6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/07" Then
  X = "G6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/08" Then
  X = "H6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/09" Then
  X = "I6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/10" Then
  X = "J6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/11" Then
  X = "K6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/12" Then
  X = "L6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/13" Then
  X = "M6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/14" Then
  X = "N6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/15" Then
  X = "O6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/16" Then
  X = "P6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/17" Then
  X = "Q6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/18" Then
  X = "R6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/19" Then
  X = "S6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/20" Then
  X = "T6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/21" Then
  X = "U6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/22" Then
  X = "V6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/23" Then
  X = "W6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/24" Then
  X = "X6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/25" Then
  X = "Y6"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/26" Then
  X = "Z6"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "08/27" Then
  X = "16"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "08/28" Then
  X = "26"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/29" Then
  X = "36"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/30" Then
  X = "46"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "08/31" Then
  X = "56"

  'August

  
  'September

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/01" Then
  X = "A4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/02" Then
  X = "B4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/03" Then
  X = "C4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/04" Then
  X = "D4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/05" Then
  X = "E4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/06" Then
  X = "F4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/07" Then
  X = "G4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/08" Then
  X = "H4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/09" Then
  X = "I4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/10" Then
  X = "J4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/11" Then
  X = "K4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/12" Then
  X = "L4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/13" Then
  X = "M4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/14" Then
  X = "N4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/15" Then
  X = "O4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/16" Then
  X = "P4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/17" Then
  X = "Q4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/18" Then
  X = "R4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/19" Then
  X = "S4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/20" Then
  X = "T4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/21" Then
  X = "U4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/22" Then
  X = "V4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/23" Then
  X = "W4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/24" Then
  X = "X4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/25" Then
  X = "Y4"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/26" Then
  X = "Z4"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "09/27" Then
  X = "14"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "09/28" Then
  X = "24"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/29" Then
  X = "34"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/30" Then
  X = "44"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "09/31" Then
  X = "54"

  'September

  
  'October

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/01" Then
  X = "A2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/02" Then
  X = "B2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/03" Then
  X = "C2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/04" Then
  X = "D2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/05" Then
  X = "E2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/06" Then
  X = "F2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/07" Then
  X = "G2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/08" Then
  X = "H2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/09" Then
  X = "I2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/10" Then
  X = "J2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/11" Then
  X = "K2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/12" Then
  X = "L2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/13" Then
  X = "M2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/14" Then
  X = "N2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/15" Then
  X = "O2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/16" Then
  X = "P2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/17" Then
  X = "Q2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/18" Then
  X = "R2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/19" Then
  X = "S2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/20" Then
  X = "T2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/21" Then
  X = "U2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/22" Then
  X = "V2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/23" Then
  X = "W2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/24" Then
  X = "X2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/25" Then
  X = "Y2"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/26" Then
  X = "Z2"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "10/27" Then
  X = "12"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "10/28" Then
  X = "22"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/29" Then
  X = "32"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/30" Then
  X = "42"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "10/31" Then
  X = "52"

  'October

  'November

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/01" Then
  X = "AN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/02" Then
  X = "BN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/03" Then
  X = "CN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/04" Then
  X = "DN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/05" Then
  X = "EN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/06" Then
  X = "FN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/07" Then
  X = "GN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/08" Then
  X = "HN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/09" Then
  X = "IN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/10" Then
  X = "JN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/11" Then
  X = "KN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/12" Then
  X = "LN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/13" Then
  X = "MN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/14" Then
  X = "NN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/15" Then
  X = "ON"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/16" Then
  X = "PN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/17" Then
  X = "QN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/18" Then
  X = "RN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/19" Then
  X = "SN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/20" Then
  X = "TN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/21" Then
  X = "UN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/22" Then
  X = "VN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/23" Then
  X = "WN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/24" Then
  X = "XN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/25" Then
  X = "YN"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/26" Then
  X = "ZN"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "11/27" Then
  X = "1N"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "11/28" Then
  X = "2N"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/29" Then
  X = "3N"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/30" Then
  X = "4N"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "11/31" Then
  X = "5N"

  'November

  'December

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/01" Then
  X = "AD"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/02" Then
  X = "BD"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/03" Then
  X = "CD"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/04" Then
  X = "DD"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/05" Then
  X = "ED"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/06" Then
  X = "FD"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/07" Then
  X = "GD"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/08" Then
  X = "HD"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/09" Then
  X = "ID"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/10" Then
  X = "JD"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/11" Then
  X = "KD"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/12" Then
  X = "LD"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/13" Then
  X = "MD"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/14" Then
  X = "ND"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/15" Then
  X = "OD"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/16" Then
  X = "PD"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/17" Then
  X = "QD"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/18" Then
  X = "RD"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/19" Then
  X = "SD"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/20" Then
  X = "TD"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/21" Then
  X = "UD"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/22" Then
  X = "VD"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/23" Then
  X = "WD"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/24" Then
  X = "XD"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/25" Then
  X = "YD"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/26" Then
  X = "ZD"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "12/27" Then
  X = "1D"

  Elseif Format.NamedSubStrings("ddMMDate").Value = "12/28" Then
  X = "2D"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/29" Then
  X = "3D"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/30" Then
  X = "4D"

  ElseIf Format.NamedSubStrings("ddMMDate").Value = "12/31" Then
  X = "5D"

  'December

   

  
  End if

  
  Value = X

  0

Please sign in to leave a comment.