Uniface User Forum

Hey all, 

Anyone for a simple way to convert $datim value to UTC directly in uf?

$datim --> "2024-01-12T15:36:15.000Z"

Regards,

Knut

------------------------------
Knut Dybendahl
------------------------------

Ciao Knut,

AFAIK $datim on various platforms is already giving back current datetime, as minimum up to hundreds of second.

What about a simple global user defined function?

Something like:

returns string
params
    datetime    pDatim
endparams
variables
    string    vDatim
endvariables
if (pDatim = "") return("")
vDatim = pDatim
vDatim = $concat(vDatim[1,4],"-",vDatim[5,6],"-",vDatim[7,8],"T",vDatim[9,10],":",vDatim[11,12],":",vDatim[13,14],".",vDatim[15,17])
if ($length(vDatim) < 23) vDatim = $concat(vDatim, "000"[1,(23-$length(vDatim))]
vDatim = $concat(vDatim,"Z")
return(vDatim)

You can obviously refine it as you prefer...

Gianni

------------------------------
Gianni Sandigliano
IT

Original Message:
Sent: 01-12-2024 13:28
From: Knut Dybendahl
Subject: Convert $datim to ZULU

Hey all, 

Anyone for a simple way to convert $datim value to UTC directly in uf?

$datim --> "2024-01-12T15:36:15.000Z"

Regards,

Knut

------------------------------
Knut Dybendahl
------------------------------

Similarly:- 

variablesstruct v_structstring v_xmlendvariablesv_struct = $newstructv_struct->date = $datimstructtoxml v_xml, v_structv_xml = $replace(v_xml,1,"<date>","",-1)v_xml = $replace(v_xml,1,"</date>",".000Z",-1)

But I don't think either of these deal with the problem of removing timezone/DST from the $datim results. (UK is currently GMT anyway, so a practical test doesn't show me anything here.)

Regards, 

Iain

Ciao Knut,

AFAIK $datim on various platforms is already giving back current datetime, as minimum up to hundreds of second.

What about a simple global user defined function?

Something like:

returns string
params
    datetime    pDatim
endparams
variables
    string    vDatim
endvariables
if (pDatim = "") return("")
vDatim = pDatim
vDatim = $concat(vDatim[1,4],"-",vDatim[5,6],"-",vDatim[7,8],"T",vDatim[9,10],":",vDatim[11,12],":",vDatim[13,14],".",vDatim[15,17])
if ($length(vDatim) < 23) vDatim = $concat(vDatim, "000"[1,(23-$length(vDatim))]
vDatim = $concat(vDatim,"Z")
return(vDatim)

You can obviously refine it as you prefer...

Gianni

------------------------------
Gianni Sandigliano
IT

Original Message:
Sent: 01-12-2024 13:28
From: Knut Dybendahl
Subject: Convert $datim to ZULU

Hey all, 

Anyone for a simple way to convert $datim value to UTC directly in uf?

$datim --> "2024-01-12T15:36:15.000Z"

Regards,

Knut

------------------------------
Knut Dybendahl
------------------------------

Hi Gianni / Iain,

Thank you both - I already have done something similar - but as Iain states - 
paraphrased - nothing deals with the TZ difference.   For example, EST here in the US
is (at the moment) 5 hrs behind GMT.  Other parts are 6-8 hrs behind.
That's why I was hoping there might have been anything / something ...

Alas - it doesn't look as there's anything....

Cheers,
Knut

Similarly:- 

variablesstruct v_structstring v_xmlendvariablesv_struct = $newstructv_struct->date = $datimstructtoxml v_xml, v_structv_xml = $replace(v_xml,1,"<date>","",-1)v_xml = $replace(v_xml,1,"</date>",".000Z",-1)

But I don't think either of these deal with the problem of removing timezone/DST from the $datim results. (UK is currently GMT anyway, so a practical test doesn't show me anything here.)

Regards, 

Iain

Ciao Knut,

AFAIK $datim on various platforms is already giving back current datetime, as minimum up to hundreds of second.

What about a simple global user defined function?

Something like:

returns string
params
    datetime    pDatim
endparams
variables
    string    vDatim
