107706_de-DE

liliconcom

Dezimal-Datumszeit muss in ddMONYY konvertiert werden

Ich verwende eine datetime-Eingabeaufforderung, um das Start- und Enddatum für meine SQL-Abfrage einzuholen.  Die Datumsaufforderung verwendet Dezimalzahl.  Wie konvertiere ich das Dezimalformat in das ddMonyy-Format?  Mein Code ist unten.  Sie werden in meinem select sehen, dass ich t1.Login_Date mit den Variablen startDT und t1.Login_Date mit der Variablen endDT habe.  Hier muss ich die Dezimalzahl in das Datum umrechnen.  Ich habe Cast und Convert beide gleichzeitig ausprobiert und kann es nicht zum Laufen bringen.  Jede Hilfe wäre sehr dankbar.

 

NamesDefaultToHere (1);

// Geschrieben von Vince Faller

Betreff: Brauchen Sie, um dezimales Datum in ddMONYY umzuwandelnIch konnte Ihren Vorschlag in meinen Code integrieren. Danke für die Hilfe.Betreff: Brauchen Sie, um dezimales Datum in ddMONYY umzuwandeln

Hier ist ein einfaches Beispiel für die gewünschte Konvertierung

Names Default To Here( 1 );

theDate = Today();

charDate = Uppercase( Format( theDate, "ddmonyyyy" ) );
Show( charDate );

finalDate = Substr( charDate, 1, 5 ) || Substr( charDate, -2 );
Show( finalDate );

Betreff: Brauchen Sie, um dezimales Datum in ddMONYY umzuwandeln

NamesDefaultToHere (1);

// Geschrieben von Vince Faller
// Lässt einen Kalender in einer Zahlenbox erscheinen (Standardeinstellung ist jetzt)
// Beachten Sie, dass dies nur mit JMP 11 oder höher funktioniert
dateBox = Funktion (
{timething = Today ()},
{newbox},
newbox = Eval (
Ersatz(
Name Ausdruck (
Zahlenbearbeitungsfeld (
timething, // Eval (Sub ()) wegen JMP-Eigenheit
10, // Benötigen Sie dies nur, weil JMP keine Breite verwendet
<< Funktion einstellen (
Funktion ({Selbst},
{},
Wenn (fehlt (selbst <<),
self << Set (Eval (DUMMY)) // Setzt das Datum auf das Argument timething
)
)
)
<< Format einstellen (Format ("m / d / yh: m: s", 23, 0)); // Legt das datetime-Format für die Box fest (gibt Kalender)
)
)
Ausdruck (DUMMY), Timething
)
);
newbox;
);

nw =
Neues Fenster ("Datumsbereich eingeben",
LineUpBox (NCol (2),
TextBox ("Start DateTime"), start = dateBox (Today () - InDays (12)),
TextBox ("DateTime beenden"), end = dateBox (),
ButtonBox ("Cancel", nw << Fenster schließen), ButtonBox ("Get Data", runScript)
));



runScript = Ausdruck (nw << Fenster schließen;