x

HMIDNT(datetime, length, output)

dove:

datetime

Data-ora

Il valore data-ora, il quale valore deve essere impostato a mezzanotte, il nome di un campo data-ora che contiene il valore, o una espressione che restituisce il valore.

length

Valore intero

Lunghezza del valore data-ora restituito. I valori validi sono:

• 8 indica un valore ora che include millisecondi.
• 10 indica un valore ora che include microsecondi.
• 12 indica un valore ora che include nanosecondi.

emissione

Data-ora

Valore di ritorno data-ora con ora impostata su mezzanotte e data copiata da un valore data-ora. Campo che contiene il risultato, o il formato del valore di emissione racchiuso tra virgolette singole. Il formato deve essere nel formato data- ora (tipo di dati H).

Inizio pagina

Esempio: Impostazione dell'orario a mezzanotte (Reporting)

HMIDNT imposta la porzione ora del campo TRANSDATE a mezzanotte, prima nel sistema delle 24 ore e poi nel sistema delle 12 ore:

TABLE FILE VIDEOTR2
PRINT CUSTID TRANSDATE AS 'DATE-TIME' AND COMPUTE
TRANSDATE_MID_24/HYYMDS  = HMIDNT(TRANSDATE, 8, 'HYYMDS');
TRANSDATE_MID_12/HYYMDSA = HMIDNT(TRANSDATE, 8, 'HYYMDSA');
WHERE DATE EQ 2000;
END

L'emissione è:

CUSTID  DATE-TIME         TRANSDATE_MID_24     TRANSDATE_MID_12 
------  ---------         ----------------     ---------------- 
1118    2000/06/26 05:45  2000/06/26 00:00:00  2000/06/26 12:00:00AM
1237    2000/02/05 03:30  2000/02/05 00:00:00  2000/02/05 12:00:00AM

Inizio pagina

Esempio: Impostazione dell'orario a mezzanotte (Maintain)

HMIDNT imposta la porzione ora di DT1 a mezzanotte in entrambi i sistemi a 24 e 12 ore:

MAINTAIN FILE DATETIME
FOR 1 NEXT ID INTO STK;
COMPUTE
DT_MID_24/HYYMDS = HMIDNT(STK(1).DT1, 8, DT_MID_24);
DT_MID_12/HYYMDSA= HMIDNT(STK(1).DT1, 8, DT_MID_12);
TYPE "STK(1).DT1 = "STK(1).DT1;
TYPE "DT_MID_24 = <DT_MID_24";
TYPE "DT_MID_12 = <DT_MID_12";
END