endvariables
if (pDatim = "") return("")
vDatim = pDatim
vDatim = $concat(vDatim[1,4],"-",vDatim[5,6],"-",vDatim[7,8],"T",vDatim[9,10],":",vDatim[11,12],":",vDatim[13,14],".",vDatim[15,17])
if ($length(vDatim) < 23) vDatim = $concat(vDatim, "000"[1,(23-$length(vDatim))]
vDatim = $concat(vDatim,"Z")
return(vDatim)

You can obviously refine it as you prefer...

Gianni

------------------------------
Gianni Sandigliano
IT

Original Message:
Sent: 01-12-2024 13:28
From: Knut Dybendahl
Subject: Convert $datim to ZULU

Hey all, 

Anyone for a simple way to convert $datim value to UTC directly in uf?

$datim --> "2024-01-12T15:36:15.000Z"

Regards,

Knut

------------------------------
Knut Dybendahl
------------------------------

Ciao Knut,

in both code cases it is needed to find current timezone and current offset to apply a proper delta of hours.

Few hints:
- Original page tip23 from Tony Marston HERE - "A Timezone conversion utility"
- Encapsulating a piece of Javascript in a service; see HERE

There is also possibility to get directly Zulu time encapsulating a powershell script:

[DateTime]::UtcNow.ToString('u').Replace('Z','UTC')

Hope it helps.

Gianni

Hi Gianni / Iain,

Thank you both - I already have done something similar - but as Iain states - 
paraphrased - nothing deals with the TZ difference.   For example, EST here in the US
is (at the moment) 5 hrs behind GMT.  Other parts are 6-8 hrs behind.
That's why I was hoping there might have been anything / something ...

Alas - it doesn't look as there's anything....

Cheers,
Knut

Similarly:- 

variablesstruct v_structstring v_xmlendvariablesv_struct = $newstructv_struct->date = $datimstructtoxml v_xml, v_structv_xml = $replace(v_xml,1,"<date>","",-1)v_xml = $replace(v_xml,1,"</date>",".000Z",-1)

But I don't think either of these deal with the problem of removing timezone/DST from the $datim results. (UK is currently GMT anyway, so a practical test doesn't show me anything here.)

Regards, 

Iain

Ciao Knut,

AFAIK $datim on various platforms is already giving back current datetime, as minimum up to hundreds of second.

What about a simple global user defined function?

Something like:

returns string
params
    datetime    pDatim
endparams
variables
    string    vDatim
endvariables
if (pDatim = "") return("")
vDatim = pDatim
vDatim = $concat(vDatim[1,4],"-",vDatim[5,6],"-",vDatim[7,8],"T",vDatim[9,10],":",vDatim[11,12],":",vDatim[13,14],".",vDatim[15,17])
if ($length(vDatim) < 23) vDatim = $concat(vDatim, "000"[1,(23-$length(vDatim))]
vDatim = $concat(vDatim,"Z")
return(vDatim)

You can obviously refine it as you prefer...

Gianni

------------------------------
Gianni Sandigliano
IT

Original Message:
Sent: 01-12-2024 13:28
From: Knut Dybendahl
Subject: Convert $datim to ZULU

Hey all, 

Anyone for a simple way to convert $datim value to UTC directly in uf?

$datim --> "2024-01-12T15:36:15.000Z"

Regards,

Knut

------------------------------
Knut Dybendahl
------------------------------

Hi Gianni,

Awesome!  And thank you!

I didn't know about that one.

Regards,
Knut

------------------------------
Knut Dybendahl

Original Message:
Sent: 01-16-2024 10:26
From: Gianni Sandigliano
Subject: Convert $datim to ZULU

Ciao Knut,

in both code cases it is needed to find current timezone and current offset to apply a proper delta of hours.

Few hints:
- Original page tip23 from Tony Marston HERE - "A Timezone conversion utility"
- Encapsulating a piece of Javascript in a service; see HERE

There is also possibility to get directly Zulu time encapsulating a powershell script:

[DateTime]::UtcNow.ToString('u').Replace('Z','UTC')

Hope it helps.

Gianni

------------------------------
Gianni Sandigliano
IT

Original Message:
Sent: 01-16-2024 09:33
From: Knut Dybendahl
Subject: Convert $datim to ZULU

Hi Gianni / Iain,

Thank you both - I already have done something similar - but as Iain states - 
paraphrased - nothing deals with the TZ difference.   For example, EST here in the US
is (at the moment) 5 hrs behind GMT.  Other parts are 6-8 hrs behind.
That's why I was hoping there might have been anything / something ...

Alas - it doesn't look as there's anything....

Cheers,
Knut

------------------------------
Knut Dybendahl

Original Message:
Sent: 01-15-2024 05:16
From: Iain Sharp
Subject: Convert $datim to ZULU

Similarly:- 

variablesstruct v_structstring v_xmlendvariablesv_struct = $newstructv_struct->date = $datimstructtoxml v_xml, v_structv_xml = $replace(v_xml,1,"<date>","",-1)v_xml = $replace(v_xml,1,"</date>",".000Z",-1)

But I don't think either of these deal with the problem of removing timezone/DST from the $datim results. (UK is currently GMT anyway, so a practical test doesn't show me anything here.)

Regards, 

Iain

------------------------------
Iain Sharp
Head of Technical Services
Pci Systems Ltd
Sheffield GB

Original Message:
Sent: 01-13-2024 05:35
From: Gianni Sandigliano
Subject: Convert $datim to ZULU

