qualcosa del genere

NuovaData: cdate(Hour([data]) & ":" & 30*(Minute([data])\30))