假设单元格包含DateTime值：

Assuming the cells contain DateTime values:

Dim diff as TimeSpan = row.Cells("Current_date").Value - row.Cells("Allocated_Date").Value
row.Cells("Pendingsince").Value = String.Format("{0} days {1} hours and {0] minutes", diff.Days, diff.Hours, diff.Minutes)