Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Weergave week/verkort jaar 52/03

262 views
Skip to first unread message

Klaas Klunder

unread,
Jun 4, 2003, 2:23:25 AM6/4/03
to
ik heb in cel A1 datum 15-12-03 staan en wil in cel A2 de
weeknummer en jaarnummer verkort hebben met de functie
=TEKST.SAMENVOEGEN((WEEKNUMMER(A1;2));"/";(JAAR(A1)))
zoals 51/03. ik krijg met deze functie nu 51/2003 en dat
vind ik te lang.
Wie kan mij creatief helpen?

Klaas

Bert

unread,
Jun 4, 2003, 4:14:18 AM6/4/03
to
Klaas,
Gebruik:
=WEEKNUMMER(A1;2) & "/" & TEKST(A1;"JJ")

Succes,
Bert


"Klaas Klunder" <klaas....@hccnet.nl> wrote in message
news:0b1401c32a61$ce41f810$a601...@phx.gbl...

john van c

unread,
Jun 4, 2003, 3:19:09 AM6/4/03
to

> ik heb in cel A1 datum 15-12-03 staan en wil in cel A2 de
> weeknummer en jaarnummer verkort hebben met de functie
> =TEKST.SAMENVOEGEN((WEEKNUMMER(A1;2));"/";(JAAR(A1)))
> zoals 51/03. ik krijg met deze functie nu 51/2003 en dat
> vind ik te lang.

ik heb geprobeerd om het op te lossen met de opmaak. Maar de "w" moeten ze
daar nog ontdekken.
Je kunt gelukkig ook zelf functies maken.
bvb:
Public Function myf(datum As Date) As String
myf = Format(datum, "ww-yy")
End Function

plaats deze code in een module
in de cel in werkblad plaats je dan :=myf(a1)
a1 bevat de datum


Klaas Klunder

unread,
Jun 6, 2003, 10:39:42 AM6/6/03
to
Beste John,

Met public functions ben ik geen ster in. Ik zou weten
hoe dat moet.
Het liefste wil ik dat er 0301 uitkomt als je in een cel
1-1 invult als datum want in mijn probeersels komt er 031
jaar-week i.p.v. 0301

Klaas

>-----Oorspronkelijk bericht-----

>.
>

klaas klunder

unread,
Jun 6, 2003, 10:41:31 AM6/6/03
to
Hoi Bert,
Heel goed geprobeerd maar als je 1-1 invult komt er toch
1/03 i.p.v. 01/03 week/jaar notatie.
Het liefste heb ik de notatie 0301 jaar-week notatie en
niet 031 want er dan ook weer uitkomt.
Leuk probleempje nietwaar?

Groeten,
Klaas Klunder


>-----Oorspronkelijk bericht-----

>.
>

keepitcool

unread,
Jun 6, 2003, 11:08:14 AM6/6/03
to
wat denk je van
=TEKST(A1;"JJ") & "/" & tekst(WEEKNUMMER(A1;2);"00")


of maak een udf in VBA

Function DatumT(ref, fmt$)
If IsDate(ref) Then DatumT = Format(ref, fmt)
End Function

en dan
a2 =DatumT(a1;"yy-ww")


keepITcool

< email : keepitcool chello nl (with @ and .) >
< homepage: http://members.chello.nl/keepitcool >

0 new messages