Re: split a number to Date format
- To: mathgroup at smc.vnet.net
- Subject: [mg124245] Re: split a number to Date format
- From: Bob Hanlon <hanlonr357 at gmail.com>
- Date: Sat, 14 Jan 2012 17:09:22 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <201201140754.CAA01282@smc.vnet.net>
split1[x_] := ReplacePart[#, 1 -> First[#] + 2000] &[
FromDigits /@ Partition[IntegerDigits[x], 2]]
split1[111205020000]
{2011, 12, 5, 2, 0, 0}
split2[x_] := MapAt[2000 + # &,
FromDigits /@ Partition[IntegerDigits[x], 2], 1]
split2[111205020000]
{2011, 12, 5, 2, 0, 0}
Bob Hanlon
On Sat, Jan 14, 2012 at 2:54 AM, Derek Martin <cdmartin at me.com> wrote:
> I have experimental data in spreadsheet format. The first column is a time stamp in the format 111205020000.
> If I could parse or split the number 111205020000 into {11,12,05,02,00,00} and replace the first 11 with 2011, the Date commands would work fine. I can do the replacing, but am having difficulty seeing how to split the number into {11,12,05,02,00,00}.
>
> DateString[{2011, 12, 05, 02, 00, 00}] gives
> "Mon 5 Dec 2011 02:00:00"
>
> Any help to convert my number to the right Date format would be appreciated. I am using Mathematica 8.
>
> Thanks in Advance
> Derek
>
- References:
- split a number to Date format
- From: Derek Martin <cdmartin@me.com>
- split a number to Date format