Announcement

**spectrumizer** · 02.12.2002, 23:19

Is mir so noch nich aufgefallen. Aber warum baust du dir nich das Datum auf deine Art zusammen?
<pre>
<DIV>uses ..., DateUtils; ... functi on BuildCurDate: string; const   myDaysOfWeek: array[1..7] of string =   ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');   myMonthsOfYear: arr ay[1..12] of string =   ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul',     'Aug', 'Sep', 'Oct', 'Nov', 'Dec'); var   s: string; begin   DateTimeToString(s, 'd', Date);   if (Length(s) = 1) then s := ' ' + s;   Result :=  myDaysOfWeek[DayOfWeek(Date)] + ', ' + s + ' ' +     myMonthsOf Year[MonthOfTheYear(Date)] + ' ' + inttostr(YearOf(Date)); en d; </DIV></pre>

Gr��e, Mari

**Andreas Horlaender** · 02.12.2002, 23:30

Ja schon Mario, aber die Frage ist ja, ob generell nur das englische Format f�r SMTP verwendet wird oder ob es l�nderunabh�ngig ist. 
Ich verwende NetMaster Komponenten vielleicht hat ja jemand INDY und kann mal im Code nach der Property Date (oder so) schauen. Vielleicht gibt's bei INDY eine entsprechende Initialisierung die Aufschluss dar�ber gibt. Gruss Andrea

**spectrumizer** · 03.12.2002, 03:34

N'abend

Hab mal im Source von den Indy-Komponenten gest�bert. Die
SMTP-Komponente konvertiert das (aktuelle) Datum per DateTimeToInternetStr()in einen
String. Auszug aus dem Source: ... if UseNowForDate then begin   Values['Date'] := DateTimeToInternetStr(Now); <FO NT
face="Courier New" color=#000080
size=2>{do not localize} end else begin   Values['Date'] := DateTimeToInternetStr(Self.Date);&nb sp;{do not localize} end; ... 
Gr��e, Mari

**Andreas Horlaender** · 03.12.2002, 22:32

Moin, 
was macht denn DateTimeTo�nternetStr is ja wohl ne Indy function...gru� Andreas</p&gt

**spectrumizer** · 04.12.2002, 00:55

Yup, Unit idGlobal. Hatte ich �bersehen.

{This should never be&nbs p;localized} function OffsetFromUTC: TDateTime; var   iBias: Integer;  &n bsp;tmez: TTimeZoneInformation; begin   case GetTimeZoneInformation(tmez) of     TIME_ZONE_ID_INVALID : ; //      raise EId FailedToRetreiveTimeZoneInfo.Create(RSFailedTimeZo neInfo);     TIME_ZONE_ID_UNKN OWN:       iBias& nbsp;:= tmez.Bias;    &nbsp ;TIME_ZONE_ID_DAYLIGHT:    &nbsp ;  iBias := tmez.Bias +&n bsp;tmez.DaylightBias;      TIME_ZONE_ID_STANDARD:        iBias := tmez.Bias +&nb sp;tmez.StandardBias;   else ;    // raise EIdFailedToRetreiveTimeZoneInfo.C reate(RSFailedTimeZoneInfo);   end;   Result := EncodeTime( Abs(iBias) div 60, Abs(iBias) mod 60, 0, 0);   if  iBias > 0 then begin     Result :=  0 - Result;   end; end; function DateTimeToGmtOffSetStr(ADateTime: TDa teTime; SubGMT: Boolean): string ; var   AHour, AMin, ASec,&nbs p;AMSec: Word; begin   if (ADateTime = 0.0) and SubGMT then begin     Result :=  'GMT'; {do not localize}     Exit;  &n bsp;end;   DecodeTime(ADateTime, AHou r, AMin, ASec, AMSec);  &nb sp;Result := Format(' %0.2d%0.2d', [AHour, AMin]); {do not localize}   if ADateTime < 0.0 then  begin     Result[1] := '-'; {do not localize}   end   else begin     Result[1] := '+'; {do not localize}   end; end; ..

**spectrumizer** · 04.12.2002, 00:57

...
function DateTimeToInternetStr(const Value: TDateTime): string; const   wdays: array[1..7] of string = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri',     'Sat'); { do not localize }   monthnames: array[1..12] of string = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',     { do not localize }     'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'); {do not localize} var   wDay,    &nbsp ;wMonth,     wYear: Wo rd; begin   DecodeDate(Value, wYear,&nb sp;wMonth, wDay);   Result  := Format('%s, %d %s %d %s  %s', {do not localize}     [wdays[DayOfWeek(Value)], wDay, monthnames[wMonth],     wYear, FormatDat eTime('hh:nn:ss', Value), {do not localize}       DateT imeToGmtOffSetStr(OffsetFromUTC, False)]); end; 

Gr��e, Mario :

**Andreas Horlaender** · 10.12.2002, 23:55

Joo Mario Danke... 
Scheinbar ist Email in gewisser weise doch nicht l�nderunabh�ngig *<

Announcement

Datumsproblem beim Mailversand

Datumsproblem beim Mailversand

Comment

Comment

Comment

Comment

Comment

Comment

Comment