[vb6] Problemi Data Ora

[ianstilo]

uso:

 Private Sub mnuInserisciData_Click(Index As Integer)
Select Case Index
Case 0

txtEdit.Text = txtEdit.Text + Format(Date$, "Long Date")

Case 1

txtEdit.Text = txtEdit.Text + Format(Date$, "Medium Date")

Case 2

txtEdit.Text = txtEdit.Text + Format(Date$, "Short Date")
End Select
End Sub




Private Sub mnuInserisciOra_Click(Index As Integer)
Select Case Index
Case 0

txtEdit.Text = txtEdit.Text + Format(Time$, "Long Time")
Case 1

txtEdit.Text = txtEdit.Text + Format(Time$, "Medium Time")
Case 2

txtEdit.Text = txtEdit.Text + Format(Time$, "Short Time")
End Select
End Sub

Queste due sub per inserire in automatico data e ora.....ma perchè mi viene fuori una data e un ora che non centrano nullla con quelle vere????????'