自己已经出生了多少天,多少小时,用VB编写,谁能帮忙

答案:2 悬赏:30 手机版

解决时间 2021-01-26 17:42

提问者网友：太高姿态
2021-01-26 10:06

最佳答案

五星知识达人网友：duile
2021-01-26 11:45

Private Sub Command1_Click()
Dim Str As String
Str = Text1.Text
Label1.Caption = DateDiff("d", CDate(Format(Now, "YYYY-MM-DD")), CDate(Format(Str, "yyyy-mm-dd")))
'CDate强制转换。把变量强制转换成日期型变量
'这里边第一“d”就是DateDiff的参数。如果按照年来判断，你把"d"改成"yyyy"就可以
'yyyy 年
'q 季
'm 月
'y 一年的日数
'd 日
'w 一周的日数
'ww 周
'h 时
'n 分钟
's 秒
'如果你输入的不想按照例如（2006-10-15）这样输入，只需要改Format(Str, "YYYY-MM-DD")这个里。把这里的"YYYY-MM-DD"改掉
'（06-10-11，就改成Format(Str, "YY-MM-DD")
End Sub

全部回答

1楼网友：煞尾
2021-01-26 13:05

private sub form_load() hs1.min = 0 hs1.max = 255 hs2.min = 0 hs2.max = 255 hs3.min = 0 hs3.max = 255 label1.backcolor = rgb(hs1.value, hs2.value, hs3.value) end sub private sub hs1_change() label1.backcolor = rgb(hs1.value, hs2.value, hs3.value) end sub private sub hs2_change() label1.backcolor = rgb(hs1.value, hs2.value, hs3.value) end sub private sub hs3_change() label1.backcolor = rgb(hs1.value, hs2.value, hs3.value) end sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息