Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Cursor
Message
General information
Forum:
Visual FoxPro
Category:
Troubleshooting
Title:
Re: Cursor
Miscellaneous
Thread ID:
00455330
Message ID:
00455505
Views:
28
>>>>Sorry, Terry.
>>>Magnetism and my password :-)
>>
>>Don't understand you, what do you mean?
>>
>>BTW, quick question (I'll start new thread also):
>>I have a Date field. Century is on.
>>I want a character field in this format: 1/1/80, 11/23/01, etc.
>>
>>What's the simplest way to do it? Also since this date is already a result of long function, I don't want to invoke it multiple time.
>>
iif(vartype(oJC)='O' and oJC.CurState='MA',dtoc(GetDescription(TOWN,'FilingDate','Town'),'LandCt_Fm'),'')
>>
>>In theory, though, I can write another function, say, ConvertDate(tdDate), so it'll solve my problem.
>
>Ok, never mind. I wrote this function (may be it's not a best code, but it works):
>*!******************************************************************************
>*  Description.......: ConvertDate -  for Galley Report
>*  Calling Samples...: ConvertDate(DATE)
>*  Parameter list....:
>*  Created by........: Nadya Nosonovsky 12/20/00 11:40:10 AM
>*  Modified by.......:
>********************************************************************
>lparameters tdDate
>local lcDate, lnMonth, lnYear, lnDay
>if !empty(tdDate)
>	lnMonth=month(tdDate)
>	lnDay=day(tdDate)
>	lnYear=year(tdDate)
>	lcDate=transform(lnMonth)+'/'+transform(lnDay)+'/'+right(transform(lnYear),2)
>else
>	lcDate=''
>endif
>return lcDate
>
Wouldn't you need the 'T" ot 'trim' function to loose leading spaces (what was that guy, @T or something) for tansform. Maybe I'm a couple of versions behind?
Imagination is more important than knowledge
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform