ShortDateFormat and NLS_DATE_FORMAT

[JosAikema]

Is there a function to convert the Delphi Shortdateformat in NLS_DATE_FORMAT and also from NLS_DATE_FORMAT in SHortDateFormat?
Regards,

Jos Aikem

 

[Marco Kalter]

This is a reasonable approximation for an NLS_DATE_FORMAT to a ShortDateFormat:

function NlsToWindows(const NlsDateFormat: string): string;
begin
  Result := NlsDateFormat;
  Result := StringReplace(Result, 'FM', '', [rfReplaceAll, rfIgnoreCase]);
  Result := StringReplace(Result, 'MONTH', 'MMMM', [rfReplaceAll, rfIgnoreCase]);
  Result := StringReplace(Result, 'MON', 'MMM', [rfReplaceAll, rfIgnoreCase]);
  Result := StringReplace(Result, 'RRRR', 'YYYY', [rfReplaceAll, rfIgnoreCase]);
  Result := StringReplace(Result, 'RR', 'YY', [rfReplaceAll, rfIgnoreCase]);
end;

I don't have this example for the opposite conversion, but I'm sure you can figure this out

.

------------------
Marco Kalter
Allround Automations

 

[JosAikema]

Okay, thanks for your answer. I will do it myself for the opposite.