Ciao Knut,

AFAIK $datim on various platforms is already giving back current datetime, as minimum up to hundreds of second.

What about a simple global user defined function?

Something like:

returns string
params
    datetime    pDatim
endparams
variables
    string    vDatim
endvariables
if (pDatim = "") return("")
vDatim = pDatim
vDatim = $concat(vDatim[1,4],"-",vDatim[5,6],"-",vDatim[7,8],"T",vDatim[9,10],":",vDatim[11,12],":",vDatim[13,14],".",vDatim[15,17])
if ($length(vDatim) < 23) vDatim = $concat(vDatim, "000"[1,(23-$length(vDatim))]
vDatim = $concat(vDatim,"Z")
return(vDatim)

You can obviously refine it as you prefer...

Gianni

------------------------------
Gianni Sandigliano
IT

Original Message:
Sent: 01-12-2024 13:28
From: Knut Dybendahl
Subject: Convert $datim to ZULU

Hey all, 

Anyone for a simple way to convert $datim value to UTC directly in uf?

$datim --> "2024-01-12T15:36:15.000Z"

Regards,

Knut

------------------------------
Knut Dybendahl
------------------------------

and then - of course - I could do something like this;

sql/data "select to_char(SYS_EXTRACT_UTC(SYSTIMESTAMP), 'YYYY-MM-DD HH24:MM:SS') from dual", "$ORA"

pso_zulu_time = $replace($replace($result, 1, " ", "T", 1), 1, " ", "", -1)
pso_zulu_time = $concat(pso_zulu_time,".000Z")

And then it all works...

------------------------------
Knut Dybendahl

Original Message:
Sent: 01-16-2024 11:06
From: Knut Dybendahl
Subject: Convert $datim to ZULU

Hi Gianni,

Awesome!  And thank you!

I didn't know about that one.

Regards,
Knut

------------------------------
Knut Dybendahl

Original Message:
Sent: 01-16-2024 10:26
From: Gianni Sandigliano
Subject: Convert $datim to ZULU

Ciao Knut,

in both code cases it is needed to find current timezone and current offset to apply a proper delta of hours.

Few hints:
- Original page tip23 from Tony Marston HERE - "A Timezone conversion utility"
- Encapsulating a piece of Javascript in a service; see HERE

There is also possibility to get directly Zulu time encapsulating a powershell script:

[DateTime]::UtcNow.ToString('u').Replace('Z','UTC')

Hope it helps.

Gianni

------------------------------
Gianni Sandigliano
IT

Original Message:
Sent: 01-16-2024 09:33
From: Knut Dybendahl
Subject: Convert $datim to ZULU

Hi Gianni / Iain,

Thank you both - I already have done something similar - but as Iain states - 
paraphrased - nothing deals with the TZ difference.   For example, EST here in the US
is (at the moment) 5 hrs behind GMT.  Other parts are 6-8 hrs behind.
That's why I was hoping there might have been anything / something ...

Alas - it doesn't look as there's anything....

Cheers,
Knut

------------------------------
Knut Dybendahl

Original Message:
Sent: 01-15-2024 05:16
From: Iain Sharp
Subject: Convert $datim to ZULU

Similarly:- 

variablesstruct v_structstring v_xmlendvariablesv_struct = $newstructv_struct->date = $datimstructtoxml v_xml, v_structv_xml = $replace(v_xml,1,"<date>","",-1)v_xml = $replace(v_xml,1,"</date>",".000Z",-1)

But I don't think either of these deal with the problem of removing timezone/DST from the $datim results. (UK is currently GMT anyway, so a practical test doesn't show me anything here.)

Regards, 

Iain

------------------------------
Iain Sharp
Head of Technical Services
Pci Systems Ltd
Sheffield GB

Original Message:
Sent: 01-13-2024 05:35
From: Gianni Sandigliano
Subject: Convert $datim to ZULU

Ciao Knut,

AFAIK $datim on various platforms is already giving back current datetime, as minimum up to hundreds of second.

What about a simple global user defined function?

Something like:

returns string
params
    datetime    pDatim
endparams
variables
    string    vDatim
