Om du testar att göra om det till subtypen date
datum = cdate(aar & "-" & monad & "-" & dag)
?
------------------
essentitia preter non sans multiplicandum
Community problem
28 svar · 366 visningar · startad av voigtann1 · sida 2 av 2
okey.. allt fungerar nu.. =) men kan man få hela datumet så att man inte blir P18 om man e född slutet av året tex =)????
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
mummel mummel... kanske ingen förstod min fråga?
Okey! vi säger att Person X e född den 25-9-1984 det gör henne nu 17 år
men med min kod nu så är X 18 år.. kan man göra så att den är EXAKT 17 tills man fyller år???
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
<%
Function Age2(sex,fdatum)
If recset("sex") = "Kille" Then
AgeFormat = "P"
Else
AgeFormat = "F"
End if
Age2 = AgeFormat & DateDiff("yyyy",cdate(recset("fdatum")),Date)
End Function
%>
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
Age2 = AgeFormat & Left(DateDiff("m",cdate(recset("fdatum")),Date)/12,2)
så blir det samma månad iaf :e
och förutsatt att personen är över 10 och under 100 år :e
Sen e det bara att köra if satser och kolla om det är den här månaden eller inte...
------------------
Data-Doktorn
Min egen musik!
Mitt coverband
)/12,2)??? Vad e det??? hehe.. nu e jag dum =)
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
Och om man vill att även yngre.. knappast troligt men ändå.. hur gör man då?
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
Age2 = AgeFormat & Left(DateDiff("m",cdate(recset("fdatum")),Date)/12,2)
if right(Age2, 1)="," Then
Age2 = Left(Age2, 2)
End If
------------------
Data-Doktorn
Min egen musik!
Mitt coverband