用vb程序计算时间差
不知你想做什么?但还是帮你写一下程序,希望真能帮你一点小忙Option Explicit'需要控件: command1,label1,text1Private Sub Command1_Click()Label1。 Caption = "相差" & DateDiff("yyyy", Text1。Text, Date) & "年"Label1。Caption = Label1。Caption & vbCrLf & _ "相差" & DateDiff("m", Text1。 Text, Date) & "月"Label1。Caption = Label1。Caption & vbCrLf ...全部
不知你想做什么?但还是帮你写一下程序,希望真能帮你一点小忙Option Explicit'需要控件: command1,label1,text1Private Sub Command1_Click()Label1。
Caption = "相差" & DateDiff("yyyy", Text1。Text, Date) & "年"Label1。Caption = Label1。Caption & vbCrLf & _ "相差" & DateDiff("m", Text1。
Text, Date) & "月"Label1。Caption = Label1。Caption & vbCrLf & _ "相差" & DateDiff("d", Text1。Text, Date) & "天"End SubPrivate Sub Form_Load() Text1。
Text = "1937-7-7" Command1。Caption = "结果"End Sub。收起