endvariables
if (pDatim = "") return("")
vDatim = pDatim
vDatim = $concat(vDatim[1,4],"-",vDatim[5,6],"-",vDatim[7,8],"T",vDatim[9,10],":",vDatim[11,12],":",vDatim[13,14],".",vDatim[15,17])
if ($length(vDatim) < 23) vDatim = $concat(vDatim, "000"[1,(23-$length(vDatim))]
vDatim = $concat(vDatim,"Z")
return(vDatim)

You can obviously refine it as you prefer...

Gianni

------------------------------
Gianni Sandigliano
IT

Original Message:
Sent: 01-12-2024 13:28
From: Knut Dybendahl
Subject: Convert $datim to ZULU

Hey all, 

Anyone for a simple way to convert $datim value to UTC directly in uf?

$datim --> "2024-01-12T15:36:15.000Z"

Regards,

Knut

------------------------------
Knut Dybendahl
------------------------------

Yeah but wouldn't it be nice if, in these days of Uniface developing web based software and therefore potentially international applications, there were a data type of UTCdate that automatically formatted in client timezone, but stored in UTC, and a function to find UTC within the code itself? 

------------------------------
Iain Sharp
Head of Technical Services
Pci Systems Ltd
Sheffield GB

Original Message:
Sent: 01-17-2024 15:34
From: Knut Dybendahl
Subject: Convert $datim to ZULU

and then - of course - I could do something like this;

sql/data "select to_char(SYS_EXTRACT_UTC(SYSTIMESTAMP), 'YYYY-MM-DD HH24:MM:SS') from dual", "$ORA"

pso_zulu_time = $replace($replace($result, 1, " ", "T", 1), 1, " ", "", -1)
pso_zulu_time = $concat(pso_zulu_time,".000Z")

And then it all works...

------------------------------
Knut Dybendahl

Original Message:
Sent: 01-16-2024 11:06
From: Knut Dybendahl
Subject: Convert $datim to ZULU

Hi Gianni,

Awesome!  And thank you!

I didn't know about that one.

Regards,
Knut

------------------------------
Knut Dybendahl

Original Message:
Sent: 01-16-2024 10:26
From: Gianni Sandigliano
Subject: Convert $datim to ZULU

Ciao Knut,

in both code cases it is needed to find current timezone and current offset to apply a proper delta of hours.

Few hints:
- Original page tip23 from Tony Marston HERE - "A Timezone conversion utility"
- Encapsulating a piece of Javascript in a service; see HERE

There is also possibility to get directly Zulu time encapsulating a powershell script:

[DateTime]::UtcNow.ToString('u').Replace('Z','UTC')

Hope it helps.

Gianni

------------------------------
Gianni Sandigliano
IT

Original Message:
Sent: 01-16-2024 09:33
From: Knut Dybendahl
Subject: Convert $datim to ZULU

Hi Gianni / Iain,

Thank you both - I already have done something similar - but as Iain states - 
paraphrased - nothing deals with the TZ difference.   For example, EST here in the US
is (at the moment) 5 hrs behind GMT.  Other parts are 6-8 hrs behind.
That's why I was hoping there might have been anything / something ...

Alas - it doesn't look as there's anything....

Cheers,
Knut

------------------------------
Knut Dybendahl

Original Message:
Sent: 01-15-2024 05:16
From: Iain Sharp
Subject: Convert $datim to ZULU

Similarly:- 

variablesstruct v_structstring v_xmlendvariablesv_struct = $newstructv_struct->date = $datimstructtoxml v_xml, v_structv_xml = $replace(v_xml,1,"<date>","",-1)v_xml = $replace(v_xml,1,"</date>",".000Z",-1)

But I don't think either of these deal with the problem of removing timezone/DST from the $datim results. (UK is currently GMT anyway, so a practical test doesn't show me anything here.)

Regards, 

Iain

------------------------------
Iain Sharp
Head of Technical Services
Pci Systems Ltd
Sheffield GB

Original Message:
Sent: 01-13-2024 05:35
From: Gianni Sandigliano
Subject: Convert $datim to ZULU

Ciao Knut,

AFAIK $datim on various platforms is already giving back current datetime, as minimum up to hundreds of second.

What about a simple global user defined function?

Something like:

returns string
params
    datetime    pDatim
endparams
variables
    string    vDatim
