Private Sub Command1_Click()
Text1.Text = "今天是:" & Format(Date, "dddddd")
End Sub

Private Sub Command2_Click()
text2.Text = "北京时间:" & fromat(Time, "ttttt")
End Sub
但是日期的输出格式不对?今天

展开全部
收起
6回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • Jack李墨杰

    18人对此回答表示赞同

    text2.Text = "北京时间:" & fromat(Time, "ttttt") 改为:
    text2.Text = "北京时间:" & format(Time, "hh:mm:ss")
    展开
    18
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Eren Lau

    17人对此回答表示赞同

    Private Sub Command1_Click()
    Text1.Text = "今天是:" & Format(Date, "yy-mm-dd")
    End Sub

    Private Sub Command2_Click()
    text2.Text = "北京时间:" & format(Time, "hh:mm:ss")
    End Sub
    展开
    17
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 我爱Grace大姐姐

    15人对此回答表示赞同

    Private Sub Command1_Click()

    Text1.Text = "今天是:" & Format(Date, "dddddd")

    End Sub


    Private Sub Command2_Click()

    Text2.Text = "北京时间:" & Format(Time, "ttttt")

    End S

    展开
    15
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 陈港生

    14人对此回答表示赞同

    看不懂,你想问什么
    展开
    14
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 话梅

    9人对此回答表示赞同

    取当前日期函数:date$
    取当前时间函数:time$
    取当前星期函数:weekdayname(weekday(date$)))
    不知道有没有你有用的。
    展开
    9
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 月下独酌素笺淡墨

    4人对此回答表示赞同

    Text1.Text =Format(Now, "现在是yyyy年m月dd日 第ww周 星期w hh:mm:ss ampm", vbMonday)
    展开
    4
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部