|
Excel : Datum konvertieren
bst am 20.06.2007 um 14:06 Uhr (0)
Auch Hallo,sowas vielleicht ?lg, Bernd-- Code:Option ExplicitConst strMonth = "Jan:Feb:Mar:Apr:May:Jun:Jul:Aug:Sep:Oct:Nov ec"Const strIndex = "001:002:003:004:005:006:007:008:009:010:011:012"Function mydate(ByVal s As String) As Date Dim ar As Variant, iPos As Integer ar = Split(s, " ") iPos = InStr(strMonth, ar(0)) If iPos 0 Then ar(0) = Mid(strIndex, iPos + 1, 2) mydate = DateSerial(ar(2), ar(0), ar(1))End FunctionSub x() Debug.Print mydate("Jan 01 2008") Debug.Print mydate("May 11 2007") Deb ...
| | In das Form Excel wechseln |
|
Excel : Datum konvertieren
bst am 08.06.2010 um 20:03 Uhr (1)
Abend Axel,versuche das mal so.CU, Bernd-- Code:Option ExplicitOption Private ModuleConst cstrMonth = "jan|feb|mar|apr|may|jun|jul|aug|sep|oct|nov|dec"Dim objRe As ObjectSub main() Dim i As Long Set objRe = CreateObject("vbscript.regexp") objRe.Pattern = "^(" & cstrMonth & ") *(d{1,2}) *(d{4})$" objRe.IgnoreCase = True Range("A1") = "May 3 2010" Range("A2") = "DEC 24 2011" For i = 1 To 2 Cells(i, 2).Value = ConvertDate(Cells(i, 1).Value) Next Set objRe = NothingEnd SubFunction ConvertDat ...
| | In das Form Excel wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |