Site Index - Feedback - Impressum |
| |||||||||
|
|
( Archiv ) | ( Neues Thema ) |
( Zeige die Threadübersicht ) | ( Zur Startübersicht ) |
02.07.1998 |
REXX Prozedur zur Datumswandlung (von: Peter Gromann, 00:00:00) | ^ |
Ich suche eine REXX Prozedur mit der ich ein Datum, z.B. vom Format "DATE (D)" in die Entsprechende Kalenderwoche (Zahlenwert) umwandeln kann. Das Programm, daß ich geschrieben habe arbeitet nur für das Jahr 98 korrekt. Dieses Programm arbeitet mit eine Näherung und einer entsprechenden Korrektur. Die Fehler treten dann für das Jahr 1999 auf, da dort die 1.KW schon am 28.12.98 beginnt. Ich suche also ein Programm womit ich die Umwandlung ohne Näherung berechnen kann. Ich hoffe Ihr könnt mir schnell weiterhelfen, denn diese Korrekturbenötige ich für die Datensicherung!!!!!!!!!! Anbei mein Programm WOCHE = (DATE(D)/7)+(4/5) Beispiel: Das aktuelle Datum vom System wird abgefragt und umgewandelt z.B 02.07.98 ist der Tag 183 und es muß als Ergebnis 27 für die 27.Kalenderwoche herauskommen.
|
Re: REXX Prozedur zur Datumswandlung (von: svobi, 00:00:00) | |
Wenn ich mich richtig erinnere ist, Irrtum vorbehalten, diejenige Woche im neuen Jahr die Erste, welche den ersten Donnerstag enthalten soll. Ich weiss die Erklaerung dazu auch nicht, aber soo habe ich es einmal gelesen. Vielleicht steckt hier Dein Ansatz zur Loesungs? Gruss & Glueck svobi |
22.08.1998 |
Re: REXX Prozedur zur Datumswandlung (von: Jörg Faulhammer, 00:00:00) | |
/* ermittelt Wochentag eines Datums */ Parse Arg Datum Fehler="" WTag.0=7
Select Return Start: von=Tag+31*(Monat-1)+Jahr*365 Wvon=von//7+1 Return DaysToDate: NJahr=Trunc(Days/365.242864) If NTage = 31 & (NMonat = 4 | If NMonat = 2 & NTage > 28 Return |
( Zeige die Threadübersicht ) | [ Version zum Drucken ] | ( Zur Startübersicht ) |
|
Mit * markierte Felder müssen ausgefüllt werden ! |
|