|
DATA DI OGGI
txtFields(15).Text = CStr(Today) ORA ODIERNA txtFields(16).Text = CStr(TimeOfDay) Oppure Sdata = IIf(Len(VB.Day(CDate(Sdata))) = 2, VB.Day(CDate(Sdata)), "0" & VB.Day(CDate(Sdata))) & "/" & IIf(Len(Month(CDate(Sdata))) = 2, Month(CDate(Sdata)), "0" & Month(CDate(Sdata))) & "/" & Year(CDate(Sdata)) oppure Stringa = Vb.Month(Mdata) & "/" & VB.Day(Mdata) & "/" & Year(Today) DateTime.Now |