Thread Datum/Uhrzeit stellen: gibt's da ne API-Funktion? (12 answers)
Opened by steffenw at 2004-02-04 22:09

steffenw
 2004-02-06 23:52
#12282 #12282
User since
2003-08-15
692 articles
BenutzerIn
[Homepage] [default_avatar]
Gleich hat's nicht funktioniert, eine paar use'e fehlten und die Kommas im qw{} waren zu viel. Und jetzt funktioniert es. Es stellt die Zeit auf heute, 23:38:30 Uhr. Ich bin davon ausgegangen, daß ich den Wochentag nicht unbedingt angeben muß.
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#!perl
use strict;
use warnings;
use Win32::API;
use Win32::API::Struct;
Win32::API::Struct->typedef(SYSTEMTIME => qw{
  WORD wYear
  WORD wMonth
  WORD wDayOfWeek
  WORD wDay
  WORD wHour
  WORD wMinute
  WORD wSecond
  WORD wMilliseconds
});

Win32::API->Import('kernel32', 'BOOL SetSystemTime(SYSTEMTIME lpPoint)');
my $systime = Win32::API::Struct->new('SYSTEMTIME');

# dann kann man mit $systime->{wYear} = 2004, etcpp. die Werte setzen
# und dann die Funktion aufrufen

@{$systime}{qw/wYear wMonth wDay wHour wMinute wSecond wMilliseconds/} = qw/2004 2 6 22 38 30 0/;

SetSystemTime($systime);
\n\n

<!--EDIT|steffenw|1076104421-->
$SIG{USER} = sub {love 'Perl' or die};

View full thread Datum/Uhrzeit stellen: gibt's da ne API-Funktion?