FSharp Fiscal Year Dates | C# Online Compiler

FSharp Fiscal Year Dates by DBeard

// @nuget: Newtonsoft.Json
open Newtonsoft.Json
open System

type ExampleClass = {
    sampleId: int
    sampleString: string
}
type OrgDates = {
    orgId: int
    startDate:DateTime
    endDate: DateTime
    fiscalYearEnd:int
}

type OrgCalendarYears = {
    orgId: int
    calendarYears: int list
    fiscalYears: int list
}

let inputJSON = @"
[
    {
        orgId: 1,
        startDate: '2018-1-01T00:00:00',
        endDate: '2020-8-29T00:00:00',
        fiscalYearEnd: 12
    },
    {
        orgId: 2,
        startDate: '2018-1-01T00:00:00',
        endDate: '2020-8-29T00:00:00',
        fiscalYearEnd: 6
    },
    {
        orgId: 3,
        startDate: '2018-9-01T00:00:00',
        endDate: '2020-8-29T00:00:00',
        fiscalYearEnd: 8
    }
]"

let output = @"
[
    {
        orgId: 1,
        calendarYears: [2018,2019,2020],
        fiscalYears: [2018,2019,2020]
    },
    {
        orgId: 2,
        calendarYears: [2018,2019,2020],
        fiscalYears: [2018,2019,2020,2021]
    },
    {
        orgId: 3,
        calendarYears: [2018,2019,2020],
        fiscalYears: [2019,2020]
    }
]"

let expectedObj = JsonConvert.DeserializeObject<List<OrgCalendarYears>> output

let expectedJson = JsonConvert.SerializeObject expectedObj

// Main Func
let getOrgCalendarYearsList orgDatesList =
    orgDatesList
    |> List.map (fun orgDates ->
        let fyStart = if (orgDates.startDate.Month > orgDates.fiscalYearEnd) then orgDates.startDate.Year+1 else orgDates.startDate.Year
        let fyEnd = if orgDates.endDate.Month > orgDates.fiscalYearEnd then orgDates.endDate.Year+1 else orgDates.endDate.Year

        { orgId = orgDates.orgId
          calendarYears = [orgDates.startDate.Year .. orgDates.endDate.Year]
          fiscalYears = [fyStart .. fyEnd] })


// Output
let orgCalendarYearsList =
    JsonConvert.DeserializeObject<List<OrgDates>> inputJSON
    |> getOrgCalendarYearsList

printfn "Objects Equal: %b" (orgCalendarYearsList = expectedObj)

let serial = JsonConvert.SerializeObject orgCalendarYearsList

printfn "%s" serial
printfn "Json Equal: %b" (serial = expectedJson)

​x
 
// @nuget: Newtonsoft.Json
open Newtonsoft.Json
open System
​
type ExampleClass = {
    sampleId: int
    sampleString: string
}
type OrgDates = {
    orgId: int
    startDate:DateTime
    endDate: DateTime
    fiscalYearEnd:int
}
​
type OrgCalendarYears = {
    orgId: int
    calendarYears: int list
    fiscalYears: int list
}
​
let inputJSON = @"
[
    {
        orgId: 1,
        startDate: '2018-1-01T00:00:00',
        endDate: '2020-8-29T00:00:00',
        fiscalYearEnd: 12
    },
    {
        orgId: 2,
        startDate: '2018-1-01T00:00:00',
        endDate: '2020-8-29T00:00:00',
        fiscalYearEnd: 6
    },
    {
        orgId: 3,
        startDate: '2018-9-01T00:00:00',
        endDate: '2020-8-29T00:00:00',
        fiscalYearEnd: 8
    }
]"
​
let output = @"
[
    {
        orgId: 1,
        calendarYears: [2018,2019,2020],
        fiscalYears: [2018,2019,2020]
    },
    {
        orgId: 2,
        calendarYears: [2018,2019,2020],
        fiscalYears: [2018,2019,2020,2021]
    },
    {
        orgId: 3,
        calendarYears: [2018,2019,2020],
        fiscalYears: [2019,2020]
    }
]"
​
let expectedObj = JsonConvert.DeserializeObject<List<OrgCalendarYears>> output
​
let expectedJson = JsonConvert.SerializeObject expectedObj
​
// Main Func
let getOrgCalendarYearsList orgDatesList =
    orgDatesList
    |> List.map (fun orgDates ->
        let fyStart = if (orgDates.startDate.Month > orgDates.fiscalYearEnd) then orgDates.startDate.Year+1 else orgDates.startDate.Year
        let fyEnd = if orgDates.endDate.Month > orgDates.fiscalYearEnd then orgDates.endDate.Year+1 else orgDates.endDate.Year
​
        { orgId = orgDates.orgId
          calendarYears = [orgDates.startDate.Year .. orgDates.endDate.Year]
          fiscalYears = [fyStart .. fyEnd] })
​
​
// Output
let orgCalendarYearsList =
    JsonConvert.DeserializeObject<List<OrgDates>> inputJSON
    |> getOrgCalendarYearsList
​
printfn "Objects Equal: %b" (orgCalendarYearsList = expectedObj)
​
let serial = JsonConvert.SerializeObject orgCalendarYearsList
​
printfn "%s" serial
printfn "Json Equal: %b" (serial = expectedJson)

Compilation error (line 23, col 14): Extension method must be defined in a non-generic static class
Compilation error (line 212, col 21): Inconsistent accessibility: return type 'Program.Order' is less accessible than method 'Program.FindLastDeliveredOrderAfterFirstOfMonth(List<Program.Order>)'
Compilation error (line 212, col 21): Inconsistent accessibility: parameter type 'List<Program.Order>' is less accessible than method 'Program.FindLastDeliveredOrderAfterFirstOfMonth(List<Program.Order>)'
Compilation error (line 172, col 40): 'Dictionary<string, string>' does not contain a definition for 'GetValueOrNull' and no accessible extension method 'GetValueOrNull' accepting a first argument of type 'Dictionary<string, string>' could be found (are you missing a using directive or an assembly reference?)
Compilation error (line 173, col 38): 'Dictionary<string, string>' does not contain a definition for 'GetValueOrNull' and no accessible extension method 'GetValueOrNull' accepting a first argument of type 'Dictionary<string, string>' could be found (are you missing a using directive or an assembly reference?)
Compilation error (line 203, col 29): 'Program.Order.status' is inaccessible due to its protection level
Compilation error (line 204, col 29): 'Program.Order.status' is inaccessible due to its protection level
Compilation error (line 205, col 29): 'Program.Order.status' is inaccessible due to its protection level
Compilation error (line 216, col 80): 'Program.Order.status' is inaccessible due to its protection level
Compilation error (line 238, col 29): 'Program.Order.status' is inaccessible due to its protection level
Compilation error (line 239, col 29): 'Program.Order.status' is inaccessible due to its protection level
Compilation error (line 240, col 29): 'Program.Order.status' is inaccessible due to its protection level
Compilation error (line 244, col 80): 'Program.Order.status' is inaccessible due to its protection level
Compilation error (line 263, col 13): 'Program.Order.status' is inaccessible due to its protection level
Compilation error (line 278, col 19): 'Program.Order.status' is inaccessible due to its protection level
Compilation error (line 280, col 19): 'Program.Order.status' is inaccessible due to its protection level
Compilation error (line 283, col 29): 'Program.Order.status' is inaccessible due to its protection level

Last Run:	7:47:22 am
Compile:	0.081s
Execute:	0s
Memory:	0b
CPU:	0s

View IL Code