4D www.sviluppo4d.it - Calcolo del numero della settimana (2)

Sviluppatori 4D

Utility 4D

A dog and his boy
lapd component
Aparajitaworld
Active4d, objecttools
BBSP
logTools, BBBase
BusinessKube
4D Job wallet
Hmplugins
Hmcal, Hmreports, Hfree
Internet Toolkit
Math4D
free math library
Nexid Web Service Server
Nufocus
OpenRoadDevelopment
CodeAnalysis free component
Orchard Software
win32api, resource editor
Pelican Engineering
EXT/JS appbuilder, Remoting
SGBD Products software
TransportX, 4diTools
Association Qualisoft
QS_Toolbox

Risorse 4D

4D Github
4D Pdo
4D Sources
4dgeek Github
tinynce, json editore
Bluecompany
Graph, Calendar
E-node
AreaList Pro, SuperReport Pro
Escape
qpix, DICOM Medical Viewer
Foundation Shell
Inforce
UpdateMaker, Inside4d, Zip4d
Keisuke Miyako
Microbizz
4D CAD plugin
Pluggers
ApiPack, PDFViewer, LDAP, MD5
Ronri-kobo
F-ab, JExternal

Naviga:

Titolo: Calcolo del numero della settimana (2)

Categoria: Codice

Ultimo Aggiornamento: 12/01/09

Un po' di tempo fa avevo letto un discussione sul calcolo del numero della settimana; mi è capitato di leggere la definizione dell'inizio anno in base alla quale l'anno inizia dal Lunedì della settimana che contiene il 4 gennaio ed ecco qui l'algoritmo corretto

xData:=Date(Request("Data";String(Current date)))

    ` ----------------------------------------------------
    ` User name (OS): llarosa
    ` Date and time: 12/01/09, 13:09:35
    ` ----------------------------------------------------
    ` Method: Calcolo numero settimana
    ` Description Ritorna la settimana dell'anno usando ISO 8601 standard
    ` ( l'anno parte dal Lunedi della settimana che contiene il 4 Gennaio)
    `
    ` Parameters
    ` ----------------------------------------------------

  ` calcolo il 4 di gennaio che giorno è -2 perchè la day number conta come primo giorno la domenica
Jan04DOW:=Day number(Date("04-01-"+String(Year of(xData))))-2
` avendo fatto -2 la domenica diventa -1 e la riporto a 6
Jan04DOW:=(Num(Jan04DOW=-1)*6)+(Num(Jan04DOW#-1)*Jan04DOW)
` calcolo la data del primo lunedi dell'anno
FirstMonday:=Date("04-01-"+String(Year of(xData)))-Jan04DOW
` se la data è inferiore al primo lunedi dell'anno allora appartengono all'ultima settimana dell'anno
` prima quindi calcolo il primo lunedi dell'anno precedente
If (xData<FirstMonday)
` come già descritto ma riferito all'anno precedente
  Jan04DOW:=Day number(Date("04-01-"+String(Year of(xData)-1)))-2
  Jan04DOW:=(Num(Jan04DOW=-1)*6)+(Num(Jan04DOW#-1)*Jan04DOW)
  FirstMonday:=Date("04-01-"+String(Year of(xData)-1))-Jan04DOW
End if
xWeek:=(Int((xData-FirstMonday)/7))+1 ` calcolo della settimana
End if

ALERT(String(xWeek))

Inviato da: Luca La Rosa

Visite: 22985


Umberto Migliore	12/01/09 14:16:46
Pubblico la faq anche se affronta la stessa questione del Calcolo del numero della settimana perché l'algoritmo è un po' meno sintetico del mio.. ;)

Luca La Rosa	12/01/09 15:05:21
ho rivisto la tua è contiene due errori il primo errore L'errore avviene come nel caso di quest'anno in cui il 4 gennaio sia una domenica per cui la day number di 4D ritorna un numero più piccolo del lunedi il secondo errore è per quei giorni che appartengono all'ultima settimana dell'anno prima ritorna comunque 1 e non 52/53 (per esempio 1-1-2006 che dovrebbe tornare 52)

PierPaolo Sichera	12/01/09 23:19:33
Non vorrei darvi troppo fastidio intromettendomi, ma siccome ho un cliente che deve usare i formati di data inglesi, se invece del Date di una stringa utilizzaste Add to date mi fareste entrambi cosa gradita: potrei copiarmi il codice senza fatiche aggiuntive :-P

Se accedi con utente e password, puoi aggiungere dei commenti.

4D Principali

4D Discussioni

Faq random

Crediti

Dominio registrato da ZetaNet
Sito realizzato da Nexus srl
4D SQL 11.9.0 offerto da 4D & Italsoftware
Icone di FAMFAMFAM
Moderato da Umberto Migliore
329 utenti registrati

User:
Pass:	Accedi