Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Compute how many years,months,days
Message
From
29/10/2004 09:24:53
 
 
To
29/10/2004 07:36:45
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 5
Miscellaneous
Thread ID:
00955191
Message ID:
00955751
Views:
14
thisform.text3.Value= alltrim(str(numyear))+ ' - ' + alltrim(str(nummonth)) + ' - ' + alltrim(str(numday))


>hi,
>ok thanks for advice,
>
>i need another things ,how i can put year,month and date at my thisform.text3.value as under
>
>SET DATE TO british
> a = (thisform.text1.value)
> b = (thisform.text2.value)
>
>NumYear = Year(b)-Year(a)
>NumMonth = Month(b)-Month(a)
>NumDay = Day(b) - Day(a)
>
>If NumDay < 0
>NumMonth = NumMonth - 1
>Numday = (Gomonth(a,1)-Day(Gomonth(a,1)) - a )+ Day(b)
>EndIf
>If NumMonth < 0
>NmYear = NumYear - 1
>NumMonthi = Abs(NumMonth)
>EndIf
>
>? NumYear, NumMonth, NumDay
>
>&&&thisform.text3.Value=numyear+nummonth+numday &&&
>
>
>thanks
>best regards.
>m.qasem
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform