107706_fr-FR

liliconcom

Besoin de convertir une date / heure décimale en ddMONYY

J'utilise une invite de date / heure pour extraire la date de début et la date de fin de ma requête SQL.  L'invite de date utilise décimal.  Comment convertir le nombre décimal au format ddMonyy.  Mon code est ci-dessous.  Vous verrez dans ma sélection que j'ai t1.Login_Date avec les variables startDT et t1.Login_Date avec la variable endDT.  C’est là que j’ai besoin de convertir le nombre décimal en date.  J'ai essayé Cast et convertir et les deux ensemble et je ne peux pas le faire fonctionner.  Toute aide serait grandement appréciée.

 

NamesDefaultToHere (1);

// écrit par Vince Faller

Re: Besoin de convertir date / heure décimale en ddMONYYJ'ai pu intégrer votre suggestion dans mon code. Merci pour l'aide.Re: Besoin de convertir date / heure décimale en ddMONYY

Voici un exemple simple pour faire la conversion que vous voulez

Names Default To Here( 1 );

theDate = Today();

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

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

Re: Besoin de convertir date / heure décimale en ddMONYY

NamesDefaultToHere (1);

// écrit par Vince Faller
// Crée un calendrier sur une boîte de numérotation (par défaut, maintenant)
// Remarque, cela ne fonctionne que sur JMP 11 ou supérieur
dateBox = Fonction (
{timething = Today ()},
{newbox},
newbox = Eval (
Remplacer(
Nom Expr (
Numéro d'édition (
timething, // Eval (Sub ()) en raison de l'excentricité de JMP
10, // J'ai juste besoin de ça parce que JMP n'a pas de largeur par défaut
<< Définir la fonction (
Fonction ({self},
{},
Si (est manquant (auto << get),
self << Set (Eval (DUMMY)) // Règle la date sur l'argument temporel
)
)
),
<< Format défini (Format ("m / j / yh: m: s", 23, 0)); // Crée le format date / heure pour la boîte (donne le calendrier)
)
),
Expr (DUMMY), timething
)
)
newbox;
)

nw =
Nouvelle fenêtre ("Entrer la plage de dates",
LineUpBox (NCol (2),
TextBox ("Start DateTime"), start = dateBox (Today () - InDays (12)),
TextBox ("End DateTime"), end = dateBox (),
ButtonBox ("Annuler", nw << fermer la fenêtre), ButtonBox ("Get Data", runScript)
));



runScript = Expr (nw << Fermer la fenêtre;