moinz,
eigentlich müßte es mit hr=hr+6 funktionieren, ich schreib gerade ne seite mit datumsangabe und hab das mal fürs jahr ausprobiert, ich konnte das jahr durch normale addition verändern. vielleicht liegts an deiner einlesfunktion für die db. ich poste dir mal meinen code, da ist auch dabei wie ich die woch ausgerechnet habe. vielleicht hilft dir das ja weiter:
tag = day(date)
monat_int = month(date)
jahr = year(date)
dim monat(12)
monat(1)="Januar"
monat(2)="Februar"
monat(3)="März"
monat(4)="April"
monat(5)="Mai"
monat(6)="Juni"
monat(7)="Juli"
monat(8)="August"
monat(9)="September"
monat(10)="Oktober"
monat(11)="November"
monat(12)="Dezember"
jahresanfang = dateserial(jahr, 1,1)
jahrestag = Abs(DateDiff("d", jahresanfang, date()))
jahreswoche = (jahrestag \ 7)+1