[vb6]Data e Ora

[Mabi]

Usa le due funzioni che hai citato e sommane i valori:

Dim MyData As Date
Dim Num1 As Variant
Dim Num2 As Variant
Dim Num3 As Variant


Num1 = DateSerial(2004, 7, 7)
Num2 = TimeSerial(15, 38, 56)
Num3 = Num1 + Num2
MyData = CDate(Num3)

MsgBox CStr(MyData)