Eller ennå mindre besværligt:
Private Function getMonth(ByVal dato As String) As Integer
On Error Resume Next
getMonth = Month(DateValue(dato))
End Function
Sub test()
MsgBox getMonth("29-februar-2004")
MsgBox getMonth("29.2 2004")
MsgBox getMonth("Februar 04")
MsgBox getMonth("Ukendt dato")
End Sub
--
HTH. Beste hilsen Harald
Followup to newsgroup only please.
"preben nielsen" <prel@post.tele.dk> wrote in message
news:4041a406$0$1552$edfadb0f@dread14.news.tele.dk...
>
> "svend bendt" <s@b.k> skrev i en meddelelse
> news:c1q6p4$1p00$1@news.cybercity.dk...
> > Simpel function til at udtrække måneden fra en String formet
> således
> > 24-02-2004.
> > Functionen ser således ud
> >
> > Private Function getMonth(ByVal dato As String) As Integer
> > Dim tmp As String = ""
> > Dim første As Integer = dato.IndexOf("-")
> > Dim sidste As Integer = dato.LastIndexOf("-")
> > Dim i As Integer
> > For i = (første + 1) To i < sidste
> > tmp += CStr(dato.Chars(i))
> > Next i
> > getMonth = CInt(tmp)
> > End Function
>
> Du er vist ude i VB.NET her... Hvorfor lave det så besværligt ? Er
> måneden ikke altid tegn 4-5 ? Uanset hvad, så behøver du ikke en
> løkke:
>
> Private Function getMonth(ByVal dato As String) As Integer
> Dim første As Integer = dato.IndexOf("-")
> Dim sidste As Integer = dato.LastIndexOf("-")
> getMonth = CInt(dato.Substring(første + 1, sidste - første -
> 1))
> End Function
>
> --
> /\ preben nielsen
> \/\ prel@post.tele.dk
>
>