
Function approssima(d As Date) As Date
If Minute(d) < 30 Then approssima = Hour(d) & ":00" Else approssima = Hour(d) & ":30"
End Function |
=SE(MINUTO(B1)<=30;ARROTONDA.DIFETTO(B1;"0:30");ARROTONDA.ECCESSO(B1;"0:30")) |
Sub arrotondamelo()
If Minute(ActiveCell) <= 30 Then
ActiveCell = ActiveCell - TimeSerial(0, Minute(ActiveCell), 0)
Else
ActiveCell = ActiveCell + TimeSerial(0, 60 - Minute(ActiveCell), 0)
End If
End Sub |
=ARROTONDA.DIFETTO(B1;"0:30") |
