关于在vb中日期的问题

来源：百度知道 编辑：UC知道 时间：2024/05/21 11:21:39
在VB中，调用日期，我只会label2.caption=date
现在想在lable2里显示今天是几号，还有比如我们每月20号发工资，那在label2中同时显示今天离发工资的日子还有几天，20号那天就显示今天是发工资得日子。这个应该怎么写啊？帮帮忙！谢谢！
楼下，你这是获取日期啊，我可以做出来，关键是如何计算与下个月的20日还差几天啊！

Private Sub Form_Load()
Dim vStr
vStr = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日"
If Day(Date) < 20 Then: Me.Caption = vStr & " 离发工资还有" & DateDiff("d", Date, DateSerial(Year(Date), Month(Date), 20)) & "天~~"
If Day(Date) = 20 Then: Me.Caption = vStr & " 今天发工资啰~~"
If Day(Date) > 20 Then: Me.Caption = vStr & " 离发工资还有" & DateDiff("d", Date, CDate(Year(DateAdd("M", 1, Date)) & "-" & Month(DateAdd("M", 1, Date)) & "-20")) & "天~~"
End Sub

Private Sub Command1_Click()
Label1 = "今天是" & Right(Date$, 2) & "日"
End Sub