endvariables
if (pDatim = "") return("")
vDatim = pDatim
vDatim = $concat(vDatim[1,4],"-",vDatim[5,6],"-",vDatim[7,8],"T",vDatim[9,10],":",vDatim[11,12],":",vDatim[13,14],".",vDatim[15,17])
if ($length(vDatim) < 23) vDatim = $concat(vDatim, "000"[1,(23-$length(vDatim))]
vDatim = $concat(vDatim,"Z")
return(vDatim)

You can obviously refine it as you prefer...

Gianni

------------------------------
Gianni Sandigliano
IT

Original Message:
Sent: 01-12-2024 13:28
From: Knut Dybendahl
Subject: Convert $datim to ZULU

Hey all, 

Anyone for a simple way to convert $datim value to UTC directly in uf?

$datim --> "2024-01-12T15:36:15.000Z"

Regards,

Knut

------------------------------
Knut Dybendahl
------------------------------

Hi Iain,

I feel OK for the function but which is the added value for a separate data type? 
It just a datetime...if you have both in the same entity you could call them LOCAL_DATETIME and UTC_DATETIME.

Just my 2 cents...

Best Regards,
Gianni

------------------------------
Gianni Sandigliano
IT

Original Message:
Sent: 01-18-2024 04:11
From: Iain Sharp
Subject: Convert $datim to ZULU

Yeah but wouldn't it be nice if, in these days of Uniface developing web based software and therefore potentially international applications, there were a data type of UTCdate that automatically formatted in client timezone, but stored in UTC, and a function to find UTC within the code itself? 

------------------------------
Iain Sharp
Head of Technical Services
Pci Systems Ltd
Sheffield GB

Original Message:
Sent: 01-17-2024 15:34
From: Knut Dybendahl
Subject: Convert $datim to ZULU

and then - of course - I could do something like this;

sql/data "select to_char(SYS_EXTRACT_UTC(SYSTIMESTAMP), 'YYYY-MM-DD HH24:MM:SS') from dual", "$ORA"

pso_zulu_time = $replace($replace($result, 1, " ", "T", 1), 1, " ", "", -1)
pso_zulu_time = $concat(pso_zulu_time,".000Z")

And then it all works...

------------------------------
Knut Dybendahl

Original Message:
Sent: 01-16-2024 11:06
From: Knut Dybendahl
Subject: Convert $datim to ZULU

Hi Gianni,

Awesome!  And thank you!

I didn't know about that one.

Regards,
Knut

------------------------------
Knut Dybendahl

Original Message:
Sent: 01-16-2024 10:26
From: Gianni Sandigliano
Subject: Convert $datim to ZULU

Ciao Knut,

in both code cases it is needed to find current timezone and current offset to apply a proper delta of hours.

Few hints:
- Original page tip23 from Tony Marston HERE - "A Timezone conversion utility"
- Encapsulating a piece of Javascript in a service; see HERE

There is also possibility to get directly Zulu time encapsulating a powershell script:

[DateTime]::UtcNow.ToString('u').Replace('Z','UTC')

Hope it helps.

Gianni

------------------------------
Gianni Sandigliano
IT

Original Message:
Sent: 01-16-2024 09:33
From: Knut Dybendahl
Subject: Convert $datim to ZULU

Hi Gianni / Iain,

Thank you both - I already have done something similar - but as Iain states - 
paraphrased - nothing deals with the TZ difference.   For example, EST here in the US
is (at the moment) 5 hrs behind GMT.  Other parts are 6-8 hrs behind.
That's why I was hoping there might have been anything / something ...

Alas - it doesn't look as there's anything....

Cheers,
Knut

------------------------------
Knut Dybendahl

Original Message:
Sent: 01-15-2024 05:16
From: Iain Sharp
Subject: Convert $datim to ZULU

Similarly:- 

variablesstruct v_structstring v_xmlendvariablesv_struct = $newstructv_struct->date = $datimstructtoxml v_xml, v_structv_xml = $replace(v_xml,1,"<date>","",-1)v_xml = $replace(v_xml,1,"</date>",".000Z",-1)

But I don't think either of these deal with the problem of removing timezone/DST from the $datim results. (UK is currently GMT anyway, so a practical test doesn't show me anything here.)

Regards, 

Iain

------------------------------
Iain Sharp
Head of Technical Services
Pci Systems Ltd
Sheffield GB

Original Message:
Sent: 01-13-2024 05:35
From: Gianni Sandigliano
Subject: Convert $datim to ZULU

Ciao Knut,

AFAIK $datim on various platforms is already giving back current datetime, as minimum up to hundreds of second.

What about a simple global user defined function?

Something like:

returns string
params
    datetime    pDatim
endparams
variables
    string    vDatim
