F＃の前回の作業日

Question

かなり初心者の質問：DateTimeを指定すると、前の非週末の日付をF#にしたいと思います。私はこのように作成しました：

open System 

module Date = 

    let isWeekEnd (date:DateTime) = 
     ((date.DayOfWeek = DayOfWeek.Saturday) || (date.DayOfWeek = DayOfWeek.Sunday)) 

    let getPreviousWorkDay date = 
     while isWeekEnd date do 
      let date = date.AddDays -1.0 
     date 

しかし、私は日付が不変であるという事実に違反しているようです。したがって、私はwhileループでこれをどうやってやっているのだろうかと思っています。なぜなら、シーケンスを3日まで取り戻し、それをフィルタリングして非週末のものをフィルタリングし、最後に最初のものを取り除くのです...

Answer 1

whileあなたが本当に一日前にしてから行くことをされて何をしたい場合には、週末の外出だ場合という

let rec getPreviousWorkDay date = 
    let prevDate = date.AddDays -1.0 
    if isWeekEnd prevDate then getPreviousWorkDay prevDate 
    else prevDate 

注：

let getPreviousWorkDay d = 
    let mutable date = d 
    while isWeekEnd date do 
     date <- date.AddDays -1.0 
    date 

は、そうでなければ、あなたが再帰を使用することができますループアプローチがあなたに変更可能な日付を宣言する必要がありますさらに、あなたの機能は平日を送信する場合に残ります。しかし、あなたはすでに差し引か日を渡すことによってそれを解決することができます。

let getPreviousWorkDay (date:DateTime) = 
    let rec loop date = 
     if isWeekEnd date then loop (date.AddDays -1.0) 
     else date 
    loop (date.AddDays -1.0) 

Answer 2

whileループを使用しての本質は、あなたが何かを変異することになるだろうことを意味します。ここで

module Date = 
    let getPreviousWorkDay (date:DateTime) = 
     match date.DayOfWeek with 
     | DayOfWeek.Monday -> date.AddDays -3.0 
     | DayOfWeek.Sunday -> date.AddDays -2.0 
     | _ -> date.AddDays -1.0 

は、我々は何を変異させる必要はありません。あなたがこれを行うにはしたくないし、むしろ、より機能的解決策となるだろうなら、あなたはmatch表現を使用することができます。