以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  星期天显示为英语  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=140295)

--  作者:yangwenghd
--  发布时间:2019/9/2 23:05:00
--  星期天显示为英语
Dim wk As Integer
Dim d1 As Date = Date.today()
Dim d2 As Date = new Date(d1.year,1,1)
wk = DateDiff("ww",d2,d1)+1
e.Form.Controls("Label8").text = format(Date.now(),"F") & " week  " & wk & "   " & format(d1,"dddd") \'显示时间和星期

老师 就是在调取星期几的时候可以是英语吗?
感谢 感谢 

图片点击可在新窗口打开查看此主题相关图片如下:搜狗截图19年09月02日2304_1.jpg
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2019/9/2 23:21:00
--  
Output.Show(Date.Today.DayOfWeek.ToString() )
--  作者:yangwenghd
--  发布时间:2019/9/2 23:56:00
--  
感谢老师,可以是缩写吗?太感谢了, 感谢 感谢
Dim nm As String = dt.Year & "year" &  dt.Month & "month_" & dt.Day & "_" & right(format(Date.Today.DayOfWeek.ToString() ), 1) \'有星期天
老师 这段可以是 英文的月份和 星期天的缩写吗?感谢 感谢 
[此贴子已经被作者于2019/9/3 0:00:07编辑过]

--  作者:有点蓝
--  发布时间:2019/9/3 8:48:00
--  
right(Date.Today.DayOfWeek.ToString(), 3)
--  作者:yangwenghd
--  发布时间:2019/9/3 9:34:00
--  
If Forms("计划表窗口").Opened()
    Dim t1 As Table = Tables("计划表窗口_Table4")
    Dim t2 As Table = Tables("计划表窗口_Table9")
    If t1.TopVisibleRow >=0 Then
        Dim r As Row = t1.Rows(t1.TopVisibleRow)
        Dim dt As Date = r("计划_开始日期")
     Dim nm As String = dt.Year & "year" &  dt.Month & "month_" & dt.Day & "_" & right(Date.Today.DayOfWeek.ToString(), 3) \'有星期天
        If dt = Nothing OrElse t2.Cols.Contains(nm)=False Then Return ""
        Dim idx As Integer= t2.cols(nm).Index
        t2.LeftVisibleCol = idx
    End If
End If 

图片点击可在新窗口打开查看此主题相关图片如下:搜狗截图19年09月03日0932_1.jpg
图片点击可在新窗口打开查看
老师,能在帮忙看看吗?月份和星期天都不对,感谢 感谢

--  作者:有点蓝
--  发布时间:2019/9/3 9:46:00
--  
right(dt.DayOfWeek.ToString(), 3)
--  作者:yangwenghd
--  发布时间:2019/9/3 9:59:00
--  
感谢老师,你看这样对吗?只是结果还是以前的那个样子。
     Dim nm As String = dt.Year & "year" &  dt.Month & "month_" & dt.Day & "_" & right(dt.DayOfWeek.ToString(), 3) \'星期天为英语缩写
    Builder.Adddef(nm,Gettype(String),1)
    dt = dt.Adddays(1)
    If dt > Enddate Then
        Exit Do
    End If
感谢 感谢
感觉好像都是读取的最后吗3三位,月份可以是英文的吗?感谢 感谢 
[此贴子已经被作者于2019/9/3 10:01:54编辑过]

--  作者:有点蓝
--  发布时间:2019/9/3 10:14:00
--  
left(dt.DayOfWeek.ToString(), 3)
--  作者:yangwenghd
--  发布时间:2019/9/3 10:25:00
--  
对哈,我都没发现,老师那个月份可以是英文的吗?比如一月:January,二月:February,不是1  month,2 month
感谢 感谢


--  作者:有点蓝
--  发布时间:2019/9/3 10:36:00
--  
Output.Show(dt.ToString("MMMM", new System.Globalization.CultureInfo("en-us")))
[此贴子已经被作者于2019/9/3 10:36:39编辑过]