Search  
Wednesday, May 23, 2012 ..:: Forum ::.. Register  Login
 Forum Minimize
Pentru a putea posta mesaje trebuie să vă înregistraţi.
Notă: Mesajele cu conţinut jignitor sau ilegal (inclusiv cereri de soft piratat) nu sunt acceptate şi vor fi şterse imediat .

Pentru a primi raspunsuri rapide si corecte, scrieti in mesaj ce intentionati sa faceti, ce mesaj de eroare primiti, in ce context si in urma caror actiuni. De asemenea, mentionati versiunea de FoxPro in care lucrati!
Dacă nu specificați versiunea, se consideră VFP 9.0 SP2.
SearchForum Home
  Visual FoxPro  Visual FoxPro in general  Cate zile are l...
 Cate zile are luna curenta?
 
 7/14/2006 5:38:16 PM
User is offlineGhiorghiu Bogdan
928 posts
1st




Cate zile are luna curenta?
 (Romania)
Cum pot afla cate zile are luna curenta sau o anumita luna?
Ghiorghiu Bogdan >>> Dacă tot te apuci să faci o treabă, fă-o bine de la inceput!
 7/14/2006 6:35:18 PM
User is offlinevlatis
122 posts
5th


Re: Cate zile are luna curenta?
 (N/A)
function cate_zile_are_luna
parameters data_din_luna
*data_din_luna - de tip DATE, o zi oarecare a lunii dorite
aux=data_din_luna-day(data_din_luna)
return gomonth(aux,1)-aux

*am scris-o asa ca sa fie cat mai clara logica...
 7/16/2006 8:23:09 PM
User is offlineDorin Vasilescu
1366 posts
1st




Re: Cate zile are luna curenta?
 (N/A)
?DAY(GOMONTH( data - DAY(data) +1 ,1) - 1)
 7/16/2006 9:24:05 PM
User is offlineEugen Gliga
1052 posts
1st




Re: Cate zile are luna curenta?
 (N/A)
31 :)
 7/16/2006 10:10:33 PM
User is offlineedyshor
1450 posts
1st




Re: Cate zile are luna curenta?
 (Romania) Modified By edyshor on 7/16/2006 10:19:48 PM)
dap 31 .. acum ai ceva si ptr nr_zile_lucratoare ?! :D
 
edit: o varinta care nu-i asa frumoasa ca cea a lui Dorin, mai mult in scop didactic :))

? IIF(INLIST(MONTH(DATE()),1,3,5,7,8,10,12),31,IIF(MONTH(DATE())!=2,30, ;
  IIF(MOD(YEAR(DATE()),4)=0 and MOD(YEAR(DATE()),100)!=0,29,28)))
 7/16/2006 11:25:24 PM
User is offlineEugen Gliga
1052 posts
1st




Re: Cate zile are luna curenta?
 (N/A)
Da. Am postat eu o functie mai demult. Te duci pe "Search" si cauti CalcZl. Pt luna curenta o sa-ti dea 22:)
 7/17/2006 11:31:35 AM
User is offlineanonymous
0 posts


Re: Cate zile are luna curenta?
 (Romania) Modified By anonymous on 7/17/2006 11:32:00 AM)
 vlatis wrote
function cate_zile_are_luna
parameters data_din_luna
*data_din_luna - de tip DATE, o zi oarecare a lunii dorite
aux=data_din_luna-day(data_din_luna)
return gomonth(aux,1)-aux

*am scris-o asa ca sa fie cat mai clara logica...


Dupa logica mea, pentru luna iulie functia asta o sa dea 30 si nu 31. Dar nu am testat ...
Eu folosesc ceva de genul:

function zile_in_luna(data_din_luna)

ldLastDay = gomonth(date(year(data_din_luna), month(data_din_luna), 1), 1) - 1
return day(ldLastDay)
 7/17/2006 2:55:02 PM
User is offlinevlatis
122 posts
5th


Re: Cate zile are luna curenta?
 (Romania)

 camsambora wrote

Dupa logica mea, pentru luna iulie functia asta o sa dea 30 si nu 31. Dar nu am testat ...

...corecta observatia...sorry...am editat direct pe forum si n-am testat...

Cum s-ar spune: "Operatia a reusit, pacientu-i mort". De fapt "am mancat" un +1...

function cate_zile_are_luna
parameters data_din_luna
*data_din_luna - de tip DATE, o zi oarecare a lunii dorite
aux=data_din_luna-day(data_din_luna)+1
return gomonth(aux,1)-aux

Tot solutia lui Dorin e mai eleganta...

 
 7/17/2006 3:10:43 PM
User is offlineGhiorghiu Bogdan
928 posts
1st




Re: Cate zile are luna curenta?
 (Romania)
Vlatis, cred ca solutia ta nu prea merge (la mine cel putin facea greseli). Asa ca am modificat-o putin: SET CENTURY ON Clear ? '***********************' ?cate_zile({^2006-01-01}) ?cate_zile({^2006-02-01}) ?cate_zile({^2006-03-01}) ?cate_zile({^2006-04-01}) ?cate_zile({^2006-05-01}) ?cate_zile({^2006-06-01}) ?cate_zile({^2006-07-01}) ?cate_zile({^2006-08-01}) ?cate_zile({^2006-09-01}) ?cate_zile({^2006-10-01}) ?cate_zile({^2006-11-01}) ?cate_zile({^2006-12-01}) Function cate_zile Parameters kdata kdata = Gomonth(kdata, 1) aux=kdata-Day(kdata) Return Day(aux) Oricum va multumesc. O zi buna.
Ghiorghiu Bogdan >>> Dacă tot te apuci să faci o treabă, fă-o bine de la inceput!
 7/17/2006 3:14:54 PM
User is offlineGhiorghiu Bogdan
928 posts
1st




Re: Cate zile are luna curenta?
 (Romania)

Scuze pt mesajul atetior, a fost postat din Opera.

Vlatis, cred ca solutia ta nu prea merge (la mine cel putin facea greseli). Asa ca am modificat-o putin:

SET CENTURY ON

Clear
? '***********************'
?cate_zile({^2006-01-01})
?cate_zile({^2006-02-01})
?cate_zile({^2006-03-01})
?cate_zile({^2006-04-01})
?cate_zile({^2006-05-01})
?cate_zile({^2006-06-01})
?cate_zile({^2006-07-01})
?cate_zile({^2006-08-01})
?cate_zile({^2006-09-01})
?cate_zile({^2006-10-01})
?cate_zile({^2006-11-01})
?cate_zile({^2006-12-01})

Function cate_zile
 Parameters kdata
 kdata = Gomonth(kdata, 1)
 aux=kdata-Day(kdata)
 Return Day(aux)

Oricum va multumesc.

O zi buna.

 

Ghiorghiu Bogdan >>> Dacă tot te apuci să faci o treabă, fă-o bine de la inceput!
 Page 1 of 1
NextPreviousNo Rating
  Visual FoxPro  Visual FoxPro in general  Cate zile are l...
Search  Forum Home         

 Google Ads Minimize
    

Copyright 2002-2010 Profox   Terms Of Use  Privacy Statement