philo-ng

private static class MicrosoftJsonDate {
    private static final int DATE_GMT0_GROUP = 1;
    private static final int OFFSET_GROUP = 2;
    private static Pattern json_date_pattern
            = Pattern.compile("^\\/Date\\(([-]?\\d+)([-\\+]([01]\\d|2[0-3])[0-5]\\d)?\\)\\/$");

    private static HashMap<String, Integer> offsetInMillisMap
            = new HashMap<>();

    public static Date deserialize(String json_date) throws IllegalStateException {

philo-ng

select to_date('01-JAN-0001') + level - 1 as my_date
from dual
connect by  to_date('01-JAN-0001') + level < to_date('12-DEC-2999')

philo-ng

'
'  The Excel built in function Trim removes excessive spaces in the string.  It may cause data
'  problem.  The VBA Trim function only remove the leading and trailing spaces.
'
Public Function VBA_Trim(value As String) As String
    VBA_Trim = Trim(value)
End Function

philo-ng

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Stopwatch"
Attribute VB_GlobalNameSpace = False

philo-ng

Public Function TrimNullTerminatedString(s As String) As String
    TrimNullTerminatedString = Trim(Replace(s, Chr(0), ""))
End Function

philo-ng

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Collection2"
Attribute VB_GlobalNameSpace = False

philo-ng

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "cStringBuilder"
Attribute VB_GlobalNameSpace = False