endvariables
if (pDatim = "") return("")
vDatim = pDatim
vDatim = $concat(vDatim[1,4],"-",vDatim[5,6],"-",vDatim[7,8],"T",vDatim[9,10],":",vDatim[11,12],":",vDatim[13,14],".",vDatim[15,17])
if ($length(vDatim) < 23) vDatim = $concat(vDatim, "000"[1,(23-$length(vDatim))]
vDatim = $concat(vDatim,"Z")
return(vDatim)

You can obviously refine it as you prefer...

Gianni

------------------------------
Gianni Sandigliano
IT

Original Message:
Sent: 01-12-2024 13:28
From: Knut Dybendahl
Subject: Convert $datim to ZULU

Hey all, 

Anyone for a simple way to convert $datim value to UTC directly in uf?

$datim --> "2024-01-12T15:36:15.000Z"

Regards,

Knut

------------------------------
Knut Dybendahl
------------------------------

and then - of course - I could do something like this;

sql/data "select to_char(SYS_EXTRACT_UTC(SYSTIMESTAMP), 'YYYY-MM-DD HH24:MM:SS') from dual", "$ORA"

pso_zulu_time = $replace($replace($result, 1, " ", "T", 1), 1, " ", "", -1)
pso_zulu_time = $concat(pso_zulu_time,".000Z")

And then it all works...

------------------------------
Knut Dybendahl

Original Message:
Sent: 01-16-2024 11:06
From: Knut Dybendahl
Subject: Convert $datim to ZULU

Hi Gianni,

Awesome!  And thank you!

I didn't know about that one.

Regards,
Knut

------------------------------
Knut Dybendahl

Original Message:
Sent: 01-16-2024 10:26
From: Gianni Sandigliano
Subject: Convert $datim to ZULU

Ciao Knut,

in both code cases it is needed to find current timezone and current offset to apply a proper delta of hours.

Few hints:
- Original page tip23 from Tony Marston HERE - "A Timezone conversion utility"
- Encapsulating a piece of Javascript in a service; see HERE

There is also possibility to get directly Zulu time encapsulating a powershell script:

[DateTime]::UtcNow.ToString('u').Replace('Z','UTC')

Hope it helps.

Gianni

------------------------------
Gianni Sandigliano
IT

Original Message:
Sent: 01-16-2024 09:33
From: Knut Dybendahl
Subject: Convert $datim to ZULU

Hi Gianni / Iain,

Thank you both - I already have done something similar - but as Iain states - 
paraphrased - nothing deals with the TZ difference.   For example, EST here in the US
is (at the moment) 5 hrs behind GMT.  Other parts are 6-8 hrs behind.
That's why I was hoping there might have been anything / something ...

Alas - it doesn't look as there's anything....

Cheers,
Knut

------------------------------
Knut Dybendahl

Original Message:
Sent: 01-15-2024 05:16
From: Iain Sharp
Subject: Convert $datim to ZULU

Similarly:- 

variablesstruct v_structstring v_xmlendvariablesv_struct = $newstructv_struct->date = $datimstructtoxml v_xml, v_structv_xml = $replace(v_xml,1,"<date>","",-1)v_xml = $replace(v_xml,1,"</date>",".000Z",-1)

But I don't think either of these deal with the problem of removing timezone/DST from the $datim results. (UK is currently GMT anyway, so a practical test doesn't show me anything here.)

Regards, 

Iain

------------------------------
Iain Sharp
Head of Technical Services
Pci Systems Ltd
Sheffield GB

Original Message:
Sent: 01-13-2024 05:35
From: Gianni Sandigliano
Subject: Convert $datim to ZULU

Ciao Knut,

AFAIK $datim on various platforms is already giving back current datetime, as minimum up to hundreds of second.

What about a simple global user defined function?

Something like:

returns string
params
    datetime    pDatim
endparams
variables
    string    vDatim
