in reply to Providing Fractions of a second to DateTime?

use DateTime;

  $dt = DateTime->new(
      year       => 1964,
      month      => 10,
      day        => 16,
      hour       => 16,
      minute     => 12,
      second     => 47,
      nanosecond => 500000000, #see this
      time_zone  => 'Asia/Taipei',
  );

[download]

this example is given on CPAN

Replies are listed 'Best First'.
Re^2: Providing Fractions of a second to DateTime?
by cmv (Chaplain) on Jun 12, 2012 at 14:25 UTC
    Thanks for the pointer to nanosecond. I originally saw that and tried various things that made sense to me. For instance: 
    my $dt = DateTime->new(year=>$pYear, month=>$pMonth, day=>$pDay,
            millisecond=>$pStart, time_zone=>$tZone);

    [download]
    Well, that didn't work, since it doesn't take millisecond as an argument to new, so I tried converting $pStart to nanoseconds-since-midnight and substituting in that, but alas - it seems that the nanosecond value is only for providing the intra-second-delta.

    See my above response to what I think I need to do. I'm hoping someone will show me a better way...

[reply]
[d/l]

      $dt = DateTime->new(
year=>2003,
month=>6,
day=>12,
hour=>7,
minute=>22,
second=>12,
millisecond=>345,
microsecond=>678,
nanosecond=>901
);

      [download]

      this should also work and use $dt->millisecond() for your calculations
      refer cpan

[reply]
[d/l]
[select]

        i think this should also work

        It doesn't.

        perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
[reply]

In Section Seekers of Perl Wisdom