forum.lissyara.su

Код: Выделить всё

 $time{'yyyy/mm/dd hh:mm:ss.mmm'}          2003/06/05 13:02:14.171

Код: Выделить всё

SELECT udate, SUM(bytes) FROM `traffic` WHERE udate BETWEEN "2008-01-01" AND "2008-01-30" GROUP BY udate
-- и так тоже можно, если база мелкая
SELECT udate, SUM(bytes) FROM `traffic` WHERE udate LIKE "2008-01%" GROUP BY udate

Код: Выделить всё

]BETWEEN "2008-01-01" AND "2008-02-01" GROUP BY udate

Код: Выделить всё

SELECT udate, SUM(bytes) FROM `traffic` WHERE udate LIKE "2008-01%" GROUP BY udate

Код: Выделить всё

mysql> select UNIX_TIMESTAMP('2008-06-01 00:00:00')-UNIX_TIMESTAMP('2008-05-01 00:00:00');
+-----------------------------------------------------------------------------+
| UNIX_TIMESTAMP('2008-06-01 00:00:00')-UNIX_TIMESTAMP('2008-05-01 00:00:00') |
+-----------------------------------------------------------------------------+
|                                                                     2678400 |
+-----------------------------------------------------------------------------+
1 row in set (0.00 sec)

Код: Выделить всё

mysql> select (UNIX_TIMESTAMP('2008-06-01 00:00:00')-UNIX_TIMESTAMP('2008-05-01 00:00:00'))/3600;
+------------------------------------------------------------------------------------+
| (UNIX_TIMESTAMP('2008-06-01 00:00:00')-UNIX_TIMESTAMP('2008-05-01 00:00:00'))/3600 |
+------------------------------------------------------------------------------------+
|                                                                           744.0000 |
+------------------------------------------------------------------------------------+
1 row in set (0.00 sec)

Код: Выделить всё

mysql> select (UNIX_TIMESTAMP('2008-06-01 00:00:00')-UNIX_TIMESTAMP('2008-05-01 00:00:00'))/3600/24;
+---------------------------------------------------------------------------------------+
| (UNIX_TIMESTAMP('2008-06-01 00:00:00')-UNIX_TIMESTAMP('2008-05-01 00:00:00'))/3600/24 |
+---------------------------------------------------------------------------------------+
|                                                                           31.00000000 |
+---------------------------------------------------------------------------------------+
1 row in set (0.00 sec)

Код: Выделить всё

SELECT @fday:=DATE_FORMAT(NOW(), "%Y-%m-01") , DATE_FORMAT( DATE_SUB( DATE_ADD( @fday, INTERVAL 1 MONTH ), INTERVAL 1 DAY ), "%Y-%m-%d" );

Код: Выделить всё

select '2007-06-01' + INTERVAL 1 MONTH;

Код: Выделить всё

SELECT @fday:=DATE_FORMAT(NOW(), '%Y-%m-01') first, @lday:=@fday + INTERVAL 1 MONTH - INTERVAL 1 DAY last

Код: Выделить всё

Module Version: 0.01   Source  

    * NAME
    * SYNOPSIS
    * DESCRIPTION
    * IMPLEMENTATION
    * SUBCLASSING
    * AUTHOR 

NAME ^

Date::Time - Lightweight normalised datetime data type
SYNOPSIS ^

This is just some suggestions, as nothing is implemented yet. I'm open to critisism. Anyway I don't know if the original name will fit this module with all my plans....

  use Date::Time;

  my $date=Date::Time->new();

  # Set date
  $date->set; # Set to current time
  $date->set(time-60); # Set to 'one minute ago'

  my $greg=Date::Time::Gregorian->new();
  $greg->parse(source=>'Fri Mar  3 01:20:54 CET 2000');
  $greg->parse(source=>'one month ago', format=>'unknown');
  $greg->set(localtime, {timezone=>'local'});
  $greg->set(gmtime);
  
  my $db_time=new Date::Time::MySQLTimeStamp;
  $db_time->set(200003031859);

  # Output date and date elements
  print $db_time->Gregorian->as_string;
  print $db_time->Gregorian->year;
  print $db_time->Gregorian->strftime('%A');

  # The month operator here will return a Date::Gregorian::Month object.
  print $db_time->Gregorian->month->as_string(LANG=>'en');
  print $db_time->Julian->as_string;
  print $db_time->Maya->as_string;

  my $rel_time=$greg->diff($date);
  # Will print something like "3 hours ago" or "5 weeks ago"
  print $rel_time->Gregorian->as_string;

DESCRIPTION ^

See the README as for now. By the way, I want to be neutral to the calender system - that's why the SYNOPSIS above looks like it does. Personally I think Gregorian dates sucks a lot - but I'm living in a Gregorian world and I'm myself mostly thinking about time in Gregorian terms anyway.

The same applies to the decimal number system, btw. I mean, of all numbers, why on earth did they chose 2*5? It's really a stupid, ugly number :) Anyway, I'm always thinking in decimal terms, it's very hard for me to do calculations in other systems.
IMPLEMENTATION ^

I'm intending to write a bit about how I've thought implementing this one here. Some thoughts are already in the README.
SUBCLASSING ^

I will write a bit on how to do subclassing and how to contribute new methods here.
AUTHOR ^

Tobias Brox <tobix@irctos.org>

All kinds of feedback is welcome - and is probably a prerequisite for progress on this module.

Код: Выделить всё

#!/usr/bin/perl
#

use DateTime;


my $dt1 = DateTime->new( year => 2003, month => 4, day => 5,hour => 2,time_zone => 'local');
my $dt2 = DateTime->new( year => 2008, month => 5, day => 5,hour => 2,time_zone => 'local');
my $delta = $dt2 - $dt1;

print $delta->delta_months;

Код: Выделить всё

perldoc DateTime

Код: Выделить всё

perldoc DateTime::Duration

Код: Выделить всё

  my $dt = DateTime->new( year => 2003, month => 4, day => 5,
                          hour => 1, minute => 58,
                          time_zone => "America/Chicago",
                        );

  $dt->add( days => 1, minutes => 3 );
  # 2003-04-06 02:01:00

  $dt->add( minutes => 3 )->( days => 1 );
  # 2003-04-06 03:01:00