endvariables
if (pDatim = "") return("")
vDatim = pDatim
vDatim = $concat(vDatim[1,4],"-",vDatim[5,6],"-",vDatim[7,8],"T",vDatim[9,10],":",vDatim[11,12],":",vDatim[13,14],".",vDatim[15,17])
if ($length(vDatim) < 23) vDatim = $concat(vDatim, "000"[1,(23-$length(vDatim))]
vDatim = $concat(vDatim,"Z")
return(vDatim)

You can obviously refine it as you prefer...

Gianni

------------------------------
Gianni Sandigliano
IT

Original Message:
Sent: 01-12-2024 13:28
From: Knut Dybendahl
Subject: Convert $datim to ZULU

Hey all, 

Anyone for a simple way to convert $datim value to UTC directly in uf?

$datim --> "2024-01-12T15:36:15.000Z"

Regards,

Knut

------------------------------
Knut Dybendahl
------------------------------

Hey all, 

Anyone for a simple way to convert $datim value to UTC directly in uf?

$datim --> "2024-01-12T15:36:15.000Z"

Regards,

Knut

Hi

I miss if you mean the format or the real value.

You can use $nlsinternaltime

variables    datetime VE1    lineardatetime VTZendvariablesdebug$nlsinternaltime = "UTC"VE1 = $datim$nlsinternaltime = "classic"VTZ = $datim - VE1

Hey all, 

Anyone for a simple way to convert $datim value to UTC directly in uf?

$datim --> "2024-01-12T15:36:15.000Z"

Regards,

Knut

Hey all, 

Anyone for a simple way to convert $datim value to UTC directly in uf?

$datim --> "2024-01-12T15:36:15.000Z"

Regards,

Knut

;
;SF_TZ_CNV_C(<datim>,<tz_from>,<tz_to>,<para>)
;
; Convert datetime(C=combined) from "timezone from" to "timezone to"
; $status
;  0  done, day is the same
;  1  done, day changed
; <0  error
;ENTRY SF_TZ_CNV_C
  returns datetime
  params
    datetime v_DATIM_FROM :IN ; a datetime
    string   v_TZ_FROM    :IN ; timezone from
    string   v_TZ_TO      :IN ; timezone to
    string   v_PARA       :IN ; furher parameters if needed
  endparams
  variables
    datetime v_DATIM_UTC
    datetime v_DATIM_TO
    datetime v_DATIM_XUTC
    numeric  v_DIFF
    string   v_TXT
    string   v_TZ_MEM1,v_TZ_MEM2
    numeric  v_DD
    string   v_TMP
  endvariables

  IF(v_DATIM_FROM=="") 
    $status = 0
    RETURN("")
  ENDIF

  ;defaults
  IF(v_TZ_FROM=="") v_TZ_FROM = $nlstimezone
  IF(v_TZ_TO=="")   v_TZ_TO   = $nlstimezone

  ; make the function case independent
  v_TZ_FROM = $uppercase(v_TZ_FROM)
  v_TZ_TO   = $uppercase(v_TZ_TO)
  IF(v_TZ_FROM=="" || v_TZ_FROM=="CLASSIC")
    v_TZ_FROM = $uppercase(SF_TZ_GET_LOC_TZ(""))
  ENDIF
  IF(v_TZ_TO=="" || v_TZ_TO=="CLASSIC")
    v_TZ_TO = $uppercase(SF_TZ_GET_LOC_TZ(""))
  ENDIF

  ; Convenience: Replace "Z" for "Zulu time" (used in XML) by "UTC"
  IF(v_TZ_FROM=="Z") v_TZ_FROM = "UTC"
  IF(v_TZ_TO=="Z")   v_TZ_TO   = "UTC"

  IF(v_TZ_FROM==v_TZ_TO) ; Nothing to do
    RETURN(v_DATIM_FROM)
  ENDIF

  IF(0) ; Check timezones (performance, as I got always the whole list of timezones?)
    getitem/id v_TMP,$nlstimezonelist,v_TZ_FROM
    IF($status<=0)
      putmess "SF_TZ_CNV_C:Timezone from '%%v_TZ_FROM%%%' is not a vaild timezone!"
      $status = <UPROCERR_ARGUMENT>
      RETURN("")
    ENDIF
    getitem/id v_TMP,$nlstimezonelist,v_TZ_TO
    IF($status<=0)
      putmess "SF_TZ_CNV_C:Timezone to '%%v_TZ_TO%%%' is not a vaild timezone!"
      $status = <UPROCERR_ARGUMENT>
      RETURN("")
    ENDIF
  ENDIF

  ; Memorize the old value
  v_TZ_MEM1 = $nlsinternaltime
  v_TZ_MEM2 = $nlstimezone

  IF(v_TZ_FROM=="UTC")
    v_DATIM_UTC = v_DATIM_FROM
  ELSE
    $nlsinternaltime = "UTC"               ; from UTC
    $nlstimezone     = v_TZ_FROM           ; to timezone TZ_FROM
    $$TL_DATIM_ISO2 = v_DATIM_FROM
    v_TXT = "%%$$TL_DATIM_ISO2%%%"         ; Convert UTC->TZ_FROM / Format to "yyyymmddhhnnsstt"
    v_DATIM_XUTC = v_TXT                   ; TZ_FROM (wrong direction)
    v_DIFF = v_DATIM_XUTC-v_DATIM_FROM  ; Difference (TZ_FROM-UTC)
    v_DATIM_UTC = v_DATIM_FROM - v_DIFF ; TZ_FROM-(TZ_FROM-UTC) = UTC
  ENDIF

  ;v_DATIM_UTC is now UTC

  IF(v_TZ_TO=="UTC")
    v_DATIM_TO = v_DATIM_UTC
  ELSE
    $nlsinternaltime = "UTC"               ; from UTC 
    $nlstimezone = v_TZ_TO                 ; to timezone TZ_TO
    $$TL_DATIM_ISO2 = v_DATIM_UTC
    v_TXT = "%%$$TL_DATIM_ISO2%%%"         ; Convert UTC->TZ_TO / Format to "yyyymmddhhnnsstt"
    v_DATIM_TO = v_TXT                     ; TZ_TO
  ENDIF

  $nlsinternaltime = v_TZ_MEM1
  $nlstimezone     = v_TZ_MEM2

  IF(v_DATIM_FROM[D]==v_DATIM_TO[D])
    $status = 0
  ELSE
    $status = 1
  ENDIF
  RETURN(v_DATIM_TO)
END ; SF_TZ_CNV_C

Hey all, 

Anyone for a simple way to convert $datim value to UTC directly in uf?

$datim --> "2024-01-12T15:36:15.000Z"

Regards,

Knut

Hi Ingo,

nice piece of software... thanks for sharing. What about those two lines using SF_TZ_GET_LOC_TZ("")?

Gianni

;
;SF_TZ_CNV_C(<datim>,<tz_from>,<tz_to>,<para>)
;
; Convert datetime(C=combined) from "timezone from" to "timezone to"
; $status
;  0  done, day is the same
;  1  done, day changed
; <0  error
;ENTRY SF_TZ_CNV_C
  returns datetime
  params
    datetime v_DATIM_FROM :IN ; a datetime
    string   v_TZ_FROM    :IN ; timezone from
    string   v_TZ_TO      :IN ; timezone to
    string   v_PARA       :IN ; furher parameters if needed
  endparams
  variables
    datetime v_DATIM_UTC
    datetime v_DATIM_TO
    datetime v_DATIM_XUTC
    numeric  v_DIFF
    string   v_TXT
    string   v_TZ_MEM1,v_TZ_MEM2
    numeric  v_DD
    string   v_TMP
  endvariables

  IF(v_DATIM_FROM=="") 
    $status = 0
    RETURN("")
  ENDIF

  ;defaults
  IF(v_TZ_FROM=="") v_TZ_FROM = $nlstimezone
  IF(v_TZ_TO=="")   v_TZ_TO   = $nlstimezone

  ; make the function case independent
  v_TZ_FROM = $uppercase(v_TZ_FROM)
  v_TZ_TO   = $uppercase(v_TZ_TO)
  IF(v_TZ_FROM=="" || v_TZ_FROM=="CLASSIC")
    v_TZ_FROM = $uppercase(SF_TZ_GET_LOC_TZ(""))
  ENDIF
  IF(v_TZ_TO=="" || v_TZ_TO=="CLASSIC")
    v_TZ_TO = $uppercase(SF_TZ_GET_LOC_TZ(""))
  ENDIF

  ; Convenience: Replace "Z" for "Zulu time" (used in XML) by "UTC"
  IF(v_TZ_FROM=="Z") v_TZ_FROM = "UTC"
  IF(v_TZ_TO=="Z")   v_TZ_TO   = "UTC"

  IF(v_TZ_FROM==v_TZ_TO) ; Nothing to do
    RETURN(v_DATIM_FROM)
  ENDIF

  IF(0) ; Check timezones (performance, as I got always the whole list of timezones?)
    getitem/id v_TMP,$nlstimezonelist,v_TZ_FROM
    IF($status<=0)
      putmess "SF_TZ_CNV_C:Timezone from '%%v_TZ_FROM%%%' is not a vaild timezone!"
      $status = <UPROCERR_ARGUMENT>
      RETURN("")
    ENDIF
    getitem/id v_TMP,$nlstimezonelist,v_TZ_TO
    IF($status<=0)
      putmess "SF_TZ_CNV_C:Timezone to '%%v_TZ_TO%%%' is not a vaild timezone!"
      $status = <UPROCERR_ARGUMENT>
      RETURN("")
    ENDIF
  ENDIF

  ; Memorize the old value
  v_TZ_MEM1 = $nlsinternaltime
  v_TZ_MEM2 = $nlstimezone

  IF(v_TZ_FROM=="UTC")
    v_DATIM_UTC = v_DATIM_FROM
  ELSE
    $nlsinternaltime = "UTC"               ; from UTC
    $nlstimezone     = v_TZ_FROM           ; to timezone TZ_FROM
    $$TL_DATIM_ISO2 = v_DATIM_FROM
    v_TXT = "%%$$TL_DATIM_ISO2%%%"         ; Convert UTC->TZ_FROM / Format to "yyyymmddhhnnsstt"
    v_DATIM_XUTC = v_TXT                   ; TZ_FROM (wrong direction)
    v_DIFF = v_DATIM_XUTC-v_DATIM_FROM  ; Difference (TZ_FROM-UTC)
    v_DATIM_UTC = v_DATIM_FROM - v_DIFF ; TZ_FROM-(TZ_FROM-UTC) = UTC
  ENDIF

  ;v_DATIM_UTC is now UTC

  IF(v_TZ_TO=="UTC")
    v_DATIM_TO = v_DATIM_UTC
  ELSE
    $nlsinternaltime = "UTC"               ; from UTC 
    $nlstimezone = v_TZ_TO                 ; to timezone TZ_TO
    $$TL_DATIM_ISO2 = v_DATIM_UTC
    v_TXT = "%%$$TL_DATIM_ISO2%%%"         ; Convert UTC->TZ_TO / Format to "yyyymmddhhnnsstt"
    v_DATIM_TO = v_TXT                     ; TZ_TO
  ENDIF

  $nlsinternaltime = v_TZ_MEM1
  $nlstimezone     = v_TZ_MEM2

  IF(v_DATIM_FROM[D]==v_DATIM_TO[D])
    $status = 0
  ELSE
    $status = 1
  ENDIF
  RETURN(v_DATIM_TO)
END ; SF_TZ_CNV_C

Hey all, 

Anyone for a simple way to convert $datim value to UTC directly in uf?

$datim --> "2024-01-12T15:36:15.000Z"

Regards,

Knut