Søg
Avatar billede kiddoe Nybegynder
18. maj 2006 - 13:30 Der er 4 kommentarer og
1 løsning

dato funktion/ tælle årstal

hej - denne funktion viser alder - men den skifter kun ved årskifte - d.v.s den viser at man er 20 år pr 1 januar selvom  man først fylder år i december -
Er der en der kan hjælpe med at ændre funktionen så den kan skifte på datoen?

Alder <%=age_count(RS_VIS_PROFIL("fodedag"))%>

<%FUNCTION AGE_COUNT(STRING)
DIM AGE
AGE = DateDiff("yyyy",STRING, now())
AGE_COUNT = AGE
END FUNCTION%>
Avatar billede cyberkox Nybegynder
18. maj 2006 - 13:39 #1
function alder(dato)
if not dato = "" then
alder = year(now)-year(dato)
if Cint(month(now))<Cint(month(dato)) then
  alder=alder-1
elseif Cint(month(dato))=Cint(month(now)) and Cint(day(now))<Cint(day(dato)) then
  alder=alder-1
end if
end if
end function
Avatar billede fennec Nybegynder
18. maj 2006 - 13:43 #2
Eller:

Function AgeCount(fDate)
dim fAge
  fAge = datediff("yyyy", fDate, date)
  if datediff("d",dateserial(year(date),month(fDate), day(fDate)), date) < 0 then fAge = fAge-1
  AgeCount = fAge
Avatar billede fennec Nybegynder
18. maj 2006 - 13:43 #3
Manglede lige en end function :o)

Function AgeCount(fDate)
dim fAge
  fAge = datediff("yyyy", fDate, date)
  if datediff("d",dateserial(year(date),month(fDate), day(fDate)), date) < 0 then fAge = fAge-1
  AgeCount = fAge
end function
Avatar billede kiddoe Nybegynder
18. maj 2006 - 14:33 #4
cyberkox > det virker fint - lægger du et svar
- tak for begge eksempler :)
Avatar billede cyberkox Nybegynder
18. maj 2006 - 14:55 #5
Det lyder godt. Et svar kommer her :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 18:58 Mellemled til forsendelse fra Tyskland Af nu_igen i E-handel
I går 12:44 Lenovo ThinkPad X1 Yoga Af mort1 i PC
03/0710:40 Dagens vits fra AI Af nu_igen i Andet software
03/0710:28 Stifinder gemmer de sidste 20 åbnede dokumenter, nu er de pludselig væk. Af Uvanga i Windows
01/0715:18 Min PC kan nu ikke se den ekstra skærm Af KurtG i Windows
White papers
Flere white papers »