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:
00455475
Views:
37
>>>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
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform