Calendar Function

[Smash]

# Restituisce il valore numerico del giorno della settimana a cui appartiene una certa data
# secondo il seguente criterio:
# 0 = Sunday
# 1 = Monday
# 2 = Tuesday
# 3 = Wednesday
# 4 = Thursday
# 5 = Friday
# 6 = Saturday


# Esempio: per impostare che il calcolo inizi ad una data successiva al giorno Mercoledì
# DayOfWeek() > 3
# Restituisce TRUE quando DayOfWeek() è maggiore del numero di giorno della settimana impostato 3


SET A = Month()
SET B = Year()
SET C = Day()
SET YearCorr = IF(A < 3, B - 1, B)
SET FirstMarch = MOD((YearCorr - 1900) + INTPORTION((YearCorr - 1900) / 4) + 4 , 7)


SET B3 = 0
SET B1 = IF(A = 1, 306, B3)
SET B2 = IF(A = 2, 337, B1)
SET B4 = IF(A = 4, 31, B2)
SET B5 = IF(A = 5, 61, B4)
SET B6 = IF(A = 6, 92, B5)
SET B7 = IF(A = 7, 122, B6)
SET B8 = IF(A = 8, 153, B7)
SET B9 = IF(A = 9, 184, B8)
SET B10 = IF(A = 10, 214, B9)
SET B11 = IF(A = 11, 245, B10)
SET B12 = IF(A = 12, 275, B11)




SET D = FirstMarch + B12 + C


SET DayOfWeek = MOD(D, 7) - 1

Salvare il file con il nome "DayOfWeek"




NOTA: quest'ultima funzione può funzionare soltanto qualora siano state create prima le altre 3 funzioni, in quanto vengono utilizzate nel suo codice!