Всем привет и с всех с Ноавым Годом!

Как получить номер недели в году кто знает плиз хелп.

Всем большое спасибо,

Я нашёл эту функцию в PFC библиотеках вот она может кому пригодится:

////////////////////////////////////////////////////////////////////////////////
// Public Function: of_WeekNumber
// Arguments: ad_source Date to be determined.
// Returns: long
// If any argument's value is NULL, function returns NULL.
// If any argument's value is Invalid, function returns -1.
// Description: Obtains the week number that corresponds to the date from
// the begining of the year.
//////////////////////////////////////////////////////////////////////////////
// Rev. History Version
// 5.0 Initial version
// 8.0 Should return 1 for 1st week in January
// (Note: Number of weeks in year may exceed 53 )
//////////////////////////////////////////////////////////////////////////////
// Copyright © 1996-2000 Sybase, Inc. and its subsidiaries. All rights reserved. Any distribution of the
// PowerBuilder Foundation Classes (PFC) source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//////////////////////////////////////////////////////////////////////////////
date ld_first_ofyear
integer li_weeknumber
integer li_leftover_days

//Check parameters
If IsNull(ad_source) Then
long ll_null
SetNull(ll_null)
Return ll_null
End If

//Check for invalid date
If Not of_IsValid(ad_source) Then
Return -1
End If

//Set to the first of the same year.
ld_first_ofyear = Date(Year(ad_source), 01, 01)

//Get the number of weeks passed from the begining of the year.
li_weeknumber = of_WeeksAfter (ld_first_ofyear, ad_source) + 1

//Get the leftover days.
li_leftover_days = Mod(DaysAfter (ld_first_ofyear, ad_source), 7)

//If needed, increment the weeks count by one.
If (of_DayOfWeek(ld_first_ofyear) + li_leftover_days) >= 8 then
li_weeknumber ++
End If

Return li_weeknumber