Find en uge ud fra Dato!

Format([Din dato], "ww",vbUseSystemDayOfWeek,vbUseSystem)

Den kommer med fejlen overflow hvis jeg evt gør sådan her:
txtWEEK.Caption = Format(txtDATO.Caption, "ww", vbUseSystemDayOfWeek, vbUseSystem)

måske er det fordi den ikke betragter din txtdato.caption som en gyldig dato?!

Eller også genkender den ikke vbUseSystemDayOfWeek og vbUseSystem

Prøv måske denne:

txtWEEK.Caption = Format(cvdate(txtDATO.Caption), "ww", 0, 0)

Nu siger den Type Michmatch....

Jeg har skrevet 12.05.2005

det er vist også et ugydigt dato-format. Den skal vist have - eller / imellem:

12-05-2005

Men det kan også give andre problemer, når du gør det på den måde. VB har det nemlig med at vende datoer om, hvis det er muligt, så den læser det som 05-12-2005 i stedet.

Den sikreste måde at undgå dette på, er ved at bruge formattet:
2005-05-12

Men prøv...

Kan man ikke lave en replace så??? Hvordan er det nu den er??

joo...:

txtWEEK.Caption = Format(cvdate(replace(txtDATO.Caption, ".", "-")), "ww", 0, 0)

HA.... det er fandme sejt!

Tak tak!

selv tak :o)