How create a date+time type of vbs in perl?

--===============0856076757==
Content-Type: multipart/alternative; boundary=bcaec51ba3fbe259c804a12d7a96

--bcaec51ba3fbe259c804a12d7a96
Content-Type: text/plain; charset=ISO-8859-1

Hi,

Is there a way to create a date type of vbs in perl?

for example,
how can I translate below vbs statement into perlish
one?

date_from = DateSerial(2011,03, 23) + timeserial(6, 0, 0)

any reply is really appreciated.

--bcaec51ba3fbe259c804a12d7a96
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

Hi,=A0

RE: How create a date+time type of vbs in perl?

This is a multi-part message in MIME format.

--===============0941521555==
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_003C_01CBFDB9.AB660C80"

This is a multi-part message in MIME format.

------=_NextPart_000_003C_01CBFDB9.AB660C80
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: 7bit

Hi



Have you tried Date::Calc module, which I use for all my date and time calculations? It's pretty comprehensive.



Eric Robertson





_____

From: activeperl-bounces@listserv.ActiveState.com [mailto:activeperl-bounces@listserv.ActiveState.com] On Behalf Of Xiao Yafeng
Sent: 18 April 2011 09:50
To: ActivePerl@listserv.ActiveState.com
Subject: How create a date+time type of vbs in perl?



Hi,



Is there a way to create a date type of vbs in perl?



for example,

how can I translate below vbs statement into perlish one?



date_from = DateSerial(2011,03, 23) + timeserial(6, 0, 0)



any reply is really appreciated.




------=_NextPart_000_003C_01CBFDB9.AB660C80
Content-Type: text/html;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:st1=3D"urn:schemas-microsoft-com:office:smarttags" =
xmlns=3D"http://www.w3.org/TR/REC-html40">


charset=3Dus-ascii">

namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags" =
name=3D"PersonName"/>

Re: How create a date+time type of vbs in perl?

On 4/18/2011 1:49 AM, Xiao Yafeng wrote:
> Hi,
> Is there a way to create a date type of vbs in perl?
>
> for example,
> how can I translate below vbs statement into perlish one?
>
> date_from = DateSerial(2011,03, 23) + timeserial(6, 0, 0)
>
> any reply is really appreciated.

Windows has more than one time format, so it could get complicated if you
plan on doing anything wild with it.

file time is a dbl-word (64 bit) in 100-nanosecond intvls since Jan 1, 1601
system time is array of (YR, MON, DOW, HR, MIN, SEC, MSEC) similar to @tm

You also have to worry about where the time is from (local/UTC/etc).

What we don't know is what happens to date_from farther down to know
what to put in there - you would need to indicate that for a proper
response. The stuff below assumes you can modify that to use a @tm
structure to do what you need with it.

In your case, you only have human kinda times (year, month, day, hr, min, sec),
so it's a simple matter to plunk the data into a @tm structure and
do what you want with it. Just subtract 1900 from the year and 1
from the month and you're ready to go.

@tm = (, ,