Converting Date Numbers to Text

[Ted Giles]

I need to convert part of a date string to text.
Example,
Picking out the day (I am in DDMMYYY format), 01/01/1900 would return "One"
This is the script I am using and it works,

? strtran(" "+str(substr(dtoc({31/01/1900}),1,2),10,0,"XW")," ")

However in this instance, the text value of "Thirty One" appears as below, and concatenated.
= "ThirtyOne"

Question. Is there a way of displaying "Thirty One" easily?

[Jay Talbott]

Re: Converting Date Numbers to Text

Ted,
Since my region is set for MM/DD/YYYY, it may not be quite a direct translation but in the interactive window, this appears to work:

?str(day({01/31/2018}),10,0,"XF")
= "Thirty one"

will that work it for you?
Jay

[Stan Mathews]

Re: Converting Date Numbers to Text

Not sure what your intent is with the strtran(). It is stripping out the space you want between Thirty and One.

? str(substr(dtoc({31/01/1900}),1,2),10,0,"XW")
= "Thirty One"

[Ted Giles]

Re: Converting Date Numbers to Text

I had sent a "Thanks" reply but it's gone walkabout, gents.
Obviously I am over engineering stuff.

[Al Buchholz]

Re: Converting Date Numbers to Text

debug(1)

x1=substr(dtoc({01/31/1900}),4,2)

x=str(val(x1),10,0,"XW")

msgbox(x)

y1=day({01/31/1900})

y=str(y1,10,0,"XW")

msgbox(y)

[Stan Mathews]

Re: Converting Date Numbers to Text

I noticed an oddity. The str() function documentation indicates that it converts a number to a right justified character string.

Well and good but.....

? str("01",12,2)
= " 1.00"

? str("01",25,2,"XW")
= "One And 00/100"

? str("A01",12,2)
= "A01"

? str("01A",12,2)
= "01A"

? str("01A",12,2,"XW")
= "01A"

[Ted Giles]

Re: Converting Date Numbers to Text

Thanks Al, that is most useful.
In this instance however, there is a striking date for a transaction,
It needs to be converted so that the document shows;
Day - "Twenty Seven"
Month - "May"
Year - "2018"
These are specific and separate fields.

Stan, you seem to have established that
? str("01A",12,2)
= "01A"
without the "XW"

does the same job as
? str("01A",12,2,"XW")
= "01A"
with the "XW"

Or did I misread what you were saying?
BTW, I will send the Linear Programming problem by PM in the next few days, but post the concept on the Forum.

[Stan Mathews]

Re: Converting Date Numbers to Text

My point was that the documentation is in error or the str() function has an undocumented feature. Passing anything but a number to the function should return an error if that is the defined parameter type expected.

"01", "01A", and "A01" are not numbers.

Val() should accomplish the reverse of str().

? val("01")
= 1

? val("01A")
= 1

? val("A01") 'inconsistent but expected
= 0

? val(1) 'inconsistent considering what str() does
ERROR: Argument is incorrect data type

[Al Buchholz]

Re: Converting Date Numbers to Text

Missed the month and year into fields in the thread. Was it mentioned?

y1=day({01/31/1900})
y2=cmonth({01/31/1900})
y3=year({01/31/1900})

y=str(y1,10,0,"XW")

msgbox(y+crlf()+y2+crlf()+y3)

[Ted Giles]

Re: Converting Date Numbers to Text

No Al, it was not. Apologies.
Got you Stan.

[Al Buchholz]

Re: Converting Date Numbers to Text

No Al, it was not. Apologies.
Got you Stan.

No problem. I miss stuff all the time. Didn't want to this time. Looks like a fun project..

[MoGrace]

Re: Converting Date Numbers to Text

...Didn't want to this time. Looks like a fun project..

I don't suppose you might find my toolbar project something fun to try? Auto Close Toolbar