From c78db17c10c7fa63489cebddedf08c9743ef76fc Mon Sep 17 00:00:00 2001 From: Riyazul555 Date: Tue, 9 Apr 2024 01:10:40 +0530 Subject: [PATCH] Date conversion F# program added --- ...dardDateFormatToJulianDateAndVice-versa.fs | 22 +++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 program/program/convert-standard-date-format-to-julian-date-and-vice-versa/ConvertStandardDateFormatToJulianDateAndVice-versa.fs diff --git a/program/program/convert-standard-date-format-to-julian-date-and-vice-versa/ConvertStandardDateFormatToJulianDateAndVice-versa.fs b/program/program/convert-standard-date-format-to-julian-date-and-vice-versa/ConvertStandardDateFormatToJulianDateAndVice-versa.fs new file mode 100644 index 000000000..4ed7aa3ce --- /dev/null +++ b/program/program/convert-standard-date-format-to-julian-date-and-vice-versa/ConvertStandardDateFormatToJulianDateAndVice-versa.fs @@ -0,0 +1,22 @@ +open System + +// Function to convert standard date format (year, month, day) to Julian date +let toJulianDate (year : int) (month : int) (day : int) : DateTime = + new DateTime(year, month, day) + +// Function to convert Julian date to standard date format (year, month, day) +let fromJulianDate (date : DateTime) : int * int * int = + date.Year, date.Month, date.Day + +// Example usage +[] +let main argv = + // Convert standard date format to Julian date + let julianDate = toJulianDate 2024 4 9 + printfn "Julian date: %A" julianDate + + // Convert Julian date to standard date format + let (year, month, day) = fromJulianDate julianDate + printfn "Standard date format: %d-%d-%d" year month day + + 0 // Return an integer exit code