Hallo,
ich wollte mal Fragen ob mir hier jemand sagen kann wie man diese Zähler programmiert noch xxx Tage bis Weihnachten, welche man dann als Signatur in die E-Mail einbauen kann - ich meine so was wie hier
http://www.webstyleboard.de/ticker/wm2006.png
Danke - TwingO
Hallo TwingO,
und in welcher Programmiersprache?
In VB6 könnte das so aussehen:
Option Explicit
Dim jetzt As Date
Dim Weihnacht As Date
Dim Tage As Integer
Dim d As Integer
Private Sub Command1\_Click()
Weihnacht = "24.12.2006"
jetzt = Date
Tage = DateDiff("d", jetzt, Weihnacht)
Label1.Caption = Tage
End Sub
Gruß, Rainer
Hallo TwingO,
ich wollte mal Fragen ob mir hier jemand sagen kann wie man
diese Zähler programmiert noch xxx Tage bis Weihnachten,
welche man dann als Signatur in die E-Mail einbauen kann - ich
meine so was wie hier
http://www.webstyleboard.de/ticker/wm2006.png
OK, wie man die Datumsdifferenz berechnet,
hat Dir Rainer schon gesagt. Wie man sowas
tatsächlich praktisch macht, habe ich gerade
ausprobiert.
Dazu nimmt man:
Dann liest man das Bild (in einem Skript)
ein, bemalt es und gibt es wieder raus.
Ich habe gerade sowas mal probiert
(in Perl, ist aber ‚straightforward‘ so
in PHP).
Das zieht „Dein“ Bild (/ticker/wm2006.png)
vom entfernten Server, streicht den
mittleren Satz (Bis zur WM …) durch,
ersetzt ihn durch „Fußball ist Quark“
und schreibt unten rechts eine Zeile
mit „Bis Weihnachten sind es noch …“.
Aufzurufen mit
[ - - 8#!/usr/bin/perl
use LWP::Simple;
use Date::Manip;
use GD;
use strict;
my $what = „http://www.webstyleboard.de/ticker/wm2006.png“;
my $neutxt = „Fußball ist doch Quark!“;
my $zeitwn = bis_weihnachten();
my $data = get( $what ) or die „Couldn’t get it!“;
my $image = GD::Image->newFromPngData($data);
modify_image();
#schreibe das geaenderte Image raus
binmode STDOUT;
print „content-type: img/png\n\n“;
print $image->png;
sub bis_weihnachten
{
my $err;
my $date1 = ParseDate(„today“);
my $date2 = ParseDate(„2006-12-24“);
my @d_ds = split (/:/, DateCalc($date1, $date2, $err));
my @d_id =(‚0‘,‚0‘,‚WK‘,‚DD‘,‚HH‘,‚MM‘,‚SS‘);
my %h;
@h{ @d_id } = @d_ds;
return „Noch $h{WK} Wochen, $h{DD} Tage und $h{HH} Stunden bis Weihnachten“;
}
sub modify_image
{
my $blue = $image->colorAllocate(0, 0, 127);
my $rosa = $image->colorAllocate(255, 30, 30);
my $white = $image->colorAllocate(255, 255, 255);
$image->filledRectangle (200, 49, 465, 57, $blue);
$image->string (gdTinyFont, 204, 49, $zeitwn, $white);
$image->filledRectangle (15, 28, 460, 48, $rosa);
$image->string (gdGiantFont, 131, 31, $neutxt, $blue);
$image->string (gdGiantFont, 130, 30, $neutxt, $white);
}
CMБ