代码之家 › 专栏 › 技术社区 › Kevin Won

f日期范围生成器?

generator f#

Kevin Won · 技术社区 · 16 年前

我正在尝试编写一个函数,该函数使用生成器语法生成日期时间列表:

let dateRange = 

    let endDate = System.DateTime.Parse("6/1/2010")
    let startDate = System.DateTime.Parse("3/1/2010")

    seq {
          for date in startDate..endDate do
              if MyDateClass.IsBusinessDay(date) then yield date
        }

但是生成器(“seq”)块没有正确解析。它需要一个时间跨度。虽然生成器语法似乎非常适合我要做的事情,但是它对于除了两个数字以外的任何东西都是不直观的。

是否可以使用生成器语法创建日期时间范围?
有没有比我写的更好的方法来考虑如何创建范围(即“in”子句)

2 回复 | 直到 16 年前

Alexander Rautenberg 16 年前

let rec dates (fromDate:System.DateTime) (toDate:System.DateTime) = seq {
            if fromDate <= toDate then 
                yield fromDate
                yield! dates (fromDate.AddDays(1.0)) toDate
            }

let result = dates startDate endDate |> Seq.filter (fun dt -> IsBusinessDate(dt))

kvb 16 年前

TimeSpan Zero startDate .. TimeSpan(1,0,0,0) .. endDate

open System

type TimeSpanWrapper = { timeSpan : TimeSpan } with
  static member (+)(d:DateTime, tw) = d + tw.timeSpan
  static member Zero = { timeSpan = TimeSpan(0L) }

let dateRange =
    let endDate = System.DateTime.Parse("6/1/2010")
    let startDate = System.DateTime.Parse("5/1/2010")
    let oneDay = { timeSpan = System.TimeSpan(1,0,0,0) }

    seq {
          for date in startDate .. oneDay .. endDate do
             if MyDateClass.IsBusinessDay(date) then yield date
        }

推荐文章

Thomas · 使类型别名在F中不可互换#

4 年前

sdgfsdh · 我该怎么说。使用异步转换函数进行收集?

8 年前

Soldalma · 我可以实例化包含顶级副作用值的类吗?

8 年前

matekus · F#-包含数字的字符串的自然排序

8 年前

Ayto Maximo · F#CSV-对于每一行,从列数据创建一个数组

8 年前

Chechy Levas · 在F#中使用免费单子是否意味着启动时间更长,指令有限?

8 年前

matekus · F#类型匹配-无法创建映射或匹配记录

8 年前

Rob Lyndon · 未找到F#ProvidedTypes文件

8 年前

red-swan · 如何将intro ML.Net演示翻译为F#?

8 年前

jkone27 · F#-在编译时从字符串生成简单的空类